gcc/testsuite/gfortran.dg/logical_comp.f90

   1 ! { dg-do compile }
   2 ! PR fortran/22503, PR fortran/32899
   3 ! Suggest use of appropriate comparison operator
   4
   5 program foo
   6   logical :: b
   7   b = b .eq. b  ! { dg-error "must be compared with" }
   8   b = b .ne. b  ! { dg-error "must be compared with" }
   9 end program