From a63bcd97bbf68ea5df42a289da3ca5e1b5e471ab Mon Sep 17 00:00:00 2001
From: mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 14 Aug 2012 16:37:11 +0000
Subject: fortran/ 	* decl.c (match_ppc_decl): Copy the procedure
 interface's symbol 	as procedure interface's result.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190393 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/fortran/decl.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'gcc/fortran/decl.c')

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;
-- 
cgit v1.2.1