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
|