diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-06 07:25:24 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-06 07:25:24 +0000 |
| commit | 1e7864e44136433004d5c8adb767dddf90830cb4 (patch) | |
| tree | 09b0a22654ae562c449d45f3d1fb178722c10a17 /gcc/fortran/decl.c | |
| parent | 9306644f396b57a5977c121820ef4cf010217f71 (diff) | |
| download | gcc-1e7864e44136433004d5c8adb767dddf90830cb4.tar.gz | |
2008-05-06 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r134973
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@134974 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index d6a5633a2f6..f52c2f1ec8f 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -4060,8 +4060,8 @@ match_procedure_decl (void) /* Resolve interface if possible. That way, attr.procedure is only set if it is declared by a later procedure-declaration-stmt, which is invalid per C1212. */ - while (proc_if->interface) - proc_if = proc_if->interface; + while (proc_if->ts.interface) + proc_if = proc_if->ts.interface; if (proc_if->generic) { @@ -4147,16 +4147,16 @@ got_ts: /* Set interface. */ if (proc_if != NULL) { - sym->interface = proc_if; + sym->ts.interface = proc_if; sym->attr.untyped = 1; } else if (current_ts.type != BT_UNKNOWN) { - sym->interface = gfc_new_symbol ("", gfc_current_ns); - sym->interface->ts = current_ts; - sym->interface->attr.function = 1; - sym->ts = sym->interface->ts; - sym->attr.function = sym->interface->attr.function; + sym->ts = current_ts; + sym->ts.interface = gfc_new_symbol ("", gfc_current_ns); + sym->ts.interface->ts = current_ts; + sym->ts.interface->attr.function = 1; + sym->attr.function = sym->ts.interface->attr.function; } if (gfc_match_eos () == MATCH_YES) |