gcc/testsuite/gfortran.dg/coarray_collectives_5.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original -fcoarray=lib" }
   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 "_gfortran_caf_co_max \\(&desc.., 0, &stat1, 0B, 0, 0\\);" 1 "original" } }
  17 ! { dg-final { scan-tree-dump-times "_gfortran_caf_co_min \\(&desc.., 0, &stat2, 0B, 0, 0\\);" 1 "original" } }
  18 ! { dg-final { scan-tree-dump-times "_gfortran_caf_co_sum \\(&desc.., 0, &stat3, 0B, 0\\);" 1 "original" } }