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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [backspace_3.f] - Blame information for rev 858

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


! { dg-do run }
! PR25598 Error on repeated backspaces.
! Derived from example given in PR by Dale Ranta
! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org> 
       integer data
       data=-1
       open(unit=11,status='scratch',form='unformatted')
       write(11)data
       read(11,end=        1000 )data
       call abort()
 1000  continue
       backspace 11
       backspace 11
       backspace 11
       read(11,end=        1001 )data
 1001  continue
       if (data.ne.-1) call abort
       close(11)
       end
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR25598 Error on repeated backspaces.`
3			`! Derived from example given in PR by Dale Ranta`
4			`! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>`
5			`integer data`
6			`data=-1`
7			`open(unit=11,status='scratch',form='unformatted')`
8			`write(11)data`
9			`read(11,end= 1000 )data`
10			`call abort()`
11			`1000 continue`
12			`backspace 11`
13			`backspace 11`
14			`backspace 11`
15			`read(11,end= 1001 )data`
16			`1001 continue`
17			`if (data.ne.-1) call abort`
18			`close(11)`
19			`end`
20

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [backspace_3.f] - Blame information for rev 858