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