1! { dg-require-effective-target tls }
2
3subroutine foo
4integer, save :: i ! Some comment
5!$omp threadpri&
6      !$omp&vate (i)
7i = 1
8end subroutine
9