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