Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/pr32359.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | a06113de4d67 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR fortran/32359 ! Contributed by Bill Long <longb@cray.com> subroutine test use omp_lib implicit none integer, parameter :: NT = 4 integer :: a save !$omp threadprivate(a) a = 1 !$ call omp_set_num_threads(NT) !$omp parallel print *, omp_get_thread_num(), a !$omp end parallel end subroutine test ! Derived from OpenMP test omp1/F2_6_2_8_5i.f90 use omp_lib implicit none integer, parameter :: NT = 4 integer :: a = 1 !$omp threadprivate(a) !$ call omp_set_num_threads(NT) !$omp parallel print *, omp_get_thread_num(), a !$omp end parallel END