org.eclipse.photran.core.vpg.tests/parser-test-code/refactoring_test_files/introduceimplicitnone/Subroutine2RefactoringsBefore.f90

program Hello
  integer :: i = 3

  call Sub(i + 1)

  print *, "The integer is ", i
  
contains

subroutine Sub(i)
  
  x = i
  print *, x
  
end subroutine Sub


subroutine SomeSub(y,z)
  
  x = y + z
  y = 22
  z = y + z
  print *, x
  
end subroutine SomeSub

end program