diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-12-12 08:52:06 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-12-12 08:52:06 +0000 |
| commit | b45e536ef744c5935d828d6d2369ead30b00d31e (patch) | |
| tree | 5b5f9bb96f851af0b0a2ebcbf289d3324fd65c0a /libgomp | |
| parent | c76a3c2a0dc4cfa17ef7fc66bb8a5221d5b375b6 (diff) | |
| download | linaro-gcc-b45e536ef744c5935d828d6d2369ead30b00d31e.tar.gz linaro-gcc-b45e536ef744c5935d828d6d2369ead30b00d31e.tar.bz2 linaro-gcc-b45e536ef744c5935d828d6d2369ead30b00d31e.zip | |
PR libgomp/59467
* gimplify.c (omp_check_private): Add copyprivate argument, if it
is true, don't check omp_privatize_by_reference.
(gimplify_scan_omp_clauses): For OMP_CLAUSE_COPYPRIVATE verify
decl is private in outer context. Adjust omp_check_private caller.
* gfortran.dg/gomp/pr59467.f90: New test.
* c-c++-common/gomp/pr59467.c: New test.
* testsuite/libgomp.fortran/crayptr2.f90: Add private (d) clause to
!$omp parallel.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@205922 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgomp')
| -rw-r--r-- | libgomp/ChangeLog | 6 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/crayptr2.f90 | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 00b4ce1ba89..bdcc930d97b 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,9 @@ +2013-12-12 Jakub Jelinek <jakub@redhat.com> + + PR libgomp/59467 + * testsuite/libgomp.fortran/crayptr2.f90: Add private (d) clause to + !$omp parallel. + 2013-11-07 Thomas Schwinge <thomas@codesourcery.com> * testsuite/lib/libgomp.exp (libgomp_init): Don't add -fopenmp to diff --git a/libgomp/testsuite/libgomp.fortran/crayptr2.f90 b/libgomp/testsuite/libgomp.fortran/crayptr2.f90 index 4ad7cf228b6..c88cc7ab884 100644 --- a/libgomp/testsuite/libgomp.fortran/crayptr2.f90 +++ b/libgomp/testsuite/libgomp.fortran/crayptr2.f90 @@ -12,7 +12,7 @@ b = 2 c = 3 l = .false. -!$omp parallel num_threads (3) reduction (.or.:l) +!$omp parallel num_threads (3) reduction (.or.:l) private (d) if (omp_get_thread_num () .eq. 0) then ip = loc (a) elseif (omp_get_thread_num () .eq. 1) then |