diff options
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 7bb5a25..741bba5 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -986,7 +986,8 @@ check_interface0 (gfc_interface *p, const char *interface_name) /* Make sure all symbols in the interface have been defined as functions or subroutines. */ for (; p; p = p->next) - if (!p->sym->attr.function && !p->sym->attr.subroutine) + if ((!p->sym->attr.function && !p->sym->attr.subroutine) + || !p->sym->attr.if_source) { if (p->sym->attr.external) gfc_error ("Procedure '%s' in %s at %L has no explicit interface", |