diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-08-25 16:50:13 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-08-25 16:50:13 +0000 |
| commit | 40f201864ffd59ee5936db9ba75bc918227a6798 (patch) | |
| tree | 894c624fd13417c22a3668caf4fef82e9246c6b6 /gcc/fortran/trans-const.c | |
| parent | 923ab88cb2f07d36569c71cf53f8a0529ca1c2d4 (diff) | |
| download | gcc-40f201864ffd59ee5936db9ba75bc918227a6798.zip gcc-40f201864ffd59ee5936db9ba75bc918227a6798.tar.gz gcc-40f201864ffd59ee5936db9ba75bc918227a6798.tar.bz2 | |
re PR fortran/17144 (Not Implemented: Character string array constructors / Assignment to char array)
PR fortran/17144
* trans-array.c (gfc_trans_allocate_temp_array): Remove
string_length argument.
(gfc_trans_array_ctor_element): New function.
(gfc_trans_array_constructor_subarray): Use it.
(gfc_trans_array_constructor_value): Ditto. Handle constant
character arrays.
(get_array_ctor_var_strlen, get_array_ctor_strlen): New functions.
(gfc_trans_array_constructor): Use them.
(gfc_add_loop_ss_code): Update to new gfc_ss layout.
(gfc_conv_ss_descriptor): Remember section string length.
(gfc_conv_scalarized_array_ref): Ditto. Remove dead code.
(gfc_conv_resolve_dependencies): Update to new gfc_ss layout.
(gfc_conv_expr_descriptor): Ditto.
(gfc_conv_loop_setup): Ditto. Spelling fixes.
* trans-array.h (gfc_trans_allocate_temp_array): Update prototype.
* trans-const.c (gfc_conv_constant): Update to new gfc_ss layout.
* trans-expr.c (gfc_conv_component_ref): Turn error into ICE.
(gfc_conv_variable): Set string_length from section.
(gfc_conv_function_call): Remove extra argument.
(gfc_conv_expr, gfc_conv_expr_reference): Update to new gfc_ss layout.
* trans-types.c (gfc_get_character_type_len): New function.
(gfc_get_character_type): Use it.
(gfc_get_dtype): Return zero for internal types.
* trans-types.h (gfc_get_character_type_len): Add prototype.
* trans.h (struct gfc_ss): Move string_length out of union.
testsuite/
* gfortran.dg/string_ctor_1.f90: New test.
From-SVN: r86558
Diffstat (limited to 'gcc/fortran/trans-const.c')
| -rw-r--r-- | gcc/fortran/trans-const.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c index 25a9459..8ea0d5c 100644 --- a/gcc/fortran/trans-const.c +++ b/gcc/fortran/trans-const.c @@ -353,7 +353,7 @@ gfc_conv_constant (gfc_se * se, gfc_expr * expr) assert (se->ss->expr == expr); se->expr = se->ss->data.scalar.expr; - se->string_length = se->ss->data.scalar.string_length; + se->string_length = se->ss->string_length; gfc_advance_se_ss_chain (se); return; } |