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