1! { dg-do compile } 2! { dg-require-effective-target tls } 3 subroutine bad1 4 double precision :: d ! { dg-error "isn't SAVEd" } 5!$omp threadprivate (d) 6 end subroutine bad1 7