2 ! { dg-options "-ftest-forall-temp" }
6 character(len
=7), pointer :: u
7 character(len
=7), pointer :: v
9 character(len
=7), target
:: a
10 character(len
=7), target
:: b
20 forall (j
= 1:2) a(j
:j
) = b(j
:j
)
22 if (a
/= "12cdefg") call abort
24 forall (j
= 2:3) a(j
:j
) = v(j
:j
)
25 if (a
/= "123defg") call abort
27 forall (j
= 3:4) u(j
:j
) = b(j
:j
)
28 if (a
/= "1234efg") call abort
30 forall (j
= 4:5) u(j
:j
) = v(j
:j
)
31 if (a
/= "12345fg") call abort