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

Subversion Repositories openrisc

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

Go to most recent revision | 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 backspaces and write.
3
! This test verifies that the last write truncates the file.
4
! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
5
      program test
6
      integer at,eof
7
      dimension idata(5)
8
      idata = -42
9
      open(unit=11,form='unformatted')
10
      write(11)idata
11
      write(11)idata
12
      write(11)idata
13
      backspace(11)
14
      backspace(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)idata
21
      read(11, end=250)idata
22
      call abort()
23
 250  continue
24
      close(11, status="delete")
25
      end
26
 

powered by: WebSVN 2.1.0

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