gcc/testsuite/gfortran.dg/pr82774.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { dg-do run }
!
! Contributed by Steve Kargl  <kargl@gcc.gnu.org>
!
program main
   implicit none
   type stuff
      character(:), allocatable :: key
   end type stuff
   type(stuff) nonsense, total
   nonsense = stuff('Xe')
   total = stuff(nonsense%key) ! trim nonsense%key made this work
   if (nonsense%key /= total%key) call abort
   if (len(total%key) /= 2) call abort
end program main