https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70684
--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> --- This slightly modified version of the testcase shows the bug with Linux: 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 do i=1,isize a(i)=dble(i) enddo write(6,*)'Value to write' do i=1,isize write(6,*)a(i) enddo open(funit,file='test.txt') 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 close(funit) do i=1,isize a(i)=0d0 enddo open(funit,file='test.txt') read(funit,*) (a(i),i=1,isize) close(funit) write(6,*)'Values after read' do i=1,isize write(6,*)a(i) enddo end
