OSDN Git Service

PR fortran/24892
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 17 Nov 2005 12:46:57 +0000 (12:46 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 17 Nov 2005 12:46:57 +0000 (12:46 +0000)
commita20e9b770551b8f4943256934689c6c8bfecd35f
treeb4222529fc4abf9ab78757cfd41d5b3ec666c05d
parent148ad152f2f6dad3160819dc6f471080d801d313
PR fortran/24892
* io/io.h (unit_access): Add ACCESS_APPEND.
* io/open.c (access_opt): Add APPEND value for ACCESS keyword.
(st_open): Use that new value to set the POSITION accordingly.

* gfortran.dg/open_access_append_1.f90: New test.
* gfortran.dg/open_access_append_2.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@107119 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/open_access_append_1.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/open_access_append_2.f90 [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/io/io.h
libgfortran/io/open.c