! This is a Fortran file
! for testing
program proggie ! Yes, a program
	integer, parameter :: TWENTY = 20 ! a constant
	print *, "Kon'nichiwa, Photran refactoring engine!"
contains
  
  ! Subroutine comment
  subroutine s(x) ! sub sub
    real, intent(in) :: x ! This is x
    print *, x ! Printing
  end subroutine
  
  subroutine r
  end
end
subroutine q
end

subroutine t
end subroutine ! EOF comment