diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-21 16:01:08 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-21 16:01:08 +0000 |
| commit | 7459ffb089893418d4526e1828864376068e1cdc (patch) | |
| tree | 35b21d4113221c00ace0ee8dea4d50ea7ba6d222 /gcc/fortran/iresolve.c | |
| parent | f3340cb8e61895d39d222ae00e455f8e6d018fe2 (diff) | |
| download | gcc-7459ffb089893418d4526e1828864376068e1cdc.tar.gz | |
PR fortran/36257
* gfortran.dg/char_length_12.f90: New test.
* iresolve.c (check_charlen_present): Don't force the rank to 1.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135723 138bc75d-0d04-0410-961f-82ee72b054a4
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 4b7e17d70f3..94ed4a67baf 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. */ |