[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>
|
||||
|
||||
* 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, convert (TREE_TYPE (tmp), integer_minus_one_node));
|
||||
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));
|
||||
}
|
||||
else
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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>
|
||||
|
||||
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