From cf013e9fdbd98b7798cbd88f126000c72361c56c Mon Sep 17 00:00:00 2001 From: Erik Edelmann Date: Fri, 30 Dec 2005 15:02:44 +0000 Subject: re PR fortran/22607 (Elemental character functions don't work) fortran/ 2005-12-30 Erik Edelmann PR fortran/22607 * trans-decl.c(gfc_get_extern_function_decl): Don't set DECL_IS_PURE (fndecl) = 1 for return-by-reference functions. fortran/PR 25396 * interface.c (gfc_extend_expr): Initialize e->value.function.name to NULL. testsuite/ 2005-12-30 Erik Edelmann PR fortran/22607 * gfortran-dg/pure_byref_3.f90: New. fortran/PR 25396 * gfortran.dg/userdef_operator_1.f90: New. From-SVN: r109171 --- gcc/fortran/interface.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/interface.c') diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index b58fb83..e3a13f5 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -1718,6 +1718,7 @@ gfc_extend_expr (gfc_expr * e) e->value.function.actual = actual; e->value.function.esym = NULL; e->value.function.isym = NULL; + e->value.function.name = NULL; if (gfc_pure (NULL) && !gfc_pure (sym)) { -- cgit v1.1