gcc/testsuite/gfortran.dg/substr_alloc_string_comp_1.f90

   1 ! { dg-do run }
   2 ! PR fortran/65766
   3 ! Substrings of allocatable string components of derived types
   4 program substr_derived_alloc_comp
   5     implicit none
   6
   7     type t1
   8         character(len=:), allocatable :: s
   9     end type t1
  10
  11     character(len=*), parameter :: c = &
  12       "0123456789abcdefghijklmnopqrstuvwxyz"
  13
  14     type(t1) x1
  15
  16     integer i
  17
  18     x1%s = c
  19
  20     do i = 1, 36
  21         if (x1%s(i:) .ne. c(i:)) STOP 1
  22     end do
  23 end program