]> git.ipfire.org Git - thirdparty/gcc.git/commit - gcc/fortran/trans.h
re PR fortran/44536 (OMP: missing error with default(none))
authorJakub Jelinek <jakub@redhat.com>
Tue, 15 Jun 2010 12:15:26 +0000 (14:15 +0200)
committerJakub Jelinek <jakub@gcc.gnu.org>
Tue, 15 Jun 2010 12:15:26 +0000 (14:15 +0200)
commit79943d19dc27298a384fce25c604fe6191e0765f
tree160e18b4ba214f50eed4f22ee4c8e9a0dff923af
parenteed5f58ad65fc65af6d50e263a632537c9478b26
re PR fortran/44536 (OMP: missing error with default(none))

PR fortran/44536
* langhooks.h (struct lang_hooks_for_decls): Add omp_report_decl.
* langhooks-def.h (LANG_HOOKS_OMP_REPORT_DECL): Define.
(LANG_HOOKS_DECLS): Add it.
* gimplify.c (omp_notice_variable): Call
lang_hooks.decls.omp_report_decl.

* trans-openmp.c (gfc_omp_predetermined_sharing): Don't return
OMP_CLAUSE_DEFAULT_SHARED for artificial vars with
GFC_DECL_SAVED_DESCRIPTOR set.
(gfc_omp_report_decl): New function.
* trans.h (gfc_omp_report_decl): New prototype.
* f95-lang.c (LANG_HOOKS_OMP_REPORT_DECL): Redefine.

* gfortran.dg/gomp/pr44536.f90: New test.
* gfortran.dg/gomp/sharing-3.f90: Remove xfail.

From-SVN: r160779
gcc/ChangeLog
gcc/fortran/ChangeLog
gcc/fortran/f95-lang.c
gcc/fortran/trans-openmp.c
gcc/fortran/trans.h
gcc/gimplify.c
gcc/langhooks-def.h
gcc/langhooks.h
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/gomp/pr44536.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/gomp/sharing-3.f90