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