3 ! We erroneously accepted it when a FORALL index was used in a triplet
4 ! specification within the same FORALL header
6 FORALL(I=1:10,J=I:10) ! { dg-error "FORALL index 'i' may not appear in triplet specification" }
10 forall (i=1:10, j=1:i) ! { dg-error "FORALL index 'i' may not appear in triplet specification" }
14 forall (i=1:10, j=1:10:i) ! { dg-error "FORALL index 'i' may not appear in triplet specification" }
18 forall (i=i:10) ! { dg-error "FORALL index 'i' may not appear in triplet specification" }
19 forall (j=1:j:i) ! { dg-error "FORALL index 'j' may not appear in triplet specification" }
24 forall (i=1:10:i) ! { dg-error "FORALL index 'i' may not appear in triplet specification" }