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