xref: /llvm-project/flang/test/Semantics/resolve98.f90 (revision 6c1ac141d3c98af9738bc77fcb55602cbff7751f)
1! RUN: %python %S/test_errors.py %s %flang_fc1
2! Errors when comparing LOGICAL operands
3
4program testCompare
5  logical flag1, flag2
6  if (flag1 .eqv. .false.) continue
7  if (flag1 .neqv. flag2) continue
8  !ERROR: LOGICAL operands must be compared using .EQV. or .NEQV.
9  if (flag1 .eq. .false.) continue
10  !ERROR: LOGICAL operands must be compared using .EQV. or .NEQV.
11  if (flag1 .ne. flag2) continue
12end program testCompare
13