From d7fee03dfcf056a7c77052327a2e5f9284ea271d Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Tue, 14 Aug 2012 16:37:11 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/decl.c | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 587a010318f..f89d3a53de0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2012-08-14 Mikael Morin + + * decl.c (match_ppc_decl): Copy the procedure interface's symbol + as procedure interface's result. + 2012-08-14 Mikael Morin * trans-expr.c (gfc_trans_scalar_assign): Rename argument, diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 083326ed37d..87eb8a0bb24 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;