1 #define FALSE 140
2 #define TRUE 13
3 
feq(x)4 feq (x)
5      long long int x;
6 {
7   if (x == 0)
8     return TRUE;
9   else
10     return FALSE;
11 }
12 
fne(x)13 fne (x)
14      long long int x;
15 {
16   if (x != 0)
17     return TRUE;
18   else
19     return FALSE;
20 }
21 
flt(x)22 flt (x)
23      long long int x;
24 {
25   if (x < 0)
26     return TRUE;
27   else
28     return FALSE;
29 }
30 
fge(x)31 fge (x)
32      long long int x;
33 {
34   if (x >= 0)
35     return TRUE;
36   else
37     return FALSE;
38 }
39 
fgt(x)40 fgt (x)
41      long long int x;
42 {
43   if (x > 0)
44     return TRUE;
45   else
46     return FALSE;
47 }
48 
fle(x)49 fle (x)
50      long long int x;
51 {
52   if (x <= 0)
53     return TRUE;
54   else
55     return FALSE;
56 }
57 
main()58 main ()
59 {
60   if (feq (0LL) != TRUE)
61     abort ();
62   if (feq (-1LL) != FALSE)
63     abort ();
64   if (feq (0x8000000000000000LL) != FALSE)
65     abort ();
66   if (feq (0x8000000000000001LL) != FALSE)
67     abort ();
68   if (feq (1LL) != FALSE)
69     abort ();
70   if (feq (0x7fffffffffffffffLL) != FALSE)
71     abort ();
72 
73   if (fne (0LL) != FALSE)
74     abort ();
75   if (fne (-1LL) != TRUE)
76     abort ();
77   if (fne (0x8000000000000000LL) != TRUE)
78     abort ();
79   if (fne (0x8000000000000001LL) != TRUE)
80     abort ();
81   if (fne (1LL) != TRUE)
82     abort ();
83   if (fne (0x7fffffffffffffffLL) != TRUE)
84     abort ();
85 
86   if (flt (0LL) != FALSE)
87     abort ();
88   if (flt (-1LL) != TRUE)
89     abort ();
90   if (flt (0x8000000000000000LL) != TRUE)
91     abort ();
92   if (flt (0x8000000000000001LL) != TRUE)
93     abort ();
94   if (flt (1LL) != FALSE)
95     abort ();
96   if (flt (0x7fffffffffffffffLL) != FALSE)
97     abort ();
98 
99   if (fge (0LL) != TRUE)
100     abort ();
101   if (fge (-1LL) != FALSE)
102     abort ();
103   if (fge (0x8000000000000000LL) != FALSE)
104     abort ();
105   if (fge (0x8000000000000001LL) != FALSE)
106     abort ();
107   if (fge (1LL) != TRUE)
108     abort ();
109   if (fge (0x7fffffffffffffffLL) != TRUE)
110     abort ();
111 
112   if (fgt (0LL) != FALSE)
113     abort ();
114   if (fgt (-1LL) != FALSE)
115     abort ();
116   if (fgt (0x8000000000000000LL) != FALSE)
117     abort ();
118   if (fgt (0x8000000000000001LL) != FALSE)
119     abort ();
120   if (fgt (1LL) != TRUE)
121     abort ();
122   if (fgt (0x7fffffffffffffffLL) != TRUE)
123     abort ();
124 
125   if (fle (0LL) != TRUE)
126     abort ();
127   if (fle (-1LL) != TRUE)
128     abort ();
129   if (fle (0x8000000000000000LL) != TRUE)
130     abort ();
131   if (fle (0x8000000000000001LL) != TRUE)
132     abort ();
133   if (fle (1LL) != FALSE)
134     abort ();
135   if (fle (0x7fffffffffffffffLL) != FALSE)
136     abort ();
137 
138   exit (0);
139 }
140