diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-05-11 07:56:20 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-05-11 05:56:20 +0000 |
| commit | da32fddcb6e41f878ea05dd46ad677a2d821c70e (patch) | |
| tree | c9dbad5660c861798c7ad9d3bddd154215a4d446 /gcc | |
| parent | 939176ab435c20964525b580056b85a20dd08ff1 (diff) | |
| download | gcc-da32fddcb6e41f878ea05dd46ad677a2d821c70e.zip gcc-da32fddcb6e41f878ea05dd46ad677a2d821c70e.tar.gz gcc-da32fddcb6e41f878ea05dd46ad677a2d821c70e.tar.bz2 | |
re PR libfortran/21471 ('POSITION = "APPEND"' doesn't seem to work)
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).
* gfortran.dg/append-1.f90: New test.
From-SVN: r99560
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/append-1.f90 | 36 |
2 files changed, 41 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 + |