gcc/testsuite/gfortran.dg/logical_comp.f90

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