re PR fortran/85407 (Replace gcc_assert in module.c:read_module by more helpful diagnostics)

2018-12-26  Harald Anlauf  <anlauf@gmx.de>

	PR fortran/85407
	* module.c (read_module): Convert assert to fatal error to give 
	user a sensible error message.

From-SVN: r267422
This commit is contained in:
Harald Anlauf 2018-12-26 20:37:28 +00:00 committed by Steven G. Kargl
parent 65accd28dd
commit 2b8c2e7fb1
2 changed files with 13 additions and 1 deletions

View File

@ -1,3 +1,9 @@
2018-12-26 Harald Anlauf <anlauf@gmx.de>
PR fortran/85407
* module.c (read_module): Convert assert to fatal error to give a
sensible error message.
2018-12-24 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/45513

View File

@ -5180,7 +5180,13 @@ read_module (void)
if (p->u.pointer == NULL)
associate_integer_pointer (p, c);
mio_pool_string (&comp_name);
gcc_assert (comp_name == c->name);
if (comp_name != c->name)
{
gfc_fatal_error ("Mismatch in components of derived type "
"%qs from %qs at %C: expecting %qs, "
"but got %qs", sym->name, sym->module,
c->name, comp_name);
}
skip_list (1); /* component end. */
}
mio_rparen (); /* component list closing. */