[Bug fortran/87673] [7/8/9 Regression] Errors caused by using function for character length in allocate with typespec

[tkoenig at gcc dot gnu.org]

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

--- Comment #9 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
This "fixes" this PR, of course bringing back
the original problem (PR82049).

Index: match.c
===================================================================
--- match.c     (Revision 269552)
+++ match.c     (Arbeitskopie)
@@ -2122,8 +2122,10 @@
       ts->type = BT_CHARACTER;

       m = gfc_match_char_spec (ts);
+#if 0
       if (ts->u.cl && ts->u.cl->length)
        gfc_resolve_expr (ts->u.cl->length);
+#endif

       if (m == MATCH_NO)
        m = MATCH_YES;

Next, to see what gfc_resolve_expr is doing wrong here.