diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-21 16:01:08 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-21 16:01:08 +0000 |
| commit | 31579a22113e7102520a55c36544c218e5565ed9 (patch) | |
| tree | 35b21d4113221c00ace0ee8dea4d50ea7ba6d222 /gcc/fortran/iresolve.c | |
| parent | fb291f50a0ac587602811bb0b60fd8c12e495f81 (diff) | |
| download | gcc-31579a22113e7102520a55c36544c218e5565ed9.zip gcc-31579a22113e7102520a55c36544c218e5565ed9.tar.gz gcc-31579a22113e7102520a55c36544c218e5565ed9.tar.bz2 | |
re PR fortran/36257 (SPREAD gives wrong results with array CHARACTER parameters)
PR fortran/36257
* gfortran.dg/char_length_12.f90: New test.
* iresolve.c (check_charlen_present): Don't force the rank to 1.
From-SVN: r135723
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 4b7e17d..94ed4a6 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -75,11 +75,8 @@ check_charlen_present (gfc_expr *source) source->rank = 0; } else if (source->expr_type == EXPR_ARRAY) - { - source->ts.cl->length = + source->ts.cl->length = gfc_int_expr (source->value.constructor->expr->value.character.length); - source->rank = 1; - } } /* Helper function for resolving the "mask" argument. */ |