1! { dg-do compile }
2! { dg-require-effective-target tls }
3
4      SUBROUTINE A22_5_WRONG()
5        COMMON /T/ A
6!$OMP THREADPRIVATE(/T/)
7        CONTAINS
8          SUBROUTINE A22_5S_WRONG()
9!$OMP PARALLEL COPYIN(/T/)	! { dg-error "COMMON block" }
10      !non-conforming because /T/ not declared in A22_5S_WRONG
11!$OMP END PARALLEL		! { dg-error "Unexpected" }
12          END SUBROUTINE A22_5S_WRONG
13      END SUBROUTINE A22_5_WRONG
14