Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
447bcda044e2119a1f5268604416771d7095b922
/
.
/
org.eclipse.photran.core.vpg.tests
/
encapsulate-variable-test-code
/
test-encap-06b-fail-pointer.f90
blob: 24519cc3c4e76e5b0f1b65ddeaa13c00a95041fc [
file
] [
log
] [
blame
]
module
mod
implicit
none
integer
,
pointer
::
ptr
!
3
,
23
,
3
end
module
program encap1
use
mod
implicit
none
integer
,
target
::
int
int
=
3
ptr
=>
int
int
=
4
print
*,
ptr
end
program encap1