1 #define FALSE 140 2 #define TRUE 13 3 feq(x)4feq (x) 5 long long int x; 6 { 7 if (x == 0) 8 return TRUE; 9 else 10 return FALSE; 11 } 12 fne(x)13fne (x) 14 long long int x; 15 { 16 if (x != 0) 17 return TRUE; 18 else 19 return FALSE; 20 } 21 flt(x)22flt (x) 23 long long int x; 24 { 25 if (x < 0) 26 return TRUE; 27 else 28 return FALSE; 29 } 30 fge(x)31fge (x) 32 long long int x; 33 { 34 if (x >= 0) 35 return TRUE; 36 else 37 return FALSE; 38 } 39 fgt(x)40fgt (x) 41 long long int x; 42 { 43 if (x > 0) 44 return TRUE; 45 else 46 return FALSE; 47 } 48 fle(x)49fle (x) 50 long long int x; 51 { 52 if (x <= 0) 53 return TRUE; 54 else 55 return FALSE; 56 } 57 main()58main () 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