1! { dg-do compile } 2! { dg-options "-fcoarray=single" } 3 4! To be used by coarray_29_2.f90 5! PR fortran/55272 6 7module co_sum_module 8 implicit none 9contains 10 subroutine co_sum(scalar) 11 integer scalar[*] 12 end subroutine 13end module 14