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