https://gcc.gnu.org/bugzilla/show_bug.cgi?id=91717

--- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
The patch at https://gcc.gnu.org/ml/fortran/2019-09/msg00027.html
fixes the ICE and the test

  type core
    character (len=:), allocatable :: msg
  end type

  type(core) :: my_core

  print *, allocated(my_core%msg)

  type core
    character (len=:), allocatable :: msg
  end type

  type(core) :: my_core

  print *, allocated(my_core%msg)

  my_core%msg = "test"
  print *, allocated(my_core%msg), len(my_core%msg)

  my_core%msg = my_core%msg//"message"

  print *, allocated(my_core%msg)
  print *, ">", my_core%msg, "<"

end

gives

 F
 T           4
 T
 >testmessage<

Is this the expected result?

Reply via email to