OSDN Git Service

PR fortran/44036
authorjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 13 May 2010 12:02:50 +0000 (12:02 +0000)
committerjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 13 May 2010 12:02:50 +0000 (12:02 +0000)
commitbb348f6843b09fce6b0b3b14104cd5542bb89b65
tree968dcddb045fa5a13f020becad9a9ef77f7d4942
parentb52dd48bde461b54e25b36e3783c195a7e34c310
PR fortran/44036
* openmp.c (resolve_omp_clauses): Allow procedure pointers in clause
variable lists.
* trans-openmp.c (gfc_omp_privatize_by_reference): Don't privatize
by reference dummy procedures or non-dummy procedure pointers.
(gfc_omp_predetermined_sharing): Return
OMP_CLAUSE_DEFAULT_FIRSTPRIVATE for dummy procedures.

* gfortran.dg/gomp/pr44036-1.f90: New test.
* gfortran.dg/gomp/pr44036-2.f90: New test.
* gfortran.dg/gomp/pr44036-3.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@159361 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/openmp.c
gcc/fortran/trans-openmp.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/gomp/pr44036-1.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/gomp/pr44036-2.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/gomp/pr44036-3.f90 [new file with mode: 0644]