From d3ec4534469f23f9da3bed30a5e34661ecdb4944 Mon Sep 17 00:00:00 2001 From: jakub Date: Thu, 16 Feb 2006 21:31:20 +0000 Subject: [PATCH] * openmp.c (resolve_omp_clauses): Add a dummy case label to workaround PR middle-end/26316. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111152 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/openmp.c | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0755ee76838..3839c3f41b1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2006-02-16 Jakub Jelinek + + * openmp.c (resolve_omp_clauses): Add a dummy case label to workaround + PR middle-end/26316. + 2005-02-16 Paul Thomas PR fortran/24557 diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 312d5a1e49a..09ec255974c 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -865,6 +865,10 @@ resolve_omp_clauses (gfc_code *code) : list == OMP_LIST_MULT ? "IOR" : "IEOR", n->sym->name, &code->loc); break; + /* Workaround for PR middle-end/26316, nothing really needs + to be done here for OMP_LIST_PRIVATE. */ + case OMP_LIST_PRIVATE: + gcc_assert (code->op != EXEC_NOP); default: break; } -- 2.11.0