From f59986b285e3dff07f847c5a680f6f9e0b9520f0 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Tue, 23 Jan 2018 19:13:10 +0000 Subject: re PR fortran/83866 (ICE in gfc_release_symbol, at fortran/symbol.c:3087) 2018-23-01 Paul Thomas PR fortran/83866 * decl.c (gfc_match_derived_decl): If eos not matched, recover and emit error about garbage after declaration. 2018-23-01 Paul Thomas PR fortran/83866 * gfortran.dg/pdt_29.f03 : New test. From-SVN: r256995 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/decl.c | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f50d8a8..c477e96 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2018-23-01 Paul Thomas + PR fortran/83866 + * decl.c (gfc_match_derived_decl): If eos not matched, recover + and emit error about garbage after declaration. + +2018-23-01 Paul Thomas + PR fortran/83898 * trans-stmt.c (trans_associate_var): Do not set cst_array_ctor for characters. diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 710c6f7..7922eef 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -9857,7 +9857,10 @@ gfc_match_derived_decl (void) gfc_error_recovery (); m = gfc_match_eos (); if (m != MATCH_YES) - return m; + { + gfc_error_recovery (); + gfc_error_now ("Garbage after PARAMETERIZED TYPE declaration at %C"); + } sym->attr.pdt_template = 1; } -- cgit v1.1