diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/append-1.f90 | 36 | ||||
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/open.c | 7 |
4 files changed, 54 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8e73d94..d92bf93 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-05-10 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR libfortran/21471 + * gfortran.dg/append-1.f90: New test. + 2005-05-10 Diego Novillo <dnovillo@redhat.com> * gcc.dg/pr18501.c: XFAIL. diff --git a/gcc/testsuite/gfortran.dg/append-1.f90 b/gcc/testsuite/gfortran.dg/append-1.f90 new file mode 100644 index 0000000..8b81bc3 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/append-1.f90 @@ -0,0 +1,36 @@ +! PR libfortran/21471 +! Testing POSITION="APPEND" +! +! { dg-do run } + subroutine failed + close (10,status='delete') + call abort + end subroutine failed + + integer,parameter :: n = 13 + integer :: i, j, error + + open (10, file='foo') + close (10) + + do i = 1, n + open (10, file='foo',position='append') + write (10,*) i + close (10) + end do + + open (10,file='foo',status='old') + error = 0 + i = -1 + do while (error == 0) + i = i + 1 + read (10,*,iostat=error) j + if (error == 0) then + if (i + 1 /= j) call failed + end if + if (i > n + 1) call failed + end do + if (i /= n) call failed + close (10,status='delete') + end + diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 95884c1..fa866a1 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-05-10 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR libfortran/21471 + * open.c (new_unit): Take care of the case where POSITION_APPEND + is specified (sseek to the end, and set u>-endfile). + 2005-05-10 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> PR fortran/20178 diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index 82a862b..97bf6e4 100644 --- a/libgfortran/io/open.c +++ b/libgfortran/io/open.c @@ -356,6 +356,13 @@ new_unit (unit_flags * flags) u->s = s; u->flags = *flags; + if (flags->position == POSITION_APPEND) + { + if (sseek (u->s, file_length (u->s)) == FAILURE) + generate_error (ERROR_OS, NULL); + u->endfile = AT_ENDFILE; + } + /* Unspecified recl ends up with a processor dependent value. */ u->recl = (ioparm.recl_in != 0) ? ioparm.recl_in : g.max_offset; |