------- Comment #1 from pault at gcc dot gnu dot org 2007-03-17 10:18 -------
This fixes it and regtests OK - will submit later on
Index: gcc/fortran/trans-expr.c
===================================================================
*** gcc/fortran/trans-expr.c (revision 122943)
--- gcc/fortran/trans-expr.c (working copy)
*************** gfc_conv_function_call (gfc_se * se, gfc
*** 2078,2083 ****
--- 2078,2084 ----
{
gfc_conv_expr_reference (&parmse, e);
if (fsym && fsym->attr.pointer
+ && fsym->attr.flavor != FL_PROCEDURE
&& e->expr_type != EXPR_NULL)
{
/* Scalar pointer dummy args require an extra level of
Paul
--
pault at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |pault at gcc dot gnu dot org
|dot org |
Status|UNCONFIRMED |ASSIGNED
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2007-03-17 10:18:57
date| |
Summary|wrong code generated with |too much indirection for
|gfortran |actual pointer procedure
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31209
