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
30