URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 154 |
Rev 816 |
! { dg-do run }
|
! { dg-do run }
|
! PR 26499 : Positioning of EOF after write and rewind.
|
! PR 26499 : Positioning of EOF after write and rewind.
|
! Test case from Dale Ranta in PR.
|
! Test case from Dale Ranta in PR.
|
! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
|
! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
|
program test
|
program test
|
dimension idata(100)
|
dimension idata(100)
|
open(unit=11,form='unformatted')
|
open(unit=11,form='unformatted')
|
write(11)idata
|
write(11)idata
|
write(11)idata
|
write(11)idata
|
read(11,end= 1000 )idata
|
read(11,end= 1000 )idata
|
call abort()
|
call abort()
|
1000 continue
|
1000 continue
|
rewind 11
|
rewind 11
|
write(11)idata
|
write(11)idata
|
close(11,status='keep')
|
close(11,status='keep')
|
open(unit=11,form='unformatted')
|
open(unit=11,form='unformatted')
|
rewind 11
|
rewind 11
|
read(11)idata
|
read(11)idata
|
read(11, end=250)idata
|
read(11, end=250)idata
|
call abort()
|
call abort()
|
250 continue
|
250 continue
|
close(11,status='delete')
|
close(11,status='delete')
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.