gcc/testsuite/gfortran.dg/coarray_29_2.f90

   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
   9 program main
  10   use co_sum_module
  11   implicit none
  12   integer score[*]
  13   call co_sum(score)
  14 end program
  15
  16 ! { dg-final { cleanup-modules "co_sum_module" } }