gcc/testsuite/gfortran.dg/dependency_55.f90

   1 ! { dg-do run }
   2 !
   3 ! Test the fix for PR91717 in which the concatenation operation ICEd.
   4 !
   5 ! Contributed by Damian Rouson  <damian@sourceryinstitute.org>
   6 !
   7   type core
   8     character (len=:), allocatable :: msg
   9   end type
  10
  11   type(core) :: my_core
  12
  13   my_core%msg = ""
  14   my_core%msg = my_core%msg//"my message is: "
  15   my_core%msg = my_core%msg//"Hello!"
  16
  17   if (my_core%msg .ne. "my message is: Hello!") stop 1
  18 end