re PR fortran/44036 (I can't declare an external function in an OMP shared statement.)
authorJakub Jelinek <jakub@redhat.com>
Thu, 13 May 2010 12:02:50 +0000 (14:02 +0200)
committerJakub Jelinek <jakub@gcc.gnu.org>
Thu, 13 May 2010 12:02:50 +0000 (14:02 +0200)
commit2b45bf2152099996118ac8903d22718963cf1e99
tree968dcddb045fa5a13f020becad9a9ef77f7d4942
parent78c7cabba9ba2bd3b371fc6e4aa07896869d2b03
re PR fortran/44036 (I can't declare an external function in an OMP shared statement.)

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.

From-SVN: r159361
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]