2 ! Checks that we correctly handle nested masks in nested FORALL blocks.
3 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
8 l1(:,:) = reshape ((/.false
.,.true
.,.true
.,.false
./), (/2,2/))
9 it(:,:) = reshape ((/1,2,3,4/), (/2,2/))
10 forall (i
= 1:2, i
< 3)
11 forall (j
= 1:2, l1(i
,j
))
17 if (any (it
.ne
. reshape ((/1, 0, 0, 4/), (/2, 2/)))) STOP 1