mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-25 11:54:01 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

re PR fortran/41192 (NAMELIST input with just a comment ("&NAME ! comment \") fails)

Browse Source 
2009-09-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/41192
	* io/list_read.c (eat_line): Enable eat_line to function on
	internal units.

	PR libgfortran/41219
	* io/list_read.c (nml_read_obj): Replace GFC_DTYPE_UNKNOWN with
	BT_NULL to get rid of warning.

From-SVN: r151495
This commit is contained in:
Jerry DeLisle 2009-09-08 00:59:05 +00:00
parent 21a4564b8e
commit 951b8fbe45
2 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libgfortran/ChangeLog
View File

@ -1,3 +1,13 @@
2009-09-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/41192
* io/list_read.c (eat_line): Enable eat_line to function on
internal units.
PR libgfortran/41219
* io/list_read.c (nml_read_obj): Replace GFC_DTYPE_UNKNOWN with
BT_NULL to get rid of warning.
2009-09-04 Tobias Burnus <burnus@net-b.de>
PR fortran/41219

16
libgfortran/io/list_read.c
View File

@ -287,10 +287,10 @@ static void
eat_line (st_parameter_dt *dtp)
{
char c;
if (!is_internal_unit (dtp))
do
c = next_char (dtp);
while (c != '\n');
do
c = next_char (dtp);
while (c != '\n');
}
@ -2374,10 +2374,10 @@ nml_read_obj (st_parameter_dt *dtp, namelist_info * nl, index_type offset,
if (dtp->u.p.input_complete)
return SUCCESS;
/* GFC_TYPE_UNKNOWN through for nulls and is detected
after the switch block. */
/* BT_NULL (equivalent to GFC_DTYPE_UNKNOWN) falls through
for nulls and is detected at default: of switch block. */
dtp->u.p.saved_type = GFC_DTYPE_UNKNOWN;
dtp->u.p.saved_type = BT_NULL;
free_saved (dtp);
switch (nl->type)
@ -2467,7 +2467,7 @@ nml_read_obj (st_parameter_dt *dtp, namelist_info * nl, index_type offset,
return SUCCESS;
}
if (dtp->u.p.saved_type == GFC_DTYPE_UNKNOWN)
if (dtp->u.p.saved_type == BT_NULL)
{
dtp->u.p.expanded_read = 0;
goto incr_idx;