diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-12-16 21:09:34 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-12-16 21:09:34 +0000 |
| commit | df80a455ed1e2478e4f296f58cbd5181db4998b5 (patch) | |
| tree | a126900acbc8291dad9f5fed1328e991f2a629fd /gcc/fortran/resolve.c | |
| parent | c238230e6dc25c83555afd91e7ca4875b8c2f757 (diff) | |
| download | gcc-df80a455ed1e2478e4f296f58cbd5181db4998b5.tar.gz | |
re PR fortran/34305 (ICE with array(real) declaration)
2007-12-16 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/34305
* resolve.c (compare_bound): If either of the types of
the arguments isn't INTEGER, return CMP_UNKNOWN.
2007-12-16 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/34305
* gfortran.dg/real_dimension_1.f: New test case.
From-SVN: r130993
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 0df0aa78bcd..57c17dc4006 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -3149,8 +3149,11 @@ compare_bound (gfc_expr *a, gfc_expr *b) || b == NULL || b->expr_type != EXPR_CONSTANT) return CMP_UNKNOWN; + /* If either of the types isn't INTEGER, we must have + raised an error earlier. */ + if (a->ts.type != BT_INTEGER || b->ts.type != BT_INTEGER) - gfc_internal_error ("compare_bound(): Bad expression"); + return CMP_UNKNOWN; i = mpz_cmp (a->value.integer, b->value.integer); |