Mercurial > hg > CbC > CbC_gcc
comparison libgomp/testsuite/libgomp.fortran/allocatable5.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 | |
children | 84e7813d76e9 |
comparison
equal
deleted
inserted
replaced
56:3c8a44c06a95 | 63:b7f97abdc517 |
---|---|
1 ! PR fortran/42866 | |
2 ! { dg-do run } | |
3 | |
4 program pr42866 | |
5 integer, allocatable :: a(:) | |
6 allocate (a(16)) | |
7 a = 0 | |
8 !$omp parallel | |
9 !$omp sections reduction(+:a) | |
10 a = a + 1 | |
11 !$omp section | |
12 a = a + 2 | |
13 !$omp end sections | |
14 !$omp end parallel | |
15 if (any (a.ne.3)) call abort | |
16 deallocate (a) | |
17 end |