Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
73e71635dd4a111800980048c8cedd2a6a62f142
/
.
/
org.eclipse.photran.core.vpg.tests
/
parser-test-code
/
refactoring_test_files
/
extractvariable
/
ExtractVariable.f90
blob: c8798f9ffeeaf54f02e41a4b27aa8a2402ac7c5d [
file
] [
log
] [
blame
]
program
TestExtractVariable
contains
subroutine
Sub
()
integer
::
x
x
=
1
if
(
x
==
1
)
then
x
=
2
end
if
end
subroutine
Sub
end
program
TestExtractVariable