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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [direct_io_6.f90] - Blame information for rev 816

Details | Compare with Previous | View Log


! { dg-do run }
! pr31366 last record truncated for read after short write, direct access file.
! test case derived from pr, submitted by jerry delisle  
      program test
      character(len=8) :: as_written, as_read
      character(1) :: byte
      as_written = "12345678"
      open (76, access="direct", recl=12, status="scratch")
      write(76, rec=1) as_written
      write(76, rec=2) as_written
      read(76, rec=1) as_read, byte, byte, byte, byte
      read(76, rec=2, err=3) as_read, byte, byte, byte, byte
      stop
  3   call abort()
      end program test
 

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! pr31366 last record truncated for read after short write, direct access file.`
3			`! test case derived from pr, submitted by jerry delisle`
4			`program test`
5			`character(len=8) :: as_written, as_read`
6			`character(1) :: byte`
7			`as_written = "12345678"`
8			`open (76, access="direct", recl=12, status="scratch")`
9			`write(76, rec=1) as_written`
10			`write(76, rec=2) as_written`
11			`read(76, rec=1) as_read, byte, byte, byte, byte`
12			`read(76, rec=2, err=3) as_read, byte, byte, byte, byte`
13			`stop`
14			`3 call abort()`
15			`end program test`
16

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [direct_io_6.f90] - Blame information for rev 816