2 ! PR71123 Namelist
read failure on Windows
5 real(8), dimension(30) :: senid
, res
6 character(2) :: crlf
= char
(13) // char
(10)
12 open
(unit
=7,file
='test.out',form
='formatted',
13 * status
='new',action
='readwrite', access
='stream')
14 write(7,'(a)') "&fith" // crlf
15 write(7,'(a)') "senid= 1.0 , 2.0 , 3.0 , 4.0 , 5.0 ," // crlf
16 write(7,'(a)') "6.0 , 7.0 , 8.0 , 9.0 , 10.0 , 11.0 ," // crlf
17 write(7,'(a)') "12.0 , 13.0 , 14.0 , 15.0 , 16.0 , 17.0 ," // crlf
18 write(7,'(a)') "18.0 , 19.0 , 20.0 , 21.0 , 22.0 , 23.0 ," // crlf
19 write(7,'(a)') "24.0 , 25.0 , 26.0 , 27.0 , 28.0 , 29.0 ," // crlf
20 write(7,'(a)') "30.0 ," // crlf
21 write(7,'(a)') "/" // crlf
23 open
(unit
=7,file
='test.out',form
='formatted')
24 read(7,nml
=fith
, iostat
=ierr
)
25 close
(7, status
="delete")
27 if (any
(senid
.ne
.res
)) STOP 2