From 2c80cb0ef7df9e250a0a7826a4414d0895c65027 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 26 Jan 2008 21:44:49 +0100 Subject: re PR fortran/34848 (internal compiler error with optional argument of character type and array return type) 2008-01-26 Tobias Burnus PR fortran/34848 * trans-expr.c (gfc_conv_function_call): Don't call gfc_add_interface_mapping if the expression is NULL. 2008-01-26 Tobias Burnus PR fortran/34848 * gfortran.dg/missing_optional_dummy_5.f90: New. From-SVN: r131876 --- gcc/fortran/trans-expr.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/trans-expr.c') diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 9e30a99..89bc3c2 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -2506,7 +2506,7 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, } } - if (fsym && need_interface_mapping) + if (fsym && need_interface_mapping && e) gfc_add_interface_mapping (&mapping, fsym, &parmse, e); gfc_add_block_to_block (&se->pre, &parmse.pre); -- cgit v1.1