diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-12-18 23:41:50 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-12-18 23:41:50 +0000 |
| commit | 1af038be028da98c8071aee04aca9895c78191db (patch) | |
| tree | 1e776afa6fac07f4b4fb0e27afd980654b8f3b63 /libgfortran/io/read.c | |
| parent | 25014fa71ea6bebbf52195b789618d7b04a3b35d (diff) | |
| download | gcc-1af038be028da98c8071aee04aca9895c78191db.tar.gz | |
2013-12-18 Steven G. Kargl <kargl@gcc.gnu.org>
* io/read.c (read_f): Convert assert to runtime error.
2013-12-18 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/io_err_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@206102 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/read.c')
| -rw-r--r-- | libgfortran/io/read.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index e35b1a06168..f0de14c4651 100644 --- a/libgfortran/io/read.c +++ b/libgfortran/io/read.c @@ -1150,7 +1150,9 @@ done: exponent = - exponent; } - assert (exponent < 10000); + if (exponent >= 10000) + goto bad_float; + for (dig = 3; dig >= 0; --dig) { out[dig] = (char) ('0' + exponent % 10); |