1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
!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
|
