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.fortran-torture/] [execute/] [forall_6.f90] - Rev 303
Go to most recent revision | Compare with Previous | Blame | View Log
! Program to test FORALL with scalar pointer assignment inside it.
program forall_6
type element
real, pointer :: p
end type
type (element) q(5)
real, target, dimension(5) :: t
integer i;
t = (/1.0, 2.0, 3.0, 4.0, 5.0/)
do i = 1,5
q(i)%p => t(i)
end do
forall (i = 1:5)
q(i)%p => q(6 - i)%p
end forall
do i = 1,5
if (q(i)%p .ne. t(6 - i)) call abort
end do
end
Go to most recent revision | Compare with Previous | Blame | View Log