diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2013-12-12 09:52:06 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2013-12-12 09:52:06 +0100 |
| commit | cab37c89d1d443c24ad189bb8b62f5665ba829ad (patch) | |
| tree | 5b5f9bb96f851af0b0a2ebcbf289d3324fd65c0a /libgomp | |
| parent | c2207d6514ad71067f17fb0887ac51a47b57b24b (diff) | |
| download | gcc-cab37c89d1d443c24ad189bb8b62f5665ba829ad.zip gcc-cab37c89d1d443c24ad189bb8b62f5665ba829ad.tar.gz gcc-cab37c89d1d443c24ad189bb8b62f5665ba829ad.tar.bz2 | |
re PR libgomp/59467 (copyprivate in the fortran testsuite)
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.
From-SVN: r205922
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 00b4ce1..bdcc930 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 4ad7cf2..c88cc7a 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 |