gcc/testsuite/gcc.target/s390/pfpo.c

   1 /* The pfpo instruction generated by this code clobbers the r1 register while
   2    it was still in use.  */
   3
   4 /* { dg-do run } */
   5 /* { dg-options "-O0 -march=z10 -mzarch" } */
   6
   7 int foo(int x)
   8 {
   9   return x;
  10 }
  11
  12 int bar(int i, float f)
  13 {
  14   return i;
  15 }
  16
  17 int main()
  18 {
  19   _Decimal32 d = 7;
  20   return bar(foo(0x10203040), (float)d) == 0x10203040 ? 0 : 1;
  21 }