Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
879df9ffea483467329a5df64b58caf98263522a
/
.
/
org.eclipse.photran.core.vpg.tests
/
parser-test-code
/
refactoring_test_files
/
introduceimplicitnone
/
Subroutine2RefactoringsBefore.f90
blob: 41e5075ecbc1d55cd168252515694b304afd914c [
file
] [
log
] [
blame
]
program
Hello
integer
::
i
=
3
call
Sub
(
i
+
1
)
print
*,
"The integer is "
,
i
contains
subroutine
Sub
(
i
)
x
=
i
print
*,
x
end
subroutine
Sub
subroutine
SomeSub
(
y
,
z
)
x
=
y
+
z
y
=
22
z
=
y
+
z
print
*,
x
end
subroutine
SomeSub
end
program