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
foo(double dummy,double a)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" } } */
18