OpenCores
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] - Blame information for rev 303

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
!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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.