[Patch, Fortran, F03] PR 41022: procedure pointer components as actual arguments

[Janus Weil <janus at gcc dot gnu dot org>]

Hi all,

here is a patch for a small problem with PPCs as actual arguments,
reported by Juergen Reuter. The fix is relatively simple and regtests
fine on x86_64-unknown-linux-gnu. Ok for trunk?

Cheers,
Janus


2009-08-11  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/41022
	* trans-expr.c (gfc_conv_procedure_call): Handle procedure pointer
	components as actual arguments.

2009-08-11  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/41022
	* gfortran.dg/proc_ptr_comp_14.f90: New.

Index: gcc/fortran/trans-expr.c
===================================================================
--- gcc/fortran/trans-expr.c	(revision 150629)
+++ gcc/fortran/trans-expr.c	(working copy)
@@ -2679,7 +2679,8 @@ gfc_conv_procedure_call (gfc_se * se, gf
 			   && fsym->attr.flavor != FL_PROCEDURE)
 			  || (fsym->attr.proc_pointer
 			      && !(e->expr_type == EXPR_VARIABLE
-			      && e->symtree->n.sym->attr.dummy))))
+			      && e->symtree->n.sym->attr.dummy))
+			  || gfc_is_proc_ptr_comp (e, NULL)))
 		    {
 		      /* Scalar pointer dummy args require an extra level of
 			 indirection. The null pointer already contains

Attachment: proc_ptr_comp_14.f90
Description: Binary data