3 ! Assigning a substring to a pointer
7 character (len = 7), target :: textt
8 character (len = 7), pointer :: textp
9 character (len = 5), pointer :: textp2
12 if(len(textp) /= 7) call abort()
13 if(len(textp2) /= 5) call abort()
16 if(textp /= 'bbbbbaa') call abort()
17 if(textp2 /= 'bbbbb') call abort()