* 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
+2010-05-13 Jakub Jelinek <jakub@redhat.com>
+
+ 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.
+
2010-05-11 Daniel Franke <franke.daniel@gmail.com>
PR fortran/43711
2010-05-13 Jakub Jelinek <jakub@redhat.com>
+ PR fortran/44036
+ * gfortran.dg/gomp/pr44036-1.f90: New test.
+ * gfortran.dg/gomp/pr44036-2.f90: New test.
+ * gfortran.dg/gomp/pr44036-3.f90: New test.
+
PR debug/43983
* gcc.dg/guality/sra-1.c: New test.
x = a(4)
!$omp end parallel
!$omp parallel default(none) private (x) ! { dg-error "enclosing parallel" }
- x = b(5) ! { dg-error "not specified in" }
+ x = b(5) ! { dg-error "not specified in" "" { target *-*-* } 11 }
!$omp end parallel
!$omp parallel default(none) private (x)
x = c(6)