org.eclipse.photran.core.vpg.tests/parser-test-code/refactoring_test_files/extractvariable/ExtractVariableAfter.f90

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