mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-16 09:29:48 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

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

From-SVN: r128857
This commit is contained in:
Jerry DeLisle 2007-09-28 02:57:41 +00:00
parent a2d0c46dae
commit 9a1e025540
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
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

4
libgfortran/io/list_read.c
View File

@ -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;