Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/pr32359.f90 @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 ! { dg-do compile }
2 !
3 ! PR fortran/32359
4 ! Contributed by Bill Long <longb@cray.com>
5
6 subroutine 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
20 end 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