diff options
Diffstat (limited to 'libgfortran/io/intrinsics.c')
| -rw-r--r-- | libgfortran/io/intrinsics.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/intrinsics.c b/libgfortran/io/intrinsics.c index f48bd77..c1287d4 100644 --- a/libgfortran/io/intrinsics.c +++ b/libgfortran/io/intrinsics.c @@ -246,7 +246,7 @@ fseek_sub (int * unit, GFC_IO_INT * offset, int * whence, int * status) gfc_unit * u = find_unit (*unit); ssize_t result = -1; - if (u != NULL && is_seekable(u->s)) + if (u != NULL) { result = sseek(u->s, *offset, *whence); |