[Bug fortran/98023] ICE: free_expr0(): Bad expr type

[anlauf at gcc dot gnu.org]

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

--- Comment #3 from anlauf at gcc dot gnu.org ---
The patch in comment#1 does not work for me on x86_64-pc-linux-gnu.

In decl.c:

6242    cleanup:
6243      if (saved_kind_expr)
6244        gfc_free_expr (saved_kind_expr);
6245      if (type_param_spec_list)
6246        gfc_free_actual_arglist (type_param_spec_list);

(gdb) p type_param_spec_list->expr->expr_type
$177 = 42350080

So type_param_spec_list really gets screwed up.