gcc/testsuite/gfortran.dg/pointer_to_substring.f90

   1 ! { dg-do compile }
   2 ! PR36724 - ICE on pointer to substring
   3 ! testcase contributed by Loukas Peristeras.
   4
   5   character(LEN=132), target :: line
   6   character(LEN=1), pointer :: t
   7
   8   read(*,'(A)') line
   9   t=>line(1:1)
  10 end