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
) STOP 1
14 if (trim (z
) .ne
. '') STOP 2
16 if (len(z
) .ne
. length
) STOP 3
17 if (trim (z
) .ne
. "foo") STOP 4
19 if (len(z
) .ne
. length
) STOP 5
20 if (trim (z
) .ne
. "foo__bar") STOP 6