1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.26.2.f90 b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.26.2.f90
new file mode 100644
index 000000000..3d43424b6
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.26.2.f90
@@ -0,0 +1,23 @@
+! { dg-do compile }
+
+       MODULE A26_2
+       REAL A
+       CONTAINS
+         SUBROUTINE G(K)
+           REAL K
+           A = K ! This is A in module A26_2, not the private
+                  ! A in F
+         END SUBROUTINE G
+         SUBROUTINE F(N)
+         INTEGER N
+         REAL A
+            INTEGER I
+!$OMP PARALLEL DO PRIVATE(A)
+              DO I = 1,N
+                A=I
+                CALL G(A*2)
+              ENDDO
+!$OMP END PARALLEL DO
+          END SUBROUTINE F
+      END MODULE A26_2
+! { dg-final { cleanup-modules "A26_2" } }