+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
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');
}
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)
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;