gcc/testsuite/gfortran.dg/realloc_on_assign_32.f90

! { dg-do run }
!
! Test the fix for PR88980 in which the 'span' field if the descriptor
! for 'Items' was not set, causing the assignment to segfault.
!
! Contributed by Antony Lewis  <antony@cosmologist.info>
!
program tester
  call gbug
contains
  subroutine gbug
    type TNameValue
      character(LEN=:), allocatable :: Name
    end type TNameValue

    type TNameValue_pointer
      Type(TNameValue), allocatable :: P
    end type TNameValue_pointer

    Type TType
      type(TNameValue_pointer), dimension(:), allocatable :: Items
    end type TType
    Type(TType) T

    allocate(T%Items(2))
    allocate(T%Items(2)%P)
    T%Items(2)%P%Name =  'test'
    if (T%Items(2)%P%Name .ne.  'test') stop 1

  end subroutine gbug
end program tester