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