* 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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0755ee7..3839c3f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-16  Jakub Jelinek  <jakub@redhat.com>
+
+       * openmp.c (resolve_omp_clauses): Add a dummy case label to workaround
+       PR middle-end/26316.
+
 2005-02-16  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/24557

diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index 312d5a1..09ec255 100644 (file)
--- 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;
                  }