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

1 files changed, 1 insertions, 0 deletions

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;