1! { dg-do compile }
2! { dg-options "-fcoarray=single" }
3! { dg-compile-aux-modules "coarray_29_1.f90" }
4
5! PR fortran/55272
6!
7! Contributed by Damian Rouson
8
9program main
10  use co_sum_module
11  implicit none
12  integer score[*]
13  call co_sum(score)
14end program
15
16! { dg-final { cleanup-modules "co_sum_module" } }
17