diff options
| author | mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-11-24 19:04:34 +0000 |
|---|---|---|
| committer | mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-11-24 19:04:34 +0000 |
| commit | edca3bd658ca9abd21a481e2ee3caafd32f78e47 (patch) | |
| tree | 8afcec85bbbdbfe33d5210495fcf425aac29a173 /gcc/fortran/simplify.c | |
| parent | 0f340ebe00bc55b68280a3858af08935d8446f85 (diff) | |
| download | gcc-edca3bd658ca9abd21a481e2ee3caafd32f78e47.tar.gz | |
2008-11-24 Mikael Morin <mikael.morin@tele2.fr>
PR fortran/38184
* simplify.c (is_constant_array_expr): Return true instead of false
if the array constructor is empty.
2008-11-24 Mikael Morin <mikael.morin@tele2.fr>
PR fortran/38184
* gfortran.dg/reshape_empty_1.f03: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@142168 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 34105bc4d35..7922bde6ff1 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -3410,9 +3410,6 @@ is_constant_array_expr (gfc_expr *e) if (e->expr_type != EXPR_ARRAY || !gfc_is_constant_expr (e)) return false; - if (e->value.constructor == NULL) - return false; - for (c = e->value.constructor; c; c = c->next) if (c->expr->expr_type != EXPR_CONSTANT) return false; |