2 ! { dg-additional-options "-std=f2003 -fall-intrinsics" }
3 ! { dg-require-effective-target tls_runtime }
7 procedure(), pointer :: foo
8 !$omp threadprivate (foo, vi)
23 end module threadprivate4
31 procedure(), pointer :: bar1
33 !$omp threadprivate (/thrc/)
35 procedure(), pointer, save :: bar2
36 !$omp threadprivate (bar2)
39 call omp_set_dynamic (.false
.)
40 call omp_set_num_threads (4)
42 !$omp parallel num_threads (4) reduction (.or.:l) private (i)
43 i
= omp_get_thread_num ()
79 ! { dg-final { cleanup-modules "threadprivate4" } }