From 7f72e40263afd8d3e651a1a4ec3d5da9bc8eedd7 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 17 May 2017 20:33:20 +0000 Subject: re PR fortran/80741 ([Regression 7/8] DTIO wrong code causes incorrect behaviour of namelist READ) 2017-05-17 Jerry DeLisle PR libgfortran/80741 * transfer.c (finalize_transfer): Reset last_char to 'empty'. * file_pos.c (formatted_backspace): Likewise. (st_endfile): Likewise. (st_rewind): Likewise. (st_flush): Likewise. PR fortran/80741 * trans-io.c (transfer_namelist_element): Change check from NULL_TREE to null_pointer_node. From-SVN: r248170 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-io.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e978f32..703060d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2017-05-17 Jerry DeLisle + + PR fortran/80741 + * trans-io.c (transfer_namelist_element): Change check from + NULL_TREE to null_pointer_node. + 2017-05-17 Fritz Reese PR fortran/80668 diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 1b70136..c557c11 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -1756,7 +1756,7 @@ transfer_namelist_element (stmtblock_t * block, const char * var_name, else tmp = build_int_cst (gfc_charlen_type_node, 0); - if (dtio_proc == NULL_TREE) + if (dtio_proc == null_pointer_node) tmp = build_call_expr_loc (input_location, iocall[IOCALL_SET_NML_VAL], 6, dt_parm_addr, addr_expr, string, -- cgit v1.1