blob: 6e154f48ef1c13cce6702575086a572556676a5b [file] [log] [blame]
program testpointer !<<<<< 1,1,fail-final
integer, pointer :: p
integer :: q,x,y,z
parameter ( x = 1 )
data p, y / null(), 1 /
parameter ( q = 3 )
parameter ( z = 2 )
end program testpointer