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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [eof_1.f90] - Blame information for rev 749

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


! { dg-do run }
! Program to test for proper EOF errors when reading past the end of a file.
! We used to get this wrong when a formatted read followed a list formatted
! read.
program eof_1
  character(len=5) :: s
 
  open (unit=11, status="SCRATCH")
  write (11, '(a)') "Hello"
  rewind(11)
  read(11, *) s
  if (s .ne. "Hello") call abort
  read(11, '(a5)', end=10) s
  call abort
10 continue
  close (11)
end
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! Program to test for proper EOF errors when reading past the end of a file.`
3			`! We used to get this wrong when a formatted read followed a list formatted`
4			`! read.`
5			`program eof_1`
6			`character(len=5) :: s`
7
8			`open (unit=11, status="SCRATCH")`
9			`write (11, '(a)') "Hello"`
10			`rewind(11)`
11			`read(11, *) s`
12			`if (s .ne. "Hello") call abort`
13			`read(11, '(a5)', end=10) s`
14			`call abort`
15			`10 continue`
16			`close (11)`
17			`end`
18

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [eof_1.f90] - Blame information for rev 749