gcc/testsuite/gcc.target/s390/load-and-test-fp-1.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-O3 -mzarch" } */
   3
   4 /* a is used after the comparison.  We cannot use load and test here
   5    since it would turn SNaNs into QNaNs.  */
   6
   7 double gl;
   8
   9 double
  10 foo (double dummy, double a)
  11 {
  12   if (a == 0.0)
  13     gl = 1;
  14   return a;
  15 }
  16
  17 /* { dg-final { scan-assembler "cdbr\t" } } */