[Bug fortran/88073] Internal compiler error compiling WHERE construct with -O or -O2

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88073

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |tkoenig at gcc dot 
gnu.org

--- Comment #2 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
I'll commit the following as obvious, probably today.

===================================================================
--- frontend-passes.c   (Revision 266250)
+++ frontend-passes.c   (Arbeitskopie)
@@ -1773,6 +1773,10 @@ combine_array_constructor (gfc_expr *e)
   if (iterator_level > 0)
     return false;

+  /* WHERE also doesn't work.  */
+  if (in_where > 0)
+    return false;
+
   op1 = e->value.op.op1;
   op2 = e->value.op.op2;