Lines Matching refs:x2p
133 subroutine test2(x1,x2,x3,x4,x1p,x2p,x6,x7,x8,x9,x10,x11,n) argument
137 character(len=5), pointer :: x2p local
147 namelist /nml2/ x1, x2, x3, x4,x5,x1p,x2p,x6,x7,x8,x9,x10,x11,x12 local
164 x2p = repeat('X', len(x2p))
203 if (x2p /= '101') call abort()
236 subroutine test3(x1,x2,x3,x4,x1p,x2p,x6,x7,x8,x9,x10,x11,n,ll) argument
241 character(len=ll), pointer :: x2p local
250 namelist /nml2/ x1, x2, x3, x4,x5,x1p,x2p,x6,x7,x8,x9,x10,x11,x12 local
268 x2p = repeat('X', len(x2p))
307 if (x2p /= '101') call abort()
340 subroutine test4(x1,x2,x3,x4,x1p,x2p,x6,x7,x8,x9,x10,x11,n) argument
344 character(len=*), pointer :: x2p local
354 namelist /nml2/ x1, x2, x3, x4,x5,x1p,x2p,x6,x7,x8,x9,x10,x11,x12 local
371 x2p = repeat('X', len(x2p))
410 if (x2p /= '101') call abort()