2005-01-15 Bud Davis <bdavis9659@comcast.net>

        PR fortran/18983
        * io/transfer.c (st_write_done): only truncate when it
        is required.

2005-01-15  Bud Davis  <bdavis9659@comcast.net>

        PR fortran/18983
        * gfortran.dg/write_to_null.f90: New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@93689 138bc75d-0d04-0410-961f-82ee72b054a4