Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/pr32359.f90 @ 122:fb3d53c41846
do not expand code segment
author | mir3636 |
---|---|
date | Thu, 22 Mar 2018 17:37:58 +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