URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [in_pack_rank7.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR 21354: Rank 7 was not handled correctly by many library`	`! PR 21354: Rank 7 was not handled correctly by many library`
`! functions, including in_pack.`	`! functions, including in_pack.`
`program main`	`program main`
`real, dimension (2,2,2,2,2,2,2):: a`	`real, dimension (2,2,2,2,2,2,2):: a`
`a = 1.0`	`a = 1.0`
`call foo(a(2:1:-1,:,:,:,:,:,:))`	`call foo(a(2:1:-1,:,:,:,:,:,:))`
`end program main`	`end program main`

`subroutine foo(a)`	`subroutine foo(a)`
`real, dimension (2,2,2,2,2,2,2):: a`	`real, dimension (2,2,2,2,2,2,2):: a`
`end subroutine foo`	`end subroutine foo`