1! { dg-do compile }
2!
3! CO_SUM/CO_MIN/CO_MAX
4!
5program test
6 implicit none
7 intrinsic co_max
8 integer :: val
9 call co_max(val) ! { dg-error "Coarrays disabled at .1., use '-fcoarray=' to enable" }
10end program test
11! { dg-excess-errors "compilation terminated" }
12