diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2006-05-15 11:59:30 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2006-05-15 11:59:30 +0200 |
| commit | eeb1d9e08e920796ba71d81765f5a9fdf54af25e (patch) | |
| tree | f98104c0cbb328853171038be84319686e79eb83 /libgomp | |
| parent | 5b8fdd1fade31b12b6b33d4598f0e8c14caed3b4 (diff) | |
| download | gcc-eeb1d9e08e920796ba71d81765f5a9fdf54af25e.zip gcc-eeb1d9e08e920796ba71d81765f5a9fdf54af25e.tar.gz gcc-eeb1d9e08e920796ba71d81765f5a9fdf54af25e.tar.bz2 | |
re PR middle-end/27416 (ICE on invalid firstprivate/lastprivate)
PR middle-end/27416
* omp-low.c (build_outer_var_ref): If VAR is reference in orphaned
construct, return *VAR.
* libgomp.fortran/pr27416-1.f90: New test.
From-SVN: r113788
Diffstat (limited to 'libgomp')
| -rw-r--r-- | libgomp/ChangeLog | 5 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/pr27416-1.f90 | 19 |
2 files changed, 24 insertions, 0 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index d04194c..3cf357e 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,8 @@ +2006-05-15 Jakub Jelinek <jakub@redhat.com> + + PR middle-end/27416 + * libgomp.fortran/pr27416-1.f90: New test. + 2006-05-03 Jakub Jelinek <jakub@redhat.com> PR fortran/27395 diff --git a/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 b/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 new file mode 100644 index 0000000..d42e1ef --- /dev/null +++ b/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 @@ -0,0 +1,19 @@ +! PR middle-end/27416 +! { dg-do run } + + integer :: j + j = 6 +!$omp parallel num_threads (4) + call foo (j) +!$omp end parallel + if (j.ne.6+16) call abort +end + +subroutine foo (j) + integer :: i, j + +!$omp do firstprivate (j) lastprivate (j) + do i = 1, 16 + if (i.eq.16) j = j + i + end do +end subroutine foo |