summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/logical_comp.f90
blob: bbf81260ba645b150d95a656e84f0c244d6f7e02 (plain)
1
2
3
4
5
6
7
8
9
! { 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