gcc/testsuite/gfortran.dg/gomp/appendix-a/a.33.1.f90

   1 ! { dg-do compile }
   2 ! { dg-require-effective-target tls_native }
   3
   4       SUBROUTINE INIT(A,B)
   5       REAL A, B
   6         COMMON /XY/ X,Y
   7 !$OMP THREADPRIVATE (/XY/)
   8 !$OMP SINGLE
   9           READ (11) A,B,X,Y
  10 !$OMP END SINGLE COPYPRIVATE (A,B,/XY/)
  11       END SUBROUTINE INIT