blob: 8819a2f8e4e9e3be48dada6bece5dbab5241a4a3 (
plain)
1
2
3
4
5
6
7
8
|
! { dg-do compile }
! Test checks on modulo with p == 0
program p
logical :: a(2) = (modulo([2,3],0) == 0) ! { dg-error "shall not be zero" }
integer :: b = count(modulo([2,3],0) == 0) ! { dg-error "shall not be zero" }
integer :: c = all(modulo([2,3],0) == 0) ! { dg-error "shall not be zero" }
integer :: d = any(modulo([2,3],0) == 0) ! { dg-error "shall not be zero" }
end program
|
