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/] [endfile.f] - Blame information for rev 302

Details | Compare with Previous | View Log


! { dg-do run }
! PR25550 file data corrupted after reading end of file.
! Derived from example given in PR from 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
      rewind (11)
      read(11)data
 1001 continue
      if(data.ne.-1) call abort
      end
 
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! PR25550 file data corrupted after reading end of file.`
3			`! Derived from example given in PR from 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			`rewind (11)`
13			`read(11)data`
14			`1001 continue`
15			`if(data.ne.-1) call abort`
16			`end`
17
18

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [endfile.f] - Blame information for rev 302