re PR libfortran/16196 (gfortran fails to create file with OPEN(...,status='REPLACE'))

2004-06-26  Bud Davis  <bdavis9659@comcast.net>

        PR gfortran/16196
        * unix.c(regular_file): create file if it does not exist.
        * gfortran.fortran-torture/execute/open_replace.f90: New test case.

From-SVN: r83709

gcc/testsuite/ChangeLog

+2004-06-26  Bud Davis  <bdavis9659@comcast.net>
+
+	PR gfortran/pr16196
+	* gfortran.fortran-torture/execute/open_replace.f90: New test case.
+
 2004-06-25  Roger Sayle  <roger@eyesopen.com>
 
 	PR middle-end/15825

gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90

+! pr 16196
+! open with 'REPLACE' creates the file if it does not exist.
+      PROGRAM iobug
+      OPEN(UNIT=10,FILE='gfcoutput.txt',status='REPLACE')
+      END PROGRAM iobug

libgfortran/ChangeLog

+2004-06-26  Bud Davis  <bdavis9659@comcast.net>
+
+	PR gfortran/16196
+	* unix.c(regular_file): create file if it does not exist.
+
 2004-06-24  Andrew Pinski  <apinski@apple.com>
 
 	* configure.ac: Remove check for libmx.

libgfortran/io/unix.c

@@ -982,7 +982,7 @@ regular_file (unit_action action, unit_status status)
       break;
 
     case STATUS_REPLACE:
-      mode |= O_TRUNC;
+        mode |= O_CREAT | O_TRUNC;
       break;
 
     default: