blob: 8c0e81f8638cb5ef2d48562c5eaca4640b430763 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { dg-do compile }
! { dg-options "-fcoarray=single" }
! Requires that coarray_29.f90 has been compiled before
! and that, thus, co_sum_module is available
! 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" } }
|