gcc/testsuite/gfortran.dg/coarray_collectives_4.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original -fcoarray=single" }
   3 !
   4 ! CO_SUM/CO_MIN/CO_MAX
   5 !
   6 program test
   7   implicit none
   8   intrinsic co_max
   9   integer :: stat1, stat2, stat3
  10   real :: val
  11   call co_max(val, stat=stat1)
  12   call co_min(val, stat=stat2)
  13   call co_sum(val, stat=stat3)
  14 end program test
  15
  16 ! { dg-final { scan-tree-dump-times "stat1 = 0;" 1 "original" } }
  17 ! { dg-final { scan-tree-dump-times "stat2 = 0;" 1 "original" } }
  18 ! { dg-final { scan-tree-dump-times "stat3 = 0;" 1 "original" } }
  19