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.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [forall_6.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! Program to test FORALL with scalar pointer assignment inside it.`	`! Program to test FORALL with scalar pointer assignment inside it.`
`program forall_6`	`program forall_6`
`type element`	`type element`
`real, pointer :: p`	`real, pointer :: p`
`end type`	`end type`

`type (element) q(5)`	`type (element) q(5)`
`real, target, dimension(5) :: t`	`real, target, dimension(5) :: t`
`integer i;`	`integer i;`

`t = (/1.0, 2.0, 3.0, 4.0, 5.0/)`	`t = (/1.0, 2.0, 3.0, 4.0, 5.0/)`

`do i = 1,5`	`do i = 1,5`
`q(i)%p => t(i)`	`q(i)%p => t(i)`
`end do`	`end do`

`forall (i = 1:5)`	`forall (i = 1:5)`
`q(i)%p => q(6 - i)%p`	`q(i)%p => q(6 - i)%p`
`end forall`	`end forall`


`do i = 1,5`	`do i = 1,5`
`if (q(i)%p .ne. t(6 - i)) call abort`	`if (q(i)%p .ne. t(6 - i)) call abort`
`end do`	`end do`
`end`	`end`