URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [streamio_5.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-do run }`	`! { dg-do run }`
`! PR25828 Stream IO test 5, unformatted single byte`	`! PR25828 Stream IO test 5, unformatted single byte`
`! Contributed by Jerry DeLisle .`	`! Contributed by Jerry DeLisle .`
`program streamtest5`	`program streamtest5`
`implicit none`	`implicit none`
`character(1) :: lf = char(10)`	`character(1) :: lf = char(10)`
`character(1) :: tchar`	`character(1) :: tchar`
`integer :: i,j,k`	`integer :: i,j,k`

`open(10, file="teststream", access="stream", form="unformatted")`	`open(10, file="teststream", access="stream", form="unformatted")`

`do i=1,1229`	`do i=1,1229`
`do j=0,9`	`do j=0,9`
`write(10) j`	`write(10) j`
`end do`	`end do`
`write(10) lf`	`write(10) lf`
`end do`	`end do`

`close(10)`	`close(10)`

`open(10, file="teststream", access="stream", form="unformatted")`	`open(10, file="teststream", access="stream", form="unformatted")`

`do i=1,1229`	`do i=1,1229`
`do j=0,9`	`do j=0,9`
`read(10) k`	`read(10) k`
`if (k.ne.j) call abort()`	`if (k.ne.j) call abort()`
`end do`	`end do`
`read(10) tchar`	`read(10) tchar`
`if (tchar.ne.lf) call abort()`	`if (tchar.ne.lf) call abort()`
`end do`	`end do`
`close(10,status="delete")`	`close(10,status="delete")`