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) 10end 11