diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2017-11-06 09:54:09 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2017-11-06 09:54:09 +0000 |
| commit | 16f681db1100e78ff9a0cb04fc8fd18719c92839 (patch) | |
| tree | 5e5da5aa203a1cdf313384711279f98b8ccb70a7 /gcc/fortran | |
| parent | 19520957ad27c591e888a82d8dd30cb5fccb3896 (diff) | |
| download | gcc-16f681db1100e78ff9a0cb04fc8fd18719c92839.zip gcc-16f681db1100e78ff9a0cb04fc8fd18719c92839.tar.gz gcc-16f681db1100e78ff9a0cb04fc8fd18719c92839.tar.bz2 | |
[multiple changes]
2017-11-06 Paul Thomas <pault@gcc.gnu.org>
PR fortran/69739
* trans-expr.c (gfc_map_intrinsic_function): Return false for
bounds without the DIM argument instead of ICEing.
2017-11-06 Paul Thomas <pault@gcc.gnu.org>
PR fortran/69739
* gfortran.dg/pr69739.f90: New test.
From-SVN: r254441
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 4 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 1e40336..00448aa 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ + 2017-11-06 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/69739 + * trans-expr.c (gfc_map_intrinsic_function): Return false for + bounds without the DIM argument instead of ICEing. + 2017-11-06 Martin Liska <mliska@suse.cz> PR middle-end/82404 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 57b62a6..e4d45ac 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -4178,9 +4178,7 @@ gfc_map_intrinsic_function (gfc_expr *expr, gfc_interface_mapping *mapping) if (arg2 && arg2->expr_type == EXPR_CONSTANT) d = mpz_get_si (arg2->value.integer) - 1; else - /* TODO: If the need arises, this could produce an array of - ubound/lbounds. */ - gcc_unreachable (); + return false; if (expr->value.function.isym->id == GFC_ISYM_LBOUND) { |