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