1! { dg-do compile }
2! { dg-require-effective-target tls }
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
12