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