5 character(len
=7), pointer :: u
6 character(len
=7), pointer :: v
8 character(len
=7), target
:: a
9 character(len
=7), target
:: b
19 forall (j
= 1:2) a(j
:j
) = b(j
:j
)
21 if (a
/= "12cdefg") call abort
23 forall (j
= 2:3) a(j
:j
) = v(j
:j
)
24 if (a
/= "123defg") call abort
26 forall (j
= 3:4) u(j
:j
) = b(j
:j
)
27 if (a
/= "1234efg") call abort
29 forall (j
= 4:5) u(j
:j
) = v(j
:j
)
30 if (a
/= "12345fg") call abort