From 334ff453eaa61a47ee9b45b273a0a8057697060e Mon Sep 17 00:00:00 2001 From: Paul Brook Date: Tue, 31 Aug 2004 20:37:43 +0000 Subject: re PR libfortran/16805 (Runtime failure using list directed read from string) PR libfortran/16805 * io/list_read.c (next_char): Don't signal EOF for internal files. * io/unix.c (mem_alloc_r_at): Don't return NULL for incomplete reads. testsuite/ 2004-08-31 Bud Davis * gfortran.dg/list_read_2.f90: New test. From-SVN: r86844 --- libgfortran/io/unix.c | 3 --- 1 file changed, 3 deletions(-) (limited to 'libgfortran/io/unix.c') diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 33d7fda..377cadd 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -746,9 +746,6 @@ mem_alloc_r_at (unix_stream * s, int *len, gfc_offset where) if (where < s->buffer_offset || where > s->buffer_offset + s->active) return NULL; - if (is_internal_unit() && where + *len > s->file_length) - return NULL; - s->logical_offset = where + *len; n = s->buffer_offset + s->active - where; -- cgit v1.1