diff options
| author | mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-11 21:03:50 +0000 |
|---|---|---|
| committer | mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-11 21:03:50 +0000 |
| commit | eca9d76cccbe89da11374762cc4f28652ba2d308 (patch) | |
| tree | 5a292cf0b9169109a599d885af6a97ff5385a944 /gcc/fortran/simplify.c | |
| parent | e64a0d8fb48763c331ca8c5aaec98dec2be17590 (diff) | |
| download | gcc-eca9d76cccbe89da11374762cc4f28652ba2d308.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223019 138bc75d-0d04-0410-961f-82ee72b054a4
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 f8d55fdcd06..f49c6c08851 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) { |