1 /*
2    960215-1.c from the execute part of the gcc torture suite.
3  */
4 
5 #include <testfwk.h>
6 
7 #ifdef __SDCC
8 #pragma std_c99
9 #endif
10 
11 // TODO: Enable when sdcc supports long double!
12 #if 0
13 long double C = 2;
14 long double U = 1;
15 long double Y2 = 3;
16 long double Y1 = 1;
17 long double X, Y, Z, T, R, S;
18 #endif
19 
20 void
testTortureExecute(void)21 testTortureExecute (void)
22 {
23 #if 0
24   X = (C + U) * Y2;
25   Y = C - U - U;
26   Z = C + U + U;
27   T = (C - U) * Y1;
28   X = X - (Z + U);
29   R = Y * Y1;
30   S = Z * Y2;
31   T = T - Y;
32   Y = (U - Y) + R;
33   Z = S - (Z + U + U);
34   R = (Y2 + U) * Y1;
35   Y1 = Y2 * Y1;
36   R = R - Y2;
37   Y1 = Y1 - 0.5L;
38   if (Z != 6)
39     ASSERT (0);
40   return;
41 #endif
42 }
43 
44