re PR libfortran/18284 (BACKSPACE broken)

2004-12-02  Bud Davis  <bdavis9659@comcast.net>

        PR libfortran/18284
        * io/unix.c (fd_alloc_w_at): Update file_length when extending.
        * io/backspace.c (formatted_backspace): Reset endfile after backspace.

        PR fortran/18284
        * gfortran.dg/backspace.f90

From-SVN: r91612

gcc/testsuite/ChangeLog

 2004-12-02  Bud Davis  <bdavis9659@comcast.net>
 
+	PR fortran/18284
+	* gfortran.dg/backspace.f90
+
+2004-12-02  Bud Davis  <bdavis9659@comcast.net>
+
 	* gfortran.dg/inquire.f90: New test.
 
 2004-12-01  Janis Johnson  <janis187@us.ibm.com>

gcc/testsuite/gfortran.dg/backspace.f90

+! { dg-do run }
+!pr18284 BACKSPACE broken
+       open(unit=10,access='SEQUENTIAL',status='SCRATCH')
+       do I = 1,200
+         write(10,*)I
+       end do
+       backspace(10)
+       backspace(10)
+       read(10,*)I
+       if (I.NE.199) call abort
+       end

libgfortran/ChangeLog

 2004-12-02  Bud Davis  <bdavis9659@comcast.net>
 
+	PR libfortran/18284
+	* io/unix.c (fd_alloc_w_at): Update file_length when extending.
+	* io/backspace.c (formatted_backspace): Reset endfile after backspace.
+
+2004-12-02  Bud Davis  <bdavis9659@comcast.net>
+
 	* io/inquire.c (inquire_via_unit): do not allow a direct access
 	file to be opened for sequential I/O.
 

libgfortran/io/backspace.c

@@ -77,6 +77,7 @@ done:
   if (sseek (current_unit->s, base) == FAILURE)
     goto io_error;
   current_unit->last_record--;
+  current_unit->endfile = NO_ENDFILE;
 
   return;
 

libgfortran/io/unix.c

@@ -462,6 +462,9 @@ fd_alloc_w_at (unix_stream * s, int *len, gfc_offset where)
 
   s->logical_offset = where + *len;
 
+  if (where + *len > s->file_length)
+    s->file_length = where + *len;
+
   n = s->logical_offset - s->buffer_offset;
   if (n > s->active)
     s->active = n;