[Bug fortran/51976] [F2003] Support deferred-length character components of derived types (allocatable string length)

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51976



Tobias Burnus <burnus at gcc dot gnu.org> changed:



           What    |Removed                     |Added

----------------------------------------------------------------------------

                 CC|                            |burnus at gcc dot gnu.org



--- Comment #6 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-11-08 
15:00:05 UTC ---

Note that after this feature works, we have to ensure that FORALL with a

generated temporary works with different string lengths:



  type t

    character(len=:), pointer :: str

  end type t

  type(t), pointer :: strarry(:), strarray2



  allocate(strarray(3), strarray2)

  allocate(character(len=5) :: strarray(1)%str, strarray2(1)%str)

  allocate(character(len=7) :: strarray(2)%str, strarray2(2)%str)

  allocate(character(len=2) :: strarray(2)%str, strarray2(3)%str)



  forall(i=1:3) strarray2(i)%str = strarray(i)%str