3 logical :: a(2) = (mod([2,3],0) == 0) ! { dg-error "shall not be zero" }
4 integer :: b
= count(mod([2,3],0) == 0) ! { dg-error "shall not be zero" }
5 integer :: c
= all(mod([2,3],0) == 0) ! { dg-error "shall not be zero" }
6 integer :: d
= any(mod([2,3],0) == 0) ! { dg-error "shall not be zero" }
