rt_gccstream/gcc/testsuite/gfortran.dg/logical_comp.f90

10 lines
256 B
Fortran

! { dg-do compile }
! PR fortran/22503, PR fortran/32899
! Suggest use of appropriate comparison operator
program foo
logical :: b
b = b .eq. b ! { dg-error "must be compared with" }
b = b .ne. b ! { dg-error "must be compared with" }
end program