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/] [backspace_11.f90] - Blame information for rev 414

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


! { dg-do run }
! PR 40334 backspace regression
program backspace_11
 implicit none
 character(len=5) :: str
 open(10, access='sequential', status='scratch')
 write(10,'(A)')'HELLO'
 rewind(10)
 
 do
    read(10,'(A)',end=1) str
 enddo
1 backspace 10
 !the file pointer is now at EOF
 
 read(10,*,end=2) str
 call abort
2 backspace 10
 !the file pointer is now at EOF
 
 read(10,'(A)',end=3) str
 call abort
3 continue
end program backspace_11

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! PR 40334 backspace regression`
3			`program backspace_11`
4			`implicit none`
5			`character(len=5) :: str`
6			`open(10, access='sequential', status='scratch')`
7			`write(10,'(A)')'HELLO'`
8			`rewind(10)`
9
10			`do`
11			`read(10,'(A)',end=1) str`
12			`enddo`
13			`1 backspace 10`
14			`!the file pointer is now at EOF`
15
16			`read(10,*,end=2) str`
17			`call abort`
18			`2 backspace 10`
19			`!the file pointer is now at EOF`
20
21			`read(10,'(A)',end=3) str`
22			`call abort`
23			`3 continue`
24			`end program backspace_11`

Browse

Tools

Subversion Repositories openrisc_me

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