| program fool | |
| real foo | |
| integer n | |
| logical t | |
| foo = 2.5 | |
| n = 5 | |
| t = (n > foo) | |
| if (t .neqv. .true.) call abort | |
| t = (n >= foo) | |
| if (t .neqv. .true.) call abort | |
| t = (n < foo) | |
| if (t .neqv. .false.) call abort | |
| t = (n <= 5) | |
| if (t .neqv. .true.) call abort | |
| t = (n >= 5 ) | |
| if (t .neqv. .true.) call abort | |
| t = (n == 5) | |
| if (t .neqv. .true.) call abort | |
| t = (n /= 5) | |
| if (t .neqv. .false.) call abort | |
| t = (n /= foo) | |
| if (t .neqv. .true.) call abort | |
| t = (n == foo) | |
| if (t .neqv. .false.) call abort | |
| end |