blob: d653f3f6f6ec8384ac0b054ad667a4e9e8f261c2 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fcoarray=single" }
! { dg-compile-aux-modules "coarray_29_1.f90" }
! PR fortran/55272
!
! Contributed by Damian Rouson
program main
use co_sum_module
implicit none
integer score[*]
call co_sum(score)
end program
! { dg-final { cleanup-modules "co_sum_module" } }