gcc/testsuite/gfortran.fortran-torture/execute/spec_abs.f90

   1 !pr 14056
   2        INTRINSIC  IABS
   3        INTEGER FF324
   4        IVCOMP = FF324(IABS,-7)
   5        IF (IVCOMP.NE.8) CALL ABORT
   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