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