mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2025-01-11 13:33:52 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

re PR fortran/41328 (bad iostat when reading DOS file in a character array (non-advancing))

Browse Source 
2009-09-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/41328
	* gfortran.dg/cr_lf.f90: Modify test to include check that no EOR with
	EOF works.

From-SVN: r151878
This commit is contained in:
Jerry DeLisle 2009-09-19 04:45:00 +00:00
parent bf187ce8be
commit b5e7280daa
2 changed files with 38 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2009-09-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/41328
* gfortran.dg/cr_lf.f90: Modify test to include check that no EOR with
EOF works.
2009-09-18 Jason Merrill <jason@redhat.com>
* g++.dg/cpp0x/nolinkage1{.C,.h,a.cc}: New.

36
gcc/testsuite/gfortran.dg/cr_lf.f90
View File

@ -4,11 +4,17 @@
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
program main
implicit none
integer :: iostat, n_chars_read
integer :: iostat, n_chars_read, k
character(len=1) :: buffer(64) = ""
open( unit=10, form="formatted", access="stream", status="scratch")
write(10, fmt="(a)", advance="no") "a\rb\rc\r"
rewind(10)
character (len=80) :: u
! Set up the test file with normal file end.
open(unit=10, file="crlftest", form="unformatted", access="stream",&
& status="replace")
write(10) "a\rb\rc\r" ! CR at the end of each record.
close(10, status="keep")
open(unit=10, file="crlftest", form="formatted", status="old")
read( unit=10, fmt='(64A)', advance='NO', iostat=iostat, &
size=n_chars_read ) buffer
@ -33,4 +39,26 @@ program main
if (n_chars_read.ne.0) call abort
if (any(buffer(1:n_chars_read).ne."a")) call abort
if (.not.is_iostat_end(iostat)) call abort
close(10, status="delete")
! Set up the test file with normal file end.
open(unit=10, file="crlftest", form="unformatted", access="stream",&
& status="replace")
write(10) "a\rb\rc\rno end of line marker" ! Note, no CR at end of file.
close(10, status="keep")
open(unit=10, file="crlftest", status='old')
do k = 1, 10
read(10,'(a80)',end=101,err=100) u
!print *,k,' : ',u(1:len_trim(u))
enddo
100 continue
close(10, status="delete")
call abort
101 continue
close(10, status="delete")
if (u(1:len_trim(u)).ne."no end of line marker") call abort
end program main