[Bug fortran/82605] ICE in insert_parameter_exprs, at fortran/decl.c:3154

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #2 from kargl at gcc dot gnu.org ---
Index: expr.c
===================================================================
--- expr.c      (revision 253587)
+++ expr.c      (working copy)
@@ -4630,7 +4633,7 @@ gfc_traverse_expr (gfc_expr *expr, gfc_symbol *sym,
   gfc_constructor *c;
   int i;

-  if (!expr)
+  if (!expr || !sym)
     return false;

   if ((*func) (expr, sym, &f))

% gfcx -c c.f90
c.f90:5:12:

       real(a) :: r(b)
            1
Error: Constant expression required at (1)