URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [append-1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! PR libfortran/21471`	`! PR libfortran/21471`
`! Testing POSITION="APPEND"`	`! Testing POSITION="APPEND"`
`!`	`!`
`! { dg-do run }`	`! { dg-do run }`
`subroutine failed`	`subroutine failed`
`close (10,status='delete')`	`close (10,status='delete')`
`call abort`	`call abort`
`end subroutine failed`	`end subroutine failed`

`integer,parameter :: n = 13`	`integer,parameter :: n = 13`
`integer :: i, j, error`	`integer :: i, j, error`

`open (10, file='foo')`	`open (10, file='foo')`
`close (10)`	`close (10)`

`do i = 1, n`	`do i = 1, n`
`open (10, file='foo',position='append')`	`open (10, file='foo',position='append')`
`write (10,*) i`	`write (10,*) i`
`close (10)`	`close (10)`
`end do`	`end do`

`open (10,file='foo',status='old')`	`open (10,file='foo',status='old')`
`error = 0`	`error = 0`
`i = -1`	`i = -1`
`do while (error == 0)`	`do while (error == 0)`
`i = i + 1`	`i = i + 1`
`read (10,*,iostat=error) j`	`read (10,*,iostat=error) j`
`if (error == 0) then`	`if (error == 0) then`
`if (i + 1 /= j) call failed`	`if (i + 1 /= j) call failed`
`end if`	`end if`
`if (i > n + 1) call failed`	`if (i > n + 1) call failed`
`end do`	`end do`
`if (i /= n) call failed`	`if (i /= n) call failed`
`close (10,status='delete')`	`close (10,status='delete')`
`end`	`end`