URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [cray_pointers_5.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-fcray-pointer -fno-strict-aliasing" }`	`! { dg-options "-fcray-pointer -fno-strict-aliasing" }`

`module cray_pointers_5`	`module cray_pointers_5`
`integer :: var (10), arr(100)`	`integer :: var (10), arr(100)`
`pointer (ipt, var)`	`pointer (ipt, var)`
`end module cray_pointers_5`	`end module cray_pointers_5`

`use cray_pointers_5`	`use cray_pointers_5`
`integer :: i`	`integer :: i`

`forall (i = 1:100) arr(i) = i`	`forall (i = 1:100) arr(i) = i`
`ipt = loc (arr)`	`ipt = loc (arr)`
`if (any (var .ne. (/1, 2, 3, 4, 5, 6, 7, 8, 9, 10/))) call abort`	`if (any (var .ne. (/1, 2, 3, 4, 5, 6, 7, 8, 9, 10/))) call abort`
`end`	`end`

`! { dg-final { cleanup-modules "cray_pointers_5" } }`	`! { dg-final { cleanup-modules "cray_pointers_5" } }`