1module m 2 parameter (p = -1.) ! negative numbers used to get output incorrectly 3end module m 4 5use m 6if (p .ne. -1.) STOP 1 7end 8