+2007-12-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libfortran/34411
+ * io/read.c (convert_real, read_l, read_decimal, read_radix, read_f):
+ Call next_record after bad read or overflow error.
+
2007-12-09 Tobias Burnus <burnus@net-b.de>
PR fortran/34404
{
generate_error (&dtp->common, LIBERROR_READ_VALUE,
"Error during floating point read");
+ next_record (dtp, 1);
return 1;
}
bad:
generate_error (&dtp->common, LIBERROR_READ_VALUE,
"Bad value on logical read");
+ next_record (dtp, 1);
break;
}
}
bad:
generate_error (&dtp->common, LIBERROR_READ_VALUE,
"Bad value during integer read");
+ next_record (dtp, 1);
return;
overflow:
generate_error (&dtp->common, LIBERROR_READ_OVERFLOW,
"Value overflowed during integer read");
+ next_record (dtp, 1);
return;
}
bad:
generate_error (&dtp->common, LIBERROR_READ_VALUE,
"Bad value during integer read");
+ next_record (dtp, 1);
return;
overflow:
generate_error (&dtp->common, LIBERROR_READ_OVERFLOW,
"Value overflowed during integer read");
+ next_record (dtp, 1);
return;
}
bad_float:
generate_error (&dtp->common, LIBERROR_READ_VALUE,
"Bad value during floating point read");
+ next_record (dtp, 1);
return;
/* The value read is zero */