modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/execute/990826-0.c (about)

     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  */