! Testing behavior of pass-by-reference

integer, parameter :: q = 1

call s(1)  ! Can't byref (literal)

n = 1
call s(n)  ! Can byref (variable)
print *, "Expected:", 2, "Actual:", n

call s(q)  ! Can't byref (parameter)
print *, "Expected:", 1, "Actual:", q

stop

contains
	subroutine s(p)
		integer :: p
		p = 2
		print *, "Expected:", 2, "Actual:", p
	end subroutine
end