3 ! Checks the fix for PR67977 in which automatic reallocation on assignment
4 ! was performed when the lhs had a substring reference.
6 ! Contributed by Anton Shterenlikht <mexas@bristol.ac.uk>
8 character(:), allocatable
:: z
13 if (len(z
) .ne
. length
) call abort
14 if (trim (z
) .ne
. '') call abort
16 if (len(z
) .ne
. length
) call abort
17 if (trim (z
) .ne
. "foo") call abort
19 if (len(z
) .ne
. length
) call abort
20 if (trim (z
) .ne
. "foo__bar") call abort