gcc/testsuite/gfortran.dg/g77/le.f

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