1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.6.2.f90 b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.6.2.f90
new file mode 100644
index 000000000..e13880899
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.6.2.f90
@@ -0,0 +1,15 @@
+! { dg-do compile }
+
+        SUBROUTINE WORK(I, J)
+        INTEGER I,J
+        END SUBROUTINE WORK
+
+        SUBROUTINE A6_WRONG
+        INTEGER I, J
+        DO 100 I = 1,10
+!$OMP DO
+        DO 100 J = 1,10
+        CALL WORK(I,J)
+        100      CONTINUE
+!$OMP ENDDO	! { dg-error "Unexpected ..OMP END DO statement" }
+        END SUBROUTINE A6_WRONG