procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/68676 (ICE in gfc_match_formal_arglist when compiling gfortran.dg/submodule_10.f08)

Browse source 
2015-12-05  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/68676
	* decl.c (gfc_match_formal_arglist): Correct error, where 'sym'
	was used instead of 'progname'.

From-SVN: r231319
This commit is contained in:
Paul Thomas 2015-12-05 17:10:33 +00:00
parent a5bdd742c7
commit e9d9b48ddb
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
2015-12-05 Paul Thomas <pault@gcc.gnu.org>
PR fortran/68676
* decl.c (gfc_match_formal_arglist): Correct error, where 'sym'
was used instead of 'progname'.
2015-12-02 Tobias Burnus <burnus@net-b.de>
Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>

5
gcc/fortran/decl.c
View file

@ -4817,6 +4817,9 @@ ok:
goto cleanup;
}
/* gfc_error_now used in following and return with MATCH_YES because
doing otherwise results in a cascade of extraneous errors and in
some cases an ICE in symbol.c(gfc_release_symbol). */
if (progname->attr.module_procedure && progname->attr.host_assoc)
{
bool arg_count_mismatch = false;
@ -4826,7 +4829,7 @@ ok:
/* Abbreviated module procedure declaration is not meant to have any
formal arguments! */
if (!sym->abr_modproc_decl && formal && !head)
if (!progname->abr_modproc_decl && formal && !head)
arg_count_mismatch = true;
for (p = formal, q = head; p && q; p = p->next, q = q->next)