Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
c2ca9f1333ac8dac834dc58836065a2f7445529e
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
encapsulate-variable
/
module1.f90.result
blob: 593f3272be113602e97ef5821261ee16a45ec39f [
file
] [
log
] [
blame
]
module
module1
implicit
none
integer
::
i
,
j
,
k
private
::
i
contains
subroutine setI
(
value
)
implicit
none
integer
,
intent
(
in
)
::
value
i
=
value
end
subroutine
integer
function
getI
()
implicit
none
getI
=
i
end
function
end
module