mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
14 lines
234 B
Fortran
14 lines
234 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fcoarray=single" }
|
|
|
|
! To be used by coarray_29_2.f90
|
|
! PR fortran/55272
|
|
|
|
module co_sum_module
|
|
implicit none
|
|
contains
|
|
subroutine co_sum(scalar)
|
|
integer scalar[*]
|
|
end subroutine
|
|
end module
|