diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2015-05-11 21:03:50 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2015-05-11 21:03:50 +0000 |
| commit | 21cd397ea325b16e0cf493552dd6e44d06082f45 (patch) | |
| tree | 5a292cf0b9169109a599d885af6a97ff5385a944 /gcc/fortran/simplify.c | |
| parent | caadc44d7b7dd110da85d5564749036cc4538cf8 (diff) | |
| download | gcc-21cd397ea325b16e0cf493552dd6e44d06082f45.zip gcc-21cd397ea325b16e0cf493552dd6e44d06082f45.tar.gz gcc-21cd397ea325b16e0cf493552dd6e44d06082f45.tar.bz2 | |
Fix fortran/66100 bound simplification ICE
PR fortran/66100
gcc/fortran/
* simplify.c (simplify_bound): Fix assert to accept subobject * arrays.
gcc/testsuite/
* gfortran.dg/bound_simplification_6.f90: New.
From-SVN: r223019
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index f8d55fd..f49c6c0 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -3463,8 +3463,8 @@ simplify_bound (gfc_expr *array, gfc_expr *dim, gfc_expr *kind, int upper) gcc_assert (!as || (as->type != AS_DEFERRED && array->expr_type == EXPR_VARIABLE - && !array->symtree->n.sym->attr.allocatable - && !array->symtree->n.sym->attr.pointer)); + && !gfc_expr_attr (array).allocatable + && !gfc_expr_attr (array).pointer)); if (dim == NULL) { |