blob: a961b291c3a05a45fa0295fb5595b307918cbf8c [file] [log] [blame]
! { dg-do compile }
! PR fortran/22503
! Suggest use of appropriate comparison operator
program foo
logical :: b
b = b .eq. b ! { dg-error ".EQV. instead of .eq." }
b = b .ne. b ! { dg-error ".NEQV. instead of .ne." }
end program