[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
This commit is contained in:
parent
652ad06233
commit
b078dfbf39
|
@ -1,3 +1,12 @@
|
||||||
|
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-13 Paul Brook <paul@codesourcery.com>
|
2005-05-13 Paul Brook <paul@codesourcery.com>
|
||||||
|
|
||||||
* trans-stmt.c (gfc_trans_forall_1): Fix comment typo.
|
* trans-stmt.c (gfc_trans_forall_1): Fix comment typo.
|
||||||
|
|
|
@ -394,7 +394,8 @@ set_string (stmtblock_t * block, stmtblock_t * postblock, tree var,
|
||||||
tmp = build2 (LE_EXPR, boolean_type_node,
|
tmp = build2 (LE_EXPR, boolean_type_node,
|
||||||
tmp, convert (TREE_TYPE (tmp), integer_minus_one_node));
|
tmp, convert (TREE_TYPE (tmp), integer_minus_one_node));
|
||||||
gfc_trans_runtime_check (tmp, msg, &se.pre);
|
gfc_trans_runtime_check (tmp, msg, &se.pre);
|
||||||
gfc_add_modify_expr (&se.pre, io, GFC_DECL_ASSIGN_ADDR (se.expr));
|
gfc_add_modify_expr (&se.pre, io,
|
||||||
|
fold_convert (TREE_TYPE (io), GFC_DECL_ASSIGN_ADDR (se.expr)));
|
||||||
gfc_add_modify_expr (&se.pre, len, GFC_DECL_STRING_LEN (se.expr));
|
gfc_add_modify_expr (&se.pre, len, GFC_DECL_STRING_LEN (se.expr));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
|
@ -129,7 +129,7 @@ gfc_trans_label_assign (gfc_code * code)
|
||||||
label_len = code->label->format->value.character.length;
|
label_len = code->label->format->value.character.length;
|
||||||
len_tree = build_int_cst (NULL_TREE, label_len);
|
len_tree = build_int_cst (NULL_TREE, label_len);
|
||||||
label_tree = gfc_build_string_const (label_len + 1, label_str);
|
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);
|
gfc_add_modify_expr (&se.pre, len, len_tree);
|
||||||
|
|
|
@ -1,3 +1,8 @@
|
||||||
|
2005-05-15 Jerry DeLisle <jvdelisle@verizon.net>
|
||||||
|
|
||||||
|
PR fortran/17432
|
||||||
|
* gfortran.dg/assign_4.f: New test.
|
||||||
|
|
||||||
2005-05-14 Kazu Hirata <kazu@cs.umass.edu>
|
2005-05-14 Kazu Hirata <kazu@cs.umass.edu>
|
||||||
|
|
||||||
PR tree-optimization/21563
|
PR tree-optimization/21563
|
||||||
|
|
|
@ -0,0 +1,11 @@
|
||||||
|
! { dg-do compile }
|
||||||
|
! Option passed to avoid excess errors from obsolete warning
|
||||||
|
! { dg-options "-w" }
|
||||||
|
! PR17423
|
||||||
|
program testit
|
||||||
|
c
|
||||||
|
assign 12 to i
|
||||||
|
write(*, i)
|
||||||
|
0012 format (" **** ASSIGN FORMAT NUMBER TO INTEGER VARIABLE ****" )
|
||||||
|
end
|
||||||
|
|
Loading…
Reference in New Issue