OSDN Git Service

fortran/
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.target / i386 / pr26778.c
1 /* { dg-do compile { target ilp32 } } */
2 /* { dg-options "-O2 -march=pentium3" } */
3
4 typedef union {
5   long long l;
6   double d;
7 } db_number;
8
9 double test(double x[3]) {
10   double th = x[1] + x[2];
11   if (x[2] != th - x[1]) {
12     db_number thdb;
13     thdb.d = th;
14     thdb.l++;
15     th = thdb.d;
16   }
17   return x[0] + th;
18 }
19
20 /* { dg-final { scan-assembler-not "mov.ps" } } */