1! { dg-do run }
2! PR70684 incorrect reading of values from file on Windows
3program test
4implicit none
5integer,parameter :: isize=12
6integer,parameter :: funit=12
7integer :: i
8character(1), parameter :: cr=char(13)
9double precision, dimension(isize) :: a, res
10res= (/ 1.0000000000000000, 2.0000000000000000, 3.0000000000000000, &
11        4.0000000000000000, 5.0000000000000000, 6.0000000000000000, &
12        7.0000000000000000, 8.0000000000000000, 9.0000000000000000, &
13        10.000000000000000, 11.000000000000000, 12.000000000000000 /)
14do i=1,isize
15 a(i)=dble(i)
16enddo
17open(funit,status="scratch")
18write(funit,'(1x,6(f25.20,'',''),a)') (a(i),i=1,6), cr
19write(funit,'(1x,6(f25.20,'',''),a)') (a(i),i=7,12), cr
20rewind(funit)
21a=0d0
22read(funit,*) (a(i),i=1,isize)
23close(funit)
24if (any(a /= res)) STOP 1
25end
26