diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-12-02 14:37:20 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-12-02 14:37:20 +0000 |
| commit | ffa793638d3507c183f455f2390af1d70d87a102 (patch) | |
| tree | 236b730968c457a7cee43f76f47f16b4b5f2cc97 /libgomp | |
| parent | 0b810b104b1805bd0febbf6980e929ab359ff1ad (diff) | |
| download | gcc-ffa793638d3507c183f455f2390af1d70d87a102.tar.gz | |
PR fortran/46753
* trans-openmp.c (gfc_trans_omp_do): Use build2_loc instead of
fold_build2_loc for OMP_FOR conditions.
* libgomp.fortran/pr46753.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167372 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgomp')
| -rw-r--r-- | libgomp/ChangeLog | 3 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/pr46753.f90 | 17 |
2 files changed, 20 insertions, 0 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 4317202b211..f59471743f4 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,5 +1,8 @@ 2010-12-02 Jakub Jelinek <jakub@redhat.com> + PR fortran/46753 + * libgomp.fortran/pr46753.f90: New test. + PR libgomp/43706 * env.c (initialize_env): Default to spin count 300000 instead of 20000000 if neither OMP_WAIT_POLICY nor GOMP_SPINCOUNT diff --git a/libgomp/testsuite/libgomp.fortran/pr46753.f90 b/libgomp/testsuite/libgomp.fortran/pr46753.f90 new file mode 100644 index 00000000000..f4833abc845 --- /dev/null +++ b/libgomp/testsuite/libgomp.fortran/pr46753.f90 @@ -0,0 +1,17 @@ +! PR fortran/46753 +! { dg-do run } + + integer :: i, j + j = 0 +!$omp parallel do reduction(+:j) + do i = 2147483636, 2147483646 + j = j + 1 + end do + if (j.ne.11) call abort + j = 0 +!$omp parallel do reduction(+:j) + do i = -2147483637, -2147483647, -1 + j = j + 1 + end do + if (j.ne.11) call abort +end |