mirror of git://gcc.gnu.org/git/gcc.git
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:
parent
65accd28dd
commit
2b8c2e7fb1
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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. */
|
||||
|
|
|
|||
Loading…
Reference in New Issue