gcc/testsuite/gfortran.dg/gomp/omp_do_concurrent.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fopenmp" }
   3 !
   4 ! PR fortran/60127
   5 !
   6 ! OpenMP 4.0 doesn't permit DO CONCURRENT (yet)
   7 !
   8
   9 !$omp do
  10 do concurrent(i=1:5) ! { dg-error "OMP DO cannot be a DO CONCURRENT loop" }
  11 print *, 'Hello'
  12 end do
  13 end