1! { dg-do run } 2! PR fortran/31803 3! Assigning a substring to a pointer 4 5program test 6 implicit none 7 character (len = 7), target :: textt 8 character (len = 7), pointer :: textp 9 character (len = 5), pointer :: textp2 10 textp => textt 11 textp2 => textt(1:5) 12 if(len(textp) /= 7) call abort() 13 if(len(textp2) /= 5) call abort() 14 textp = 'aaaaaaa' 15 textp2 = 'bbbbbbb' 16 if(textp /= 'bbbbbaa') call abort() 17 if(textp2 /= 'bbbbb') call abort() 18end program test 19