URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [spec_abs.f90] - Rev 308
Go to most recent revision | Compare with Previous | Blame | View Log
!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
Go to most recent revision | Compare with Previous | Blame | View Log