diff options
| author | Janus Weil <jaydub66@gmail.com> | 2008-05-01 19:38:04 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-01 19:38:04 +0000 |
| commit | 32d99e6869ec4eb0d8f801893d2ea499f9951f71 (patch) | |
| tree | a7631c471f34f1baa0a920e1db3183a3507dc58d /gcc/fortran/interface.c | |
| parent | ca873b0e5aafd6c0fce9e00719671c6aa25c708b (diff) | |
| download | gcc-32d99e6869ec4eb0d8f801893d2ea499f9951f71.zip gcc-32d99e6869ec4eb0d8f801893d2ea499f9951f71.tar.gz gcc-32d99e6869ec4eb0d8f801893d2ea499f9951f71.tar.bz2 | |
gfortran.h (struct gfc_symbol): Moving "interface" member to gfc_typespec (plus fixing a small docu error).
* gfortran.h (struct gfc_symbol): Moving "interface" member to
gfc_typespec (plus fixing a small docu error).
* interface.c (gfc_procedure_use): Ditto.
* decl.c (match_procedure_decl): Ditto.
* resolve.c (resolve_specific_f0,
resolve_specific_f0, resolve_symbol): Ditto.
From-SVN: r134867
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 09f7238..f5746bf 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -2405,13 +2405,13 @@ gfc_procedure_use (gfc_symbol *sym, gfc_actual_arglist **ap, locus *where) gfc_warning ("Procedure '%s' called with an implicit interface at %L", sym->name, where); - if (sym->interface && sym->interface->attr.intrinsic) + if (sym->ts.interface && sym->ts.interface->attr.intrinsic) { gfc_intrinsic_sym *isym; - isym = gfc_find_function (sym->interface->name); + isym = gfc_find_function (sym->ts.interface->name); if (isym != NULL) { - if (compare_actual_formal_intr (ap, sym->interface)) + if (compare_actual_formal_intr (ap, sym->ts.interface)) return; gfc_error ("Type/rank mismatch in argument '%s' at %L", sym->name, where); |