Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
8054e6abc66e97e444cd584567bd8fa652ab6e95
/
.
/
org.eclipse.photran.core.vpg.tests
/
parser-test-code
/
refactoring_test_files
/
extractvariable
/
ExtractVariableAfter.f90
blob: 014e0555fa578fe4e545a953f81d97e302ea4f55 [
file
] [
log
] [
blame
]
program
TestExtractVariable
contains
subroutine
Sub
()
integer
::
x
logical
::
y
x
=
1
y
=
(
x
==
1
)
if
(
y
)
then
x
=
2
end
if
end
subroutine
Sub
end
program
TestExtractVariable