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) STOP 1
13 if(len(textp2
) /= 5) STOP 2
16 if(textp
/= 'bbbbbaa') STOP 3
17 if(textp2
/= 'bbbbb') STOP 4