diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index a721d944b33..d9a53e2fa95 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -1117,6 +1117,9 @@ is_illegal_recursion (gfc_symbol* sym, gfc_namespace* context) gfc_symbol* context_proc; gfc_namespace* real_context; + if (sym->attr.flavor == FL_PROGRAM) + return false; + gcc_assert (sym->attr.flavor == FL_PROCEDURE); /* If we've got an ENTRY, find real procedure. */ @@ -9480,8 +9483,8 @@ check_typebound_override (gfc_symtree* proc, gfc_symtree* old) if (proc_pass_arg != argpos && old_pass_arg != argpos && !gfc_compare_types (&proc_formal->sym->ts, &old_formal->sym->ts)) { - gfc_error ("Types mismatch for dummy argument '%s' of '%s' %L in" - " in respect to the overridden procedure", + gfc_error ("Types mismatch for dummy argument '%s' of '%s' %L " + "in respect to the overridden procedure", proc_formal->sym->name, proc->name, &where); return FAILURE; } |