[patch,libgfortran][4.1/4.2 Regression] Problems with direct access io

[Jerry DeLisle]

Hi all,

The following fixes this bug.  I would like to commit this right away to 4.1 and
4.2, under the simple rule.  I will convert the test case in the PR
appropriately to call abort instead of print out a message.

OK?

2006-05-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/27757
	* io/unix.c (fd_seek): Set active to zero.

Index: io/unix.c
===================================================================
*** io/unix.c   (revision 114207)
--- io/unix.c   (working copy)
*************** fd_seek (unix_stream * s, gfc_offset off
*** 569,574 ****
--- 569,575 ----
       }

     s->physical_offset = s->logical_offset = offset;
+   s->active = 0;

     return (lseek (s->fd, offset, SEEK_SET) < 0) ? FAILURE : SUCCESS;
   }