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:
parent
2d4a44001c
commit
d7fee03dfc
2 changed files with 6 additions and 0 deletions
|
@ -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,
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Add table
Reference in a new issue