diff options
| author | David Edelsohn <edelsohn@gnu.org> | 2005-07-17 00:48:46 +0000 |
|---|---|---|
| committer | David Edelsohn <dje@gcc.gnu.org> | 2005-07-16 20:48:46 -0400 |
| commit | 7e2eba4bf9d7f8610d01777731dd4aa795f324b8 (patch) | |
| tree | bd888ce71a949dedcbbf720f30df0156f2b235d5 /gcc/fortran/decl.c | |
| parent | 30702a9f844e0181a720661a7d8ff066aef6a302 (diff) | |
| download | gcc-7e2eba4bf9d7f8610d01777731dd4aa795f324b8.zip gcc-7e2eba4bf9d7f8610d01777731dd4aa795f324b8.tar.gz gcc-7e2eba4bf9d7f8610d01777731dd4aa795f324b8.tar.bz2 | |
re PR fortran/21730 ([4.0 only] Character length incorrect.)
PR fortran/21730
* decl.c (do_parm): Adjust character initializer to character length
of symbol before assigning.
From-SVN: r102104
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 9852cb0..9288ab9 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -3101,6 +3101,16 @@ do_parm (void) goto cleanup; } + if (sym->ts.type == BT_CHARACTER + && sym->ts.cl != NULL + && sym->ts.cl->length != NULL + && sym->ts.cl->length->expr_type == EXPR_CONSTANT + && init->expr_type == EXPR_CONSTANT + && init->ts.type == BT_CHARACTER + && init->ts.kind == 1) + gfc_set_constant_character_len ( + mpz_get_si (sym->ts.cl->length->value.integer), init); + sym->value = init; return MATCH_YES; |