blob: 685672f1dbdd720934a6072fe331c4a6cc65dce0 (
plain)
1
2
3
4
5
6
7
|
! { dg-do compile }
program p
logical :: a(2) = (mod([2,3],0) == 0) ! { dg-error "shall not be zero" }
integer :: b = count(mod([2,3],0) == 0) ! { dg-error "shall not be zero" }
integer :: c = all(mod([2,3],0) == 0) ! { dg-error "shall not be zero" }
integer :: d = any(mod([2,3],0) == 0) ! { dg-error "shall not be zero" }
end
|