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