> My knowledge of unlimited polymorphic types is limited, but I think that > this is not correct.
My knowledge of unlimited polymorphic types is even more limited,
then I cannot comment about the correctness of the patch. However
> The new length of the string has to be stored somewhere. If you don't
> do that, for example the intrinsic len() function won't work.
if I add a line
if (len(P) /= 20) call abort()
in the 'type is (character(*))' block, the test still succeeds.
Dominique
