summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/execute/spec_abs.f90
blob: be8e3f7487bc72ec95831f9246ddb35791ba2877 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
!pr 14056
       INTRINSIC  IABS
       INTEGER FF324
       IVCOMP = FF324(IABS,-7)
       IF (IVCOMP.NE.8) CALL ABORT
       END
      INTEGER FUNCTION FF324(NINT, IDON03)
      FF324 = NINT(IDON03) + 1
!          **** THE NAME NINT IS A DUMMY ARGUMENT
!                   AND NOT AN INTRINSIC FUNCTION REFERENCE *****
      RETURN
      END