gcc/testsuite/gfortran.dg/coarray_collectives_13.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=single -std=f2008" }
   3 !
   4 !
   5 ! CO_REDUCE/CO_BROADCAST
   6 !
   7 program test
   8   implicit none
   9   intrinsic co_reduce ! { dg-error "is not available in the current standard settings but new in Fortran 2018." }
  10   intrinsic co_broadcast ! { dg-error "is not available in the current standard settings but new in Fortran 2018." }
  11 end program test