annotate libgomp/testsuite/libgomp.fortran/pr35130.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/35130
|
|
2
|
|
3 program pr35130
|
|
4 implicit none
|
|
5 real, dimension(20) :: a
|
|
6 integer :: k
|
|
7 a(:) = 0.0
|
|
8 !$omp parallel do private(k)
|
|
9 do k=1,size(a)
|
|
10 call inner(k)
|
|
11 end do
|
|
12 !$omp end parallel do
|
|
13 if (any (a.ne.42)) call abort
|
|
14 contains
|
|
15 subroutine inner(i)
|
|
16 implicit none
|
|
17 integer :: i
|
|
18 a(i) = 42
|
|
19 end subroutine inner
|
|
20 end program pr35130
|