gcc/testsuite/gcc.c-torture/execute/990826-0.c

   1 /*
   2 From: niles@fan745.gsfc.nasa.gov
   3 To: fortran@gnu.org
   4 Subject: Re: Scary problems in g77 for RedHat 6.0. (glibc-2.1)
   5 Date: Sun, 06 Jun 1999 23:37:23 -0400
   6 X-UIDL: 9c1e40c572e3b306464f703461764cd5
   7 */
   8
   9 /* { dg-xfail-if "Can not call system libm.a with -msoft-float" { powerpc-*-aix* rs6000-*-aix* } { "-msoft-float" } { "" } } */
  10
  11 #include <stdio.h>
  12 #include <math.h>
  13
  14 int
  15 main()
  16 {
  17   if (floor (0.1) != 0.)
  18     abort ();
  19   return 0;
  20 }
  21
  22 /*
  23 It will result in 36028797018963968.000000 on Alpha RedHat Linux 6.0
  24 using glibc-2.1 at least on my 21064.  This may result in g77 bug
  25 reports concerning the INT() function, just so you know.
  26
  27         Thanks,
  28         Rick Niles.
  29 */