gcc/testsuite/g77.f-torture/execute/le.f

   1       program fool
   2
   3       real     foo
   4       integer  n
   5       logical  t
   6
   7       foo = 2.5
   8       n = 5
   9
  10       t = (n > foo)
  11       if (t .neqv. .true.) call abort
  12       t = (n >= foo)
  13       if (t .neqv. .true.) call abort
  14       t = (n < foo)
  15       if (t .neqv. .false.) call abort
  16       t = (n <= 5)
  17       if (t .neqv. .true.) call abort
  18       t = (n >= 5 )
  19       if (t .neqv. .true.) call abort
  20       t = (n == 5)
  21       if (t .neqv. .true.) call abort
  22       t = (n /= 5)
  23       if (t .neqv. .false.) call abort
  24       t = (n /= foo)
  25       if (t .neqv. .true.) call abort
  26       t = (n == foo)
  27       if (t .neqv. .false.) call abort
  28
  29       end