blob: 4d181cba631eb90c5273596c509264ec40263d1f [file] [log] [blame]
module mod
implicit none
integer, target :: int
end module
program encap1
use mod
implicit none
integer, pointer :: ptr !<<<<< 3, 22, 3, fail-initial
int = 3
ptr => int
int = 4
print *, ptr
end program encap1