From: Paul Thomas <pault@gcc.gnu.org>
Date: Sun, 16 Nov 2008 12:00:44 +0000 (+0000)
Subject: re PR fortran/37926 (Program gives wrong output (connected to char len))
X-Git-Tag: releases/gcc-4.4.0~1641
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b800fd64b54018965f6953121b58673fcca08687;p=thirdparty%2Fgcc.git

re PR fortran/37926 (Program gives wrong output (connected to char len))

2008-11-16  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/37926
	* trans-expr.c (gfc_free_interface_mapping): Null sym->formal
	(gfc_add_interface_mapping): Copy the pointer to the formal
	arglist, rather than using copy_formal_args.

From-SVN: r141914
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 35466d421847..ca9f86576b42 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+2008-11-16  Paul Thomas  <pault@gcc.gnu.org>
+
+	PR fortran/37926
+	* trans-expr.c (gfc_free_interface_mapping): Null sym->formal
+	(gfc_add_interface_mapping): Copy the pointer to the formal
+	arglist, rather than using copy_formal_args - fixes regression.
+
 2008-11-15  Paul Thomas  <pault@gcc.gnu.org>
 
         PR fortran/37926
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index ff74928d63e1..2e148f2c765a 100644
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -1583,6 +1583,7 @@ gfc_free_interface_mapping (gfc_interface_mapping * mapping)
   for (sym = mapping->syms; sym; sym = nextsym)
     {
       nextsym = sym->next;
+      sym->new_sym->n.sym->formal = NULL;
       gfc_free_symbol (sym->new_sym->n.sym);
       gfc_free_expr (sym->expr);
       gfc_free (sym->new_sym);
@@ -1715,7 +1716,7 @@ gfc_add_interface_mapping (gfc_interface_mapping * mapping,
      descriptors are passed for array actual arguments.  */
   if (sym->attr.flavor == FL_PROCEDURE)
     {
-      copy_formal_args (new_sym, expr->symtree->n.sym);
+      new_sym->formal = expr->symtree->n.sym->formal;
       new_sym->attr.always_explicit
 	    = expr->symtree->n.sym->attr.always_explicit;
     }