diff options
| author | Janne Blomqvist <jblomqvi@cc.hut.fi> | 2005-09-30 21:47:54 +0300 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-09-30 20:47:54 +0200 |
| commit | 21905d1b4319b962f26f87d57e8fa4f00f0aeedb (patch) | |
| tree | 49646f39944d33cfef8f86c09e2141a3106a4783 /gcc | |
| parent | 3f27846b1cd3f04086f6666bc271cd0345817329 (diff) | |
| download | gcc-21905d1b4319b962f26f87d57e8fa4f00f0aeedb.zip gcc-21905d1b4319b962f26f87d57e8fa4f00f0aeedb.tar.gz gcc-21905d1b4319b962f26f87d57e8fa4f00f0aeedb.tar.bz2 | |
re PR libfortran/24112 (Reopening file with STATUS='OLD' doesn't work)
2005-09-30 Janne Blomqvist <jblomqvi@cc.hut.fi>
libgfortran/
PR 24112
* io/open.c (edit_modes): Check for correct flag.
gcc/testsuite/
PR 24112
* gfortran.dg/open_status_1.f90: New.
From-SVN: r104829
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/open_status_1.f90 | 8 |
2 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 97ac0ba..65f5957 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-09-30 Janne Blomqvist <jblomqvi@cc.hut.fi> + + PR 24112 + * gfortran.dg/open_status_1.f90: New. + 2005-09-30 Uros Bizjak <uros@kss-loka.si> * gcc.dg/vect/fast-math-vect-reduc-7.c: Clean up temp files. diff --git a/gcc/testsuite/gfortran.dg/open_status_1.f90 b/gcc/testsuite/gfortran.dg/open_status_1.f90 new file mode 100644 index 0000000..df44a44 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/open_status_1.f90 @@ -0,0 +1,8 @@ +! { dg-do run } +! Test reopening with io status='old' +program iostatus + open (1, file='foo', status='replace') ! Make sure file exists. + open (1, file='foo', status='old') + open (1, file='foo', status='old') + close (1, status='delete') +end program iostatus |