URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 154 |
Rev 816 |
! { dg-do run }
|
! { dg-do run }
|
! PR25835 Check that reading from a file that is at end-of-file does not
|
! PR25835 Check that reading from a file that is at end-of-file does not
|
! segfault or give error. Test case derived from example in PR from Dale Ranta.
|
! segfault or give error. Test case derived from example in PR from Dale Ranta.
|
! Contributed by Jerry DeLisle
|
! Contributed by Jerry DeLisle
|
integer data(5000)
|
integer data(5000)
|
data=-256
|
data=-256
|
open(unit=11,status='scratch', form='unformatted')
|
open(unit=11,status='scratch', form='unformatted')
|
write(11)data
|
write(11)data
|
write(11)data
|
write(11)data
|
read(11,end= 1000 )data
|
read(11,end= 1000 )data
|
call abort()
|
call abort()
|
1000 continue
|
1000 continue
|
backspace 11
|
backspace 11
|
rewind 11
|
rewind 11
|
write(11)data
|
write(11)data
|
read(11,end= 1001 )data
|
read(11,end= 1001 )data
|
call abort()
|
call abort()
|
1001 continue
|
1001 continue
|
data = 0
|
data = 0
|
backspace 11
|
backspace 11
|
rewind 11
|
rewind 11
|
read(11,end= 1002 )data
|
read(11,end= 1002 )data
|
if (.not. all(data == -256)) call abort()
|
if (.not. all(data == -256)) call abort()
|
1002 continue
|
1002 continue
|
read(11,end= 1003 )data
|
read(11,end= 1003 )data
|
call abort()
|
call abort()
|
1003 continue
|
1003 continue
|
close(11)
|
close(11)
|
end
|
end
|
|
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.