From edaadf74d4cd2bc4f0ef72456a4a6df8a4502470 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Thu, 2 Dec 2010 15:37:20 +0100 Subject: re PR fortran/46753 (ICE: OpenMP - in extract_omp_for_data, at omp-low.c:335) 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. From-SVN: r167372 --- libgomp/ChangeLog | 3 +++ libgomp/testsuite/libgomp.fortran/pr46753.f90 | 17 +++++++++++++++++ 2 files changed, 20 insertions(+) create mode 100644 libgomp/testsuite/libgomp.fortran/pr46753.f90 (limited to 'libgomp') diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 4317202..f594717 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,5 +1,8 @@ 2010-12-02 Jakub Jelinek + 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 0000000..f4833ab --- /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 -- cgit v1.1