Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
65cdf33e0d42740b5aebad638082ce794093e0f0
/
.
/
org.eclipse.photran.core.vpg.tests
/
parser-test-code
/
refactoring_test_files
/
rename
/
Test3Original.f90
blob: 091fbdc0db69d1c145a0a5264f78128d9b4f60bf [
file
] [
log
] [
blame
]
program
Hello
integer
::
i
=
3
call
Sub
(
i
+
1
)
print
*,
"The integer is "
,
i
contains
subroutine
Sub
(
x
)
integer
,
intent
(
in
)
::
x
print
*,
"In the subroutine, the integer is "
,
x
end
subroutine
Sub
end
program