URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [spec_abs.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`!pr 14056`	`!pr 14056`
`INTRINSIC IABS`	`INTRINSIC IABS`
`INTEGER FF324`	`INTEGER FF324`
`IVCOMP = FF324(IABS,-7)`	`IVCOMP = FF324(IABS,-7)`
`IF (IVCOMP.NE.8) CALL ABORT`	`IF (IVCOMP.NE.8) CALL ABORT`
`END`	`END`
`INTEGER FUNCTION FF324(NINT, IDON03)`	`INTEGER FUNCTION FF324(NINT, IDON03)`
`FF324 = NINT(IDON03) + 1`	`FF324 = NINT(IDON03) + 1`
`! **** THE NAME NINT IS A DUMMY ARGUMENT`	`! **** THE NAME NINT IS A DUMMY ARGUMENT`
`! AND NOT AN INTRINSIC FUNCTION REFERENCE *****`	`! AND NOT AN INTRINSIC FUNCTION REFERENCE *****`
`RETURN`	`RETURN`
`END`	`END`