URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [forall_2.f90] - Rev 303
Compare with Previous | Blame | View Log
!program to test nested forall construct and forall mask
program test
implicit none
integer a(4,4)
integer i, j
do i=1,4
do j=1,4
a(j,i) = j-i
enddo
enddo
forall (i=2:4, a(1,i).GT.-2)
forall (j=1:4, a(j,2).GT.0)
a(j,i) = a(j,i-1)
end forall
end forall
if (any (a.ne.reshape ((/0,1,2,3,-1,0,2,3,-2,-1,0,1,-3,-2,-1,0/),&
(/4,4/)))) call abort
end