Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
a21b85c92aeb0491365dd3fefba9574145955477
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
encapsulate-variable
/
test-contains
/
test-encap-02-contains.f90
blob: 94e3c641c14ae7ba225f8a846a8187c6bb06bf42 [
file
] [
log
] [
blame
]
module
mod
implicit
none
integer
::
variable
!<<<<<
3
,
14
,
8
,
pass
contains
integer
function
three
()
three
=
3
end
function
end
module
program encap1
use
mod
implicit
none
print
*,
variable
variable
=
3
print
*,
variable
end
program encap1