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
This commit is contained in:
Mikael Morin 2012-08-14 16:37:11 +00:00
parent 2d4a44001c
commit d7fee03dfc
2 changed files with 6 additions and 0 deletions

View File

@ -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,

View File

@ -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;