diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2012-08-14 16:37:11 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2012-08-14 16:37:11 +0000 |
| commit | d7fee03dfcf056a7c77052327a2e5f9284ea271d (patch) | |
| tree | daf903783ce7b976423b2ec52b8d9bb8c6e733e4 /gcc/fortran/decl.c | |
| parent | 2d4a44001c6b62ef2ae2cc83d37856436588140a (diff) | |
| download | gcc-d7fee03dfcf056a7c77052327a2e5f9284ea271d.zip gcc-d7fee03dfcf056a7c77052327a2e5f9284ea271d.tar.gz gcc-d7fee03dfcf056a7c77052327a2e5f9284ea271d.tar.bz2 | |
decl.c (match_ppc_decl): Copy the procedure interface's symbol as procedure interface's result.
fortran/
* decl.c (match_ppc_decl): Copy the procedure interface's symbol
as procedure interface's result.
From-SVN: r190393
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 083326e..87eb8a0 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -5050,6 +5050,7 @@ match_ppc_decl (void) { c->ts = ts; c->ts.interface = gfc_new_symbol ("", gfc_current_ns); + c->ts.interface->result = c->ts.interface; c->ts.interface->ts = ts; c->ts.interface->attr.flavor = FL_PROCEDURE; c->ts.interface->attr.function = 1; |