Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
0691d8504c5a71e309ebad3e192a5736affef68c
/
.
/
org.eclipse.photran.core.vpg.tests
/
encapsulate-variable-test-code
/
test-simple01.f90
blob: 79a0e596e59a93040cdd17dd108e99ce6647dcd7 [
file
] [
log
] [
blame
]
program main
use
module1
implicit
none
integer
::
blah
blah
=
i
+
j
+
k
!
6
,
12
,
1
i
=
blah
+
j
call mult
(
i
,
j
,
blah
)
contains
subroutine mult
(
a
,
b
,
c
)
integer
,
intent
(
in
)
::
a
,
b
,
c
integer
::
temp
temp
=
a
*
b
*
c
end
subroutine
end
program