Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
3d8d6c031fe2055f48f724ff2a34ff21191b2fce
/
.
/
org.eclipse.photran.core.vpg.tests
/
parser-test-code
/
refactoring_test_files
/
introduceimplicitnone
/
SubroutineThatHasAnImplicitStmt.f90
blob: a053466efa5a173b049876e5c5acbe2ca8390af2 [
file
] [
log
] [
blame
]
program
Hello
integer
::
i
=
3
call
Sub
(
i
+
1
)
print
*,
"The integer is "
,
i
contains
subroutine
Sub
(
i
)
implicit
none
integer
::
i
real
::
x
x
=
i
print
*,
x
end
subroutine
Sub
end
program