Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/list_read_14.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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