[Bug fortran/69860] ICE on missing end apostrophe with character(kind=4)

[kargl at gcc dot gnu.org]

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

--- Comment #3 from kargl at gcc dot gnu.org ---
Index: expr.c
===================================================================
--- expr.c      (revision 237945)
+++ expr.c      (working copy)
@@ -970,8 +970,14 @@ gfc_is_constant_expr (gfc_expr *e)


     default:
-      gfc_internal_error ("gfc_is_constant_expr(): Unknown expression type");
-      return 0;
+      {
+       int e, w;
+       gfc_get_errors (&w, &e);
+       if (e < 1)
+         gfc_internal_error ("gfc_is_constant_expr(): Unknown "
+                               "expression type");
+       return 0;
+      }
     }
 }