rewind.c (st_rewind): Reset unit to read mode.
authorPaul Brook <paul@codesourcery.com>
Fri, 27 Aug 2004 13:44:52 +0000 (13:44 +0000)
committerPaul Brook <pbrook@gcc.gnu.org>
Fri, 27 Aug 2004 13:44:52 +0000 (13:44 +0000)
commitc100eff11e8b829171a4d63dac7571d3aa38f7e6
tree054a0d89cce6f0607917769f263772691935db23
parent57406c63cd1ce307b1f4df4d24468a1df7fc59d7
rewind.c (st_rewind): Reset unit to read mode.

* io/rewind.c (st_rewind): Reset unit to read mode.
testsuite/
* gfortran.dg/rewind_1.f90: New test.

From-SVN: r86659
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/rewind_1.f90 [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/io/rewind.c