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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run { target fd_truncate } }
2
! PR 26499 : Positioning of EOF after  write and rewind.
3
! Test case from Dale Ranta in PR.
4
! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
5
      program test
6
      dimension idata(100)
7
      idata = -42
8
      open(unit=11,form='unformatted')
9
      write(11)idata
10
      write(11)idata
11
      read(11,end=        1000 )idata
12
      call abort()
13
 1000 continue
14
      rewind 11
15
      write(11)idata
16
      close(11,status='keep')
17
      open(unit=11,form='unformatted')
18
      rewind 11
19
      read(11)idata
20
      read(11, end=250)idata
21
      call abort()
22
 250  continue
23
      close(11,status='delete')
24
      end

powered by: WebSVN 2.1.0

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