diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-15 09:59:30 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-15 09:59:30 +0000 |
| commit | 9438af576b2c64026be187b075868da20d53a545 (patch) | |
| tree | f98104c0cbb328853171038be84319686e79eb83 /libgomp/testsuite | |
| parent | 48080ae7d5a84d071c0311d19646859d1b743da3 (diff) | |
| download | gcc-9438af576b2c64026be187b075868da20d53a545.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113788 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgomp/testsuite')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/pr27416-1.f90 | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 b/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 new file mode 100644 index 00000000000..d42e1ef19ab --- /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 |