diff options
| author | fengwang <fengwang@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-18 09:54:21 +0000 |
|---|---|---|
| committer | fengwang <fengwang@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-18 09:54:21 +0000 |
| commit | 41dc7285f828a75a6c0c04b51896880a7e9a54cf (patch) | |
| tree | 45cf41ea4d111fed0d0dd32523868f0aa2f6975d /gcc/fortran/trans-const.c | |
| parent | ea256661512b88978257813177df78974d8e2b00 (diff) | |
| download | gcc-41dc7285f828a75a6c0c04b51896880a7e9a54cf.tar.gz | |
2005-05-18 Feng Wang <fengwang@nudt.edu.cn>
PR fortran/20954
* trans-const.c (gfc_conv_const_charlen): Use gfc_charlen_type_node to
build character length.
2005-05-18 Feng Wang <fengwang@nudt.edu.cn>
PR fortran/20954
* gfortran.dg/pr20954.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@99892 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-const.c')
| -rw-r--r-- | gcc/fortran/trans-const.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c index 0351e124096..57c34d7dd1b 100644 --- a/gcc/fortran/trans-const.c +++ b/gcc/fortran/trans-const.c @@ -141,6 +141,8 @@ gfc_conv_const_charlen (gfc_charlen * cl) { cl->backend_decl = gfc_conv_mpz_to_tree (cl->length->value.integer, cl->length->ts.kind); + cl->backend_decl = fold_convert (gfc_charlen_type_node, + cl->backend_decl); } } |