1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.34.2.f90 b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.34.2.f90
new file mode 100644
index 000000000..980a62372
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.34.2.f90
@@ -0,0 +1,22 @@
+! { dg-do compile }
+      SUBROUTINE WORK(I, J)
+      INTEGER I, J
+      END SUBROUTINE WORK
+      SUBROUTINE WORK1(I, N)
+      INTEGER J
+!$OMP PARALLEL DEFAULT(SHARED)
+!$OMP DO
+         DO J = 1, N
+           CALL WORK(I,J)
+         END DO
+!$OMP END PARALLEL
+      END SUBROUTINE WORK1
+      SUBROUTINE GOOD_NESTING2(N)
+      INTEGER N
+!$OMP PARALLEL DEFAULT(SHARED)
+!$OMP DO
+      DO I = 1, N
+          CALL WORK1(I, N)
+      END DO
+!$OMP END PARALLEL
+      END SUBROUTINE GOOD_NESTING2