annotate libgomp/testsuite/libgomp.fortran/pr27416-1.f90 @ 63:b7f97abdc517
gcc-4.6-20100522
update gcc from gcc-4.5.0 to gcc-4.6
author |
ryoma <e075725@ie.u-ryukyu.ac.jp> |
date |
Mon, 24 May 2010 12:47:05 +0900 |
parents |
a06113de4d67 |
children |
84e7813d76e9 |
rev |
line source |
0
|
1 ! PR middle-end/27416
|
|
2 ! { dg-do run }
|
|
3
|
|
4 integer :: j
|
|
5 j = 6
|
|
6 !$omp parallel num_threads (4)
|
|
7 call foo (j)
|
|
8 !$omp end parallel
|
|
9 if (j.ne.6+16) call abort
|
|
10 end
|
|
11
|
|
12 subroutine foo (j)
|
|
13 integer :: i, j
|
|
14
|
|
15 !$omp do firstprivate (j) lastprivate (j)
|
|
16 do i = 1, 16
|
|
17 if (i.eq.16) j = j + i
|
|
18 end do
|
|
19 end subroutine foo
|