1 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.6.1.f90 b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.6.1.f90
new file mode 100644
index 000000000..f1c6c6596
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.6.1.f90
@@ -0,0 +1,24 @@
+! { dg-do compile }
+
+      SUBROUTINE WORK(I, J)
+      INTEGER I,J
+      END SUBROUTINE WORK
+      SUBROUTINE A6_GOOD()
+        INTEGER I, J
+        REAL A(1000)
+        DO 100 I = 1,10
+!$OMP DO
+           DO 100 J = 1,10
+              CALL WORK(I,J)
+            100     CONTINUE        ! !$OMP ENDDO implied here
+!$OMP DO
+        DO 200 J = 1,10
+200        A(I) = I + 1
+!$OMP ENDDO
+!$OMP DO
+        DO 300 I = 1,10
+           DO 300 J = 1,10
+              CALL WORK(I,J)
+300     CONTINUE
+!$OMP ENDDO
+      END SUBROUTINE A6_GOOD