org.eclipse.photran.core.vpg.tests/intro-implicit-test-code/bigexpression.f90

program p
	integer :: hello
	intrinsic flush
	call s
	call flush; stop
contains
	subroutine s
		parameter (THREE = 3)
		print *, THREE + 2 + 63 * twice(4)
	end subroutine

	integer function twice(n)
		intent(in) :: n
		twice = 2 * n
	end function
end program