gcc/testsuite/gfortran.dg/gomp/free-1.f90 - gcc - Git at Google

 ! { dg-require-effective-target tls }

 subroutine foo
 integer, save :: i ! Some comment
 !$omp threadpri&
       !$omp&vate (i)
 i = 1
 end subroutine
	! { dg-require-effective-target tls }

	subroutine foo
	integer, save :: i ! Some comment
	!$omp threadpri&
	!$omp&vate (i)
	i = 1
	end subroutine