decl.c (match_ppc_decl): Copy the procedure interface's symbol as procedure interface...

fortran/
	* decl.c (match_ppc_decl): Copy the procedure interface's symbol
	as procedure interface's result.

From-SVN: r190393

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 587a010318fbf0174f47f5d7f3464c5b7204f230..f89d3a53de0fffd1e2d9ab98b3e00fc204288b02 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-14  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * decl.c (match_ppc_decl): Copy the procedure interface's symbol
+       as procedure interface's result.
+
 2012-08-14  Mikael Morin  <mikael@gcc.gnu.org>
 
        * trans-expr.c (gfc_trans_scalar_assign): Rename argument,

diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 083326ed37db9df16d0b1afe42e970028328750d..87eb8a0bb24f184d7050325ecaa3546214c3aec0 100644 (file)
--- 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;