1! { dg-do compile } 2! { dg-require-effective-target tls } 3 4 SUBROUTINE A22_6_GOOD() 5 COMMON /T/ A 6!$OMP THREADPRIVATE(/T/) 7 CONTAINS 8 SUBROUTINE A22_6S_GOOD() 9 COMMON /T/ A 10!$OMP THREADPRIVATE(/T/) 11!$OMP PARALLEL COPYIN(/T/) 12!$OMP END PARALLEL 13 END SUBROUTINE A22_6S_GOOD 14 END SUBROUTINE A22_6_GOOD 15