Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.3.1
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
free-1.f90
blob: 3503389cea0ba702107ffcb2ab788d534b3e7b54 [
file
] [
log
] [
blame
]
!
{
dg
-
require
-
effective
-
target tls_native
}
subroutine foo
integer
,
save
::
i
!
Some
comment
!
$omp threadpri
&
!
$omp
&
vate
(
i
)
i
=
1
end
subroutine
