[Bug fortran/93484] [8/9/10 Regression] ICE in gfc_typenode_for_spec, at fortran/trans-types.c:1120 since r7-4028-g87c9fca50cbe7ca9

[kargl at gcc dot gnu.org]

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

--- Comment #2 from kargl at gcc dot gnu.org ---
This patch is against svn r280157.
Whomever commit the patch needs to convert the example code into a testcase.

Index: gcc/fortran/match.c
===================================================================
--- gcc/fortran/match.c (revision 280157)
+++ gcc/fortran/match.c (working copy)
@@ -2222,9 +2222,9 @@ gfc_match_type_spec (gfc_typespec *ts)

 found:

-      m = gfc_match_init_expr (&e);
+      m = gfc_match_expr (&e);
       if (m == MATCH_NO || m == MATCH_ERROR)
-       return MATCH_NO;
+       return m;

       /* If a comma appears, it is an intrinsic subprogram. */
       gfc_gobble_whitespace ();