[gfortran] PR 14565 -formatted write to an un-opened unit causes a segv

[Paul Brook]

> 2004-03-26  Bud Davis <bdavis9659@comcast.net>
>
>         PR gfortran/14565
>         * io/open.c (new_unit),
>         * io/io.h : new_unit is now visible
>         * io/transfer.c (data_transfer_init): open unit if no OPEN
> statement. * io/transfer.c (data_transfer_init): remove compile warnings. *
> io/rewind.c (st_rewind): ftruncate if writing.

Applied, thanks.

Paul