OSDN Git Service

* c-cppbuiltin.c (c_cpp_builtins): Change _OPENMP value to
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / gomp / appendix-a / a.35.4.f90
index e449522..f130dd5 100644 (file)
@@ -8,7 +8,7 @@
           DO I = 1, N
              CALL WORK(I, 1)
 ! incorrect nesting of barrier region in a loop region
-!$OMP BARRIER
+!$OMP BARRIER  ! { dg-warning "may not be closely nested" }
              CALL WORK(I, 2)
           END DO
 !$OMP END PARALLEL