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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

/* The pfpo instruction generated by this code clobbers the r1 register while
   it was still in use.  */

/* { dg-do run } */
/* { dg-options "-O0 -march=z10 -mzarch" } */

int foo(int x)
{
  return x;
}

int bar(int i, float f)
{
  return i;
}

int main()
{
  _Decimal32 d = 7;
  return bar(foo(0x10203040), (float)d) == 0x10203040 ? 0 : 1;
}