diff options
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 + |