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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [direct_io_6.f90] - Blame information for rev 801

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

Line No. Rev Author Line
1 694 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
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.