blob: 4500aa8078497ef0c8927946072d1f9c1926991c [file] [log] [blame]
module m
parameter (p = -1.) ! negative numbers used to get output incorrectly
end module m
use m
if (p .ne. -1.) STOP 1
end