Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
879df9ffea483467329a5df64b58caf98263522a
/
.
/
org.eclipse.photran.core.vpg.tests
/
encapsulate-variable-test-code
/
test-encap-03-expr.f90
blob: 72827d7dd91dc82da18f280f5e01df7bd5be2092 [
file
] [
log
] [
blame
]
module
mod
implicit
none
integer
::
variable
!
3
,
14
,
8
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