OSDN Git Service

68cc8f0cef15ca461bc4387f72133628fd96df9c
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / ieee / rbug.c
1 double d (unsigned long long k)
2 {
3   double x;
4
5   x = (double) k;
6   return x;
7 }
8
9 float s (unsigned long long k)
10 {
11   float x;
12
13   x = (float) k;
14   return x;
15 }
16
17 main ()
18 {
19   unsigned long long int k;
20   double x;
21
22   if (sizeof (double) >= 8)
23     {
24       k = 0x8693ba6d7d220401ULL;
25       x = d (k);
26       k = (unsigned long long) x;
27       if (k != 0x8693ba6d7d220800ULL)
28         abort ();
29     }
30
31   k = 0x8234508000000001ULL;
32   x = s (k);
33   k = (unsigned long long) x;
34   if (k != 0x8234510000000000ULL)
35     abort ();
36
37   exit (0);
38 }
39