Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
a21b85c92aeb0491365dd3fefba9574145955477
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
encapsulate-variable
/
test-fail-target
/
test-encap-06e-fail-target.f90
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