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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
C { dg-do run }
2
C { dg-options "-std=legacy" }
3
C
4
C PR libfortran/31618 - backspace after an error didn't work.
5
      program main
6
      character*78 msg
7
      open (21, file="backspace_7.dat", form="unformatted")
8
      write (21) 42, 43
9
      write (21) 4711, 4712
10
      write (21) -1, -4
11
      rewind (21)
12
      read (21) i,j
13
      read (21,err=100,end=100) i,j,k
14
      call abort
15
 100  continue
16
      backspace 21
17
      read (21) i,j
18
      if (i .ne. 4711 .or. j .ne. 4712) call abort
19
      close (21,status="delete")
20
      end

powered by: WebSVN 2.1.0

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