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)
