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

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