This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug libfortran/70684] [Regression 5.3, 6] incorrect reading of values from file on Windows
- From: "jvdelisle at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Fri, 15 Apr 2016 22:27:02 +0000
- Subject: [Bug libfortran/70684] [Regression 5.3, 6] incorrect reading of values from file on Windows
- Auto-submitted: auto-generated
- References: <bug-70684-4 at http dot gcc dot gnu dot org/bugzilla/>
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