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

     1  /* Copyright (C) 2002  Free Software Foundation.
     2  
     3     Ensure that fabs(x) < 0.0 optimization is working.
     4  
     5     Written by Roger Sayle, 20th July 2002.  */
     6  
     7  extern void abort (void);
     8  extern double fabs (double);
     9  extern void link_error (void);
    10  
    11  void
    12  foo (double x)
    13  {
    14    double p, q;
    15  
    16    p = fabs (x);
    17    q = 0.0;
    18    if (p < q)
    19      link_error ();
    20  }
    21  
    22  int
    23  main()
    24  {
    25    foo (1.0);
    26    return 0;
    27  }
    28  
    29  #ifndef __OPTIMIZE__
    30  void
    31  link_error ()
    32  {
    33    abort ();
    34  }
    35  #endif
    36