gcc/testsuite/gfortran.dg/move_alloc_16.f90

! { dg-do run }
!
! Tests the fix for PR67177 in which MOVE_ALLOC was not assigning the string
! length for deferred length characters.
!
! Contributed by <templed@tcd.ie>
!
program str
  implicit none

  type string
    character(:), Allocatable :: text
  end type string

  type strings
    type(string), allocatable, dimension(:) :: strlist
  end type strings

  type(strings) :: teststrs
  type(string) :: tmpstr
  integer :: strlen = 20

  allocate (teststrs%strlist(1))
  allocate (character(len=strlen) :: tmpstr%text)

  allocate (character(len=strlen) :: teststrs%strlist(1)%text)

! Full string reference was required because reallocation on assignment is
! functioning when it should not if the lhs is a substring - PR67977
  tmpstr%text(1:3) = 'foo'

  if (.not.allocated (teststrs%strlist(1)%text)) call abort
  if (len (tmpstr%text) .ne. strlen) call abort

  call move_alloc(tmpstr%text,teststrs%strlist(1)%text)

  if (.not.allocated (teststrs%strlist(1)%text)) call abort
  if (len (teststrs%strlist(1)%text) .ne. strlen) call abort
  if (trim (teststrs%strlist(1)%text(1:3)) .ne. 'foo') call abort

! Clean up so that valgrind reports all allocated memory freed.
  if (allocated (teststrs%strlist(1)%text)) deallocate (teststrs%strlist(1)%text)
  if (allocated (teststrs%strlist)) deallocate (teststrs%strlist)
end program str