gcc/testsuite/g77.f-torture/execute/19990826-0.f

   1 * From: niles@fan745.gsfc.nasa.gov
   2 * To: fortran@gnu.org
   3 * Cc: niles@fan745.gsfc.nasa.gov
   4 * Subject: problem with DNINT() on Linux/Alpha.
   5 * Date: Sun, 06 Jun 1999 16:39:35 -0400
   6 * X-UIDL: 6aa9208d7bda8b6182a095dfd37016b7
   7
   8       IF (DNINT(0.0D0) .NE. 0.) CALL ABORT
   9       STOP
  10       END
  11
  12 * Result on Linux/i386: " 0."  (and every other computer!)
  13 * Result on Linux/alpha: " 3.6028797E+16"
  14
  15 * It seems to work fine if I change it to the generic NINT().  Probably
  16 * a name pollution problem in the new C library, but it seems bad. no?
  17
  18 *       Thanks,
  19 *       Rick Niles.