1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.33.4.f90 b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.33.4.f90
new file mode 100644
index 000000000..7a9e1840b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.33.4.f90
@@ -0,0 +1,19 @@
+! { dg-do compile }
+        SUBROUTINE S(N)
+        INTEGER N
+        REAL, DIMENSION(:), ALLOCATABLE :: A
+        REAL, DIMENSION(:), POINTER :: B
+        ALLOCATE (A(N))
+!$OMP SINGLE
+            ALLOCATE (B(N))
+        READ (11) A,B
+!$OMP END SINGLE COPYPRIVATE(A,B)
+        ! Variable A designates a private object
+        !   which has the same value in each thread
+        ! Variable B designates a shared object
+!$OMP BARRIER
+!$OMP SINGLE
+          DEALLOCATE (B)
+!$OMP END SINGLE NOWAIT
+      END SUBROUTINE S
+