1! { dg-do compile } 2! 3! PR fortran/32359 4! Contributed by Bill Long <longb@cray.com> 5 6subroutine test 7 use omp_lib 8 implicit none 9 integer, parameter :: NT = 4 10 integer :: a 11 save 12!$omp threadprivate(a) 13 a = 1 14 15!$ call omp_set_num_threads(NT) 16!$omp parallel 17 print *, omp_get_thread_num(), a 18!$omp end parallel 19 20end subroutine test 21 22! Derived from OpenMP test omp1/F2_6_2_8_5i.f90 23 use omp_lib 24 implicit none 25 integer, parameter :: NT = 4 26 integer :: a = 1 27!$omp threadprivate(a) 28 29!$ call omp_set_num_threads(NT) 30!$omp parallel 31 print *, omp_get_thread_num(), a 32!$omp end parallel 33 34 END 35