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
10do concurrent(i=1:5) ! { dg-error "OMP DO cannot be a DO CONCURRENT loop" }
11print *, 'Hello'
12end do
13end
14