diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2018-03-04 01:37:13 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-03-04 01:37:13 +0000 |
| commit | ac80378f4a966aa6b5490cf087380c7324681997 (patch) | |
| tree | ec595e37d677f6d9276396f5e7684aba076b4483 /gcc/fortran/trans-expr.c | |
| parent | 6979a6b3d102dbbbf8a28dedb6d9938711065f6b (diff) | |
| download | gcc-ac80378f4a966aa6b5490cf087380c7324681997.zip gcc-ac80378f4a966aa6b5490cf087380c7324681997.tar.gz gcc-ac80378f4a966aa6b5490cf087380c7324681997.tar.bz2 | |
re PR fortran/71085 (ICE with some intrinsic functions specifying array function result dimension)
2018-03-03 Harald Anlauf <anlauf@gmx.de>
PR fortran/71085
* trans-expr.c (gfc_apply_interface_mapping_to_expr): Do not
dereference NULL pointer.
2018-03-03 Harald Anlauf <anlauf@gmx.de>
PR fortran/71085
* gfortran.dg/pr71085.f90: New test.
From-SVN: r258228
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index a93257c..c84cd10 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -4349,6 +4349,8 @@ gfc_apply_interface_mapping_to_expr (gfc_interface_mapping * mapping, if (expr->value.function.esym == NULL && expr->value.function.isym != NULL + && expr->value.function.actual + && expr->value.function.actual->expr && expr->value.function.actual->expr->symtree && gfc_map_intrinsic_function (expr, mapping)) break; |