diff options
| author | Feng Wang <fengwang@gcc.gnu.org> | 2005-05-15 02:45:29 +0000 |
|---|---|---|
| committer | Feng Wang <fengwang@gcc.gnu.org> | 2005-05-15 02:45:29 +0000 |
| commit | b078dfbf39bdea09e613beb800c8261d57ba4c3b (patch) | |
| tree | 561264b5f4c56dabd9ef6b439c86f897e8c47a29 /gcc/fortran/trans-stmt.c | |
| parent | 652ad062339cd338403543e46cf91eb5abbe7d36 (diff) | |
| download | gcc-b078dfbf39bdea09e613beb800c8261d57ba4c3b.zip gcc-b078dfbf39bdea09e613beb800c8261d57ba4c3b.tar.gz gcc-b078dfbf39bdea09e613beb800c8261d57ba4c3b.tar.bz2 | |
[multiple changes]
2005-05-15 Feng Wang <fengwang@nudt.edu.cn>
Jerry DeLisle <jvdelisle@verizon.net>
PR fortran/17432
* trans-stmt.c (gfc_trans_label_assign): fix pointer type, to
resolve ICE on assign of format label.
* trans-io.c (set_string): add fold-convert to properly
handle assigned format label in write.
2005-05-15 Jerry DeLisle <jvdelisle@verizon.net>
PR fortran/17432
* gfortran.dg/assign_4.f: New test.
From-SVN: r99711
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 60a786c..b895996 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -129,7 +129,7 @@ gfc_trans_label_assign (gfc_code * code) label_len = code->label->format->value.character.length; len_tree = build_int_cst (NULL_TREE, label_len); label_tree = gfc_build_string_const (label_len + 1, label_str); - label_tree = gfc_build_addr_expr (pchar_type_node, label_tree); + label_tree = gfc_build_addr_expr (pvoid_type_node, label_tree); } gfc_add_modify_expr (&se.pre, len, len_tree); |