Commit 9a1e0255 by Jerry DeLisle

re PR libfortran/33421 (Weird quotation of namelist output of character arrays)

2007-09-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/33421
	* io/list_read.c (read_character): Revert r128057.

From-SVN: r128857
parent a2d0c46d
2007-09-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/33421
* io/list_read.c (read_character): Revert r128057.
2007-09-21 Bernhard Fischer <aldot>
PR fortran/31546
......
......@@ -887,9 +887,7 @@ read_character (st_parameter_dt *dtp, int length __attribute__ ((unused)))
goto get_string;
default:
if (dtp->u.p.namelist_mode
&& (dtp->u.p.current_unit->flags.delim == DELIM_APOSTROPHE
|| dtp->u.p.current_unit->flags.delim == DELIM_QUOTE))
if (dtp->u.p.namelist_mode)
{
unget_char (dtp,c);
return;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment