Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
e5f6fab10b208de0002e882eee13cb3914e0f532
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
encapsulate-variable
/
test-expr
/
test-encap-03-expr.f90
blob: 97a3fe653df5268d0a26cfa204199e2e3e82ddf7 [
file
] [
log
] [
blame
]
module
mod
implicit
none
integer
::
variable
!<<<<<
3
,
14
,
8
,
pass
end
module
program encap1
use
mod
implicit
none
variable
=
3
!
9
+
1
variable
=
variable
*
variable
+
(
variable
-
2
)
print
*,
variable
,
" should be equal to "
,
10
end
program encap1