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
|
