Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
0691d8504c5a71e309ebad3e192a5736affef68c
/
.
/
org.eclipse.photran.core.vpg.tests
/
encapsulate-variable-test-code
/
test-encap-02-contains.f90
blob: cb4d6641b520f0ee317bb314178d0e2cbe3cbd6b [
file
] [
log
] [
blame
]
module
mod
implicit
none
integer
::
variable
!
3
,
14
,
8
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