flang/test/Semantics/resolve98.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3 ! Errors when comparing LOGICAL operands
   4
   5 program testCompare
   6   logical flag1, flag2
   7   if (flag1 .eqv. .false.) continue
   8   if (flag1 .neqv. flag2) continue
   9   !ERROR: LOGICAL operands must be compared using .EQV. or .NEQV.
  10   if (flag1 .eq. .false.) continue
  11   !ERROR: LOGICAL operands must be compared using .EQV. or .NEQV.
  12   if (flag1 .ne. flag2) continue
  13 end program testCompare