blob: 2e16c036334df9aa5f5ba53fec3aa54ae664151b [file] [log] [blame]
! { dg-do run }
! PR70684 incorrect reading of values from file on Windows
program test
implicit none
integer,parameter :: isize=12
integer,parameter :: funit=12
integer :: i
character(1), parameter :: cr=char(13)
double precision, dimension(isize) :: a, res
res= (/ 1.0000000000000000, 2.0000000000000000, 3.0000000000000000, &
4.0000000000000000, 5.0000000000000000, 6.0000000000000000, &
7.0000000000000000, 8.0000000000000000, 9.0000000000000000, &
10.000000000000000, 11.000000000000000, 12.000000000000000 /)
do i=1,isize
a(i)=dble(i)
enddo
open(funit,status="scratch")
write(funit,'(1x,6(f25.20,'',''),a)') (a(i),i=1,6), cr
write(funit,'(1x,6(f25.20,'',''),a)') (a(i),i=7,12), cr
rewind(funit)
a=0d0
read(funit,*) (a(i),i=1,isize)
close(funit)
if (any(a /= res)) STOP 1
end