old-autovect-branch/gcc/testsuite/gfortran.dg/g77/19990826-0.f

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