Le 17/08/2014 14:46, Dominique Dhumieres a écrit : >> 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. > Yeah, well. Good to know. Then I don't understand what the allocation code is doing. :-/
Sorry, I can't devote more time to that right now. Mikael