Really, really, poor IO performance!

[Steve Kargl]

On Sun, May 29, 2005 at 07:12:06PM -0700, Steve Kargl wrote:
> 
> Index: unix.c
> ===================================================================
> RCS file: /cvs/gcc/gcc/libgfortran/io/unix.c,v
> retrieving revision 1.26
> diff -c -p -r1.26 unix.c
> *** unix.c      17 May 2005 16:54:51 -0000      1.26
> --- unix.c      30 May 2005 02:10:48 -0000
> *************** regular_file (unit_flags *flags)
> *** 1067,1075 ****
>   
>       case STATUS_UNKNOWN:
>       case STATUS_SCRATCH:
> -       crflag = O_CREAT;
> -       break;
> - 
>       case STATUS_REPLACE:
>           crflag = O_CREAT | O_TRUNC;
>         break;
> --- 1068,1073 ----
> 

This is libfortran/21820.  The above patch has been
bootstrapped and regtested on i386-*-freebsd.  Note,
the patch is required to properly implement the 
semantics of REPLACE as given in 9.3.4.2.

-- 
Steve