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