mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-30 02:24:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Bud Davis 2004-06-26 11:49:06 +00:00 committed by Bud Davis
parent 0ff0dfbf18
commit 3e14aaa2aa
4 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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

5
gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 Normal file
View File

@ -0,0 +1,5 @@
! 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

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
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.

2
libgfortran/io/unix.c
View File

@ -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: