diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-01-26 21:44:49 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-01-26 21:44:49 +0100 |
| commit | 2c80cb0ef7df9e250a0a7826a4414d0895c65027 (patch) | |
| tree | b13b06169ec8a3793b0080fe6e734a118ac9f219 /gcc/fortran/trans-expr.c | |
| parent | 987dbd1ba6138fa38e1526a66db99f62e47d3d98 (diff) | |
| download | gcc-2c80cb0ef7df9e250a0a7826a4414d0895c65027.zip gcc-2c80cb0ef7df9e250a0a7826a4414d0895c65027.tar.gz gcc-2c80cb0ef7df9e250a0a7826a4414d0895c65027.tar.bz2 | |
re PR fortran/34848 (internal compiler error with optional argument of character type and array return type)
2008-01-26 Tobias Burnus <burnus@net-b.de>
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 <burnus@net-b.de>
PR fortran/34848
* gfortran.dg/missing_optional_dummy_5.f90: New.
From-SVN: r131876
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
1 files changed, 1 insertions, 1 deletions
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); |