URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do run }
|
! { dg-do run }
|
! PR 27575 and PR 30009: This test checks the error checking for end
|
! PR 27575 and PR 30009: This test checks the error checking for end
|
! of file condition.
|
! of file condition.
|
! Derived from test case in PR.
|
! Derived from test case in PR.
|
! Submitted by Jerry DeLisle , modified by
|
! Submitted by Jerry DeLisle , modified by
|
! Thomas Koenig
|
! Thomas Koenig
|
|
|
program test
|
program test
|
integer i1,i2,i3
|
integer i1,i2,i3
|
open(unit=11,form='unformatted')
|
open(unit=11,form='unformatted')
|
write (11) 1, 2
|
write (11) 1, 2
|
write (11) 3, 4
|
write (11) 3, 4
|
close(11,status='keep')
|
close(11,status='keep')
|
|
|
open(unit=11,form='unformatted')
|
open(unit=11,form='unformatted')
|
|
|
read(11, ERR=100) i1, i2, i3
|
read(11, ERR=100) i1, i2, i3
|
call abort()
|
call abort()
|
100 continue
|
100 continue
|
if (i1 /= 1 .or. i2 /= 2) call abort
|
if (i1 /= 1 .or. i2 /= 2) call abort
|
|
|
read(11, ERR=110) i1, i2, i3
|
read(11, ERR=110) i1, i2, i3
|
call abort()
|
call abort()
|
110 continue
|
110 continue
|
if (i1 /= 3 .or. i2 /= 4) call abort
|
if (i1 /= 3 .or. i2 /= 4) call abort
|
|
|
read(11, end=120) i3
|
read(11, end=120) i3
|
call abort()
|
call abort()
|
120 close(11,status='delete')
|
120 close(11,status='delete')
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.