Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/endfile.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run { target fd_truncate } } ! pr18364 endfile does not truncate file. ! write out 20 records ! rewind ! read 10 records ! endfile ! close file ! open file ! detect file has only 10 records implicit none integer i,j open(unit=10,file='test.dat',access='sequential',status='replace') do i=1, 20 write (10,'(I4)') i end do rewind(10) do i=1,10 read (10,'(I4)') j end do endfile(10) close(10) open(unit=10,file='test.dat',access='sequential',status='old') do i=1,20 read (10,'(I4)',end=99) j end do ! should never get here call abort 99 continue ! end of file if (j.ne.10) call abort close(10,status='delete') end