URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [read_x_eof.f90] - Blame information for rev 318

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
! PR43265 No EOF condition if reading with '(x)' from an empty file
! Test case from the reporter.
program pr43265
implicit none
integer::i
open(23,status="scratch")
write(23,'(a)') "Line 1"
write(23,'(a)') "Line 2"
write(23,'(a)') "Line 3"
rewind(23)
do i=1,10
  read(23,'(1x)',end=12)
enddo
12 if (i.ne.4) call abort
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! PR43265 No EOF condition if reading with '(x)' from an empty file`
3			`! Test case from the reporter.`
4			`program pr43265`
5			`implicit none`
6			`integer::i`
7			`open(23,status="scratch")`
8			`write(23,'(a)') "Line 1"`
9			`write(23,'(a)') "Line 2"`
10			`write(23,'(a)') "Line 3"`
11			`rewind(23)`
12			`do i=1,10`
13			`read(23,'(1x)',end=12)`
14			`enddo`
15			`12 if (i.ne.4) call abort`
16			`end`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [read_x_eof.f90] - Blame information for rev 318