1!pr 14056 2 INTRINSIC IABS 3 INTEGER FF324 4 IVCOMP = FF324(IABS,-7) 5 IF (IVCOMP.NE.8) STOP 1 6 END 7 INTEGER FUNCTION FF324(NINT, IDON03) 8 FF324 = NINT(IDON03) + 1 9! **** THE NAME NINT IS A DUMMY ARGUMENT 10! AND NOT AN INTRINSIC FUNCTION REFERENCE ***** 11 RETURN 12 END 13