URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Details |
Compare with Previous |
View Log
| Line No. |
Rev |
Author |
Line |
| 1 |
694 |
jeremybenn |
! { dg-do run }
|
| 2 |
|
|
! PR34411 hang-up during read of non-expected input
|
| 3 |
|
|
! Test case derived from that given in PR
|
| 4 |
|
|
! Prior to patch, the do loop was infinite, limits set in this one
|
| 5 |
|
|
program pr34411
|
| 6 |
|
|
real :: x,y
|
| 7 |
|
|
ii = 0
|
| 8 |
|
|
iostat = 0
|
| 9 |
|
|
x = 0.0; y= 0.0
|
| 10 |
|
|
open (10, status="scratch")
|
| 11 |
|
|
write (10, '(a)')" 289 329.142 214.107 12.313 12.050 11.913 11.868"
|
| 12 |
|
|
write (10, '(a)')" 2038.497 99.99 0.00 0.019 0.021 0.025 0.034"
|
| 13 |
|
|
write (10, '(a)')""
|
| 14 |
|
|
write (10, '(a)')" 413 360.334 245.261 12.375 11.910 11.469 11.086"
|
| 15 |
|
|
write (10, '(a)')" 2596.395 99.99 0.00 0.019 0.017 0.016 0.015"
|
| 16 |
|
|
write (10, '(a)')""
|
| 17 |
|
|
write (10, '(a)')" 655 332.704 317.964 12.523 12.212 11.998 11.892"
|
| 18 |
|
|
write (10, '(a)')" 1627.586 99.99 0.00 0.005 0.005 0.006 0.007"
|
| 19 |
|
|
write (10, '(a)')""
|
| 20 |
|
|
write (10, '(a)')" 360 379.769 231.226 12.709 12.422 12.195 11.941"
|
| 21 |
|
|
write (10, '(a)')" 2561.539 99.99 0.00 0.042 0.043 0.050 0.055"
|
| 22 |
|
|
rewind 10
|
| 23 |
|
|
do i = 1,100
|
| 24 |
|
|
read(10,'(T7,2F9.3)', iostat=ii, end=666) x,y
|
| 25 |
|
|
end do
|
| 26 |
|
|
666 continue
|
| 27 |
|
|
if (i /= 12) call abort
|
| 28 |
|
|
if (x /= 379.76901 .and. y /= 231.22600) call abort
|
| 29 |
|
|
close(10)
|
| 30 |
|
|
end program pr34411
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.