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