diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2015-12-05 17:10:33 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2015-12-05 17:10:33 +0000 |
| commit | e9d9b48ddbb7915c0ae141c1cb949a55d51ed737 (patch) | |
| tree | 354d18c343f89c1e4122b7fc952cdcbcf5553b06 /gcc/fortran/decl.c | |
| parent | a5bdd742c70ccd13a77fa48059ec7ed5a2c7b98e (diff) | |
| download | gcc-e9d9b48ddbb7915c0ae141c1cb949a55d51ed737.zip gcc-e9d9b48ddbb7915c0ae141c1cb949a55d51ed737.tar.gz gcc-e9d9b48ddbb7915c0ae141c1cb949a55d51ed737.tar.bz2 | |
re PR fortran/68676 (ICE in gfc_match_formal_arglist when compiling gfortran.dg/submodule_10.f08)
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
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 10a08e0..bff23e1 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -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) |