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

 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,
 	extend comment.
 

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;