1 files changed, 4 insertions, 2 deletions
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index 865eb68..92eea53 100644
--- a/libgfortran/io/unix.c
+++ b/libgfortran/io/unix.c
@@ -515,13 +515,15 @@ fd_truncate (unix_stream * s)
 
 #ifdef HAVE_FTRUNCATE
   if (ftruncate (s->fd, s->logical_offset))
-    return FAILURE;
 #else
 #ifdef HAVE_CHSIZE
   if (chsize (s->fd, s->logical_offset))
-    return FAILURE;
 #endif
 #endif
+    {
+      s->physical_offset = s->file_length = 0;
+      return FAILURE;
+    }
 
   s->physical_offset = s->file_length = s->logical_offset;