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