[Bug fortran/72709] Incorrect assignment of allocatable character array used as component of derived type

["janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #4 from janus at gcc dot gnu.org ---
Extension / variation of the test case:


program    read_exp_data
   implicit none

   type experimental_data_t
      character(len=:), dimension(:), allocatable :: header
   end type

   type(experimental_data_t) :: ex
   integer, parameter :: nh = 3
   integer :: i

   allocate(character(len=2) :: ex%header(nh))

   ex%header(3) = "C"
   ex%header(2) = "B"
   ex%header(1) = "A"

   do i = 1, nh
      write(*,*) "header(",i,") = ", ex%header(i), " loc: ", loc(ex%header(i))
   enddo

end program


This prints:

 header(           1 ) = A  loc:              16642032
 header(           2 ) = A  loc:              16642032
 header(           3 ) = A  loc:              16642032


which shows that the problem is apparently not only in the writing into the
array, but also in the output. All elements appear to have the same address!