1! { dg-require-effective-target tls }
2      module omp_threadprivate1
3	common /T/ a
4      end module omp_threadprivate1
5      subroutine bad1
6	use omp_threadprivate1
7!$omp threadprivate (/T/)	! { dg-error "not found" }
8      end subroutine bad1
9      subroutine bad2
10	common /S/ b
11!$omp threadprivate (/S/)
12      contains
13	subroutine bad3
14!$omp parallel copyin (/T/)	! { dg-error "not found" }
15!$omp end parallel		! { dg-error "" }
16	end subroutine bad3
17      end subroutine bad2
18