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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [backspace_2.f] - Blame information for rev 853

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


! { dg-do run }
! PR25139 Repeated backspaces and reads.
! Derived from example given in PR by Dale Ranta and FX Coudert
! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org> 
      integer dat(5)
      dat = (/ 0, 0, 0, 0, 1 /)
      write(11) dat,dat,dat,dat
      rewind 11
      write(11) dat
      read(11,end=1008) dat
      call abort()
 1008 continue
      backspace 11
      write(11) dat
      read(11,end=1011) dat
      call abort()
 1011 continue
      backspace 11
      backspace 11
      close(11, status='delete')
      end
 

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! PR25139 Repeated backspaces and reads.`
3			`! Derived from example given in PR by Dale Ranta and FX Coudert`
4			`! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>`
5			`integer dat(5)`
6			`dat = (/ 0, 0, 0, 0, 1 /)`
7			`write(11) dat,dat,dat,dat`
8			`rewind 11`
9			`write(11) dat`
10			`read(11,end=1008) dat`
11			`call abort()`
12			`1008 continue`
13			`backspace 11`
14			`write(11) dat`
15			`read(11,end=1011) dat`
16			`call abort()`
17			`1011 continue`
18			`backspace 11`
19			`backspace 11`
20			`close(11, status='delete')`
21			`end`
22

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [backspace_2.f] - Blame information for rev 853