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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR27138 Failure to advance line on bad list directed read.
3
! Submitted by Jerry DeLisle  
4
      program test
5
      implicit none
6
      integer :: ntype = 55
7
      real    :: rtype
8
      complex :: ctype
9
      logical :: ltype
10
      OPEN (10, status="scratch")
11
      write(10,*) "aaaa aaaa aaaa aaaa"
12
      write(10,*) "bbbb bbbb bbbb bbbb"
13
      write(10,*) "cccc cccc cccc cccc"
14
      write(10,*) "dddd dddd dddd dddd"
15
      write(10,*) "  "
16
      write(10,*) "1234 5678 9012 3456"
17
      rewind(10)
18
      READ (10,*,END=77,ERR=77) ntype
19
      goto 99
20
   77 READ (10,*,END=78,ERR=78) rtype
21
      goto 99
22
   78 READ (10,*,END=79,ERR=79) ctype
23
      goto 99
24
   79 READ (10,*,END=80,ERR=80) ltype
25
      goto 99
26
   80 READ (10,*,END=99,ERR=99) ntype
27
      if (ntype.ne.1234) goto 99
28
      close(10)
29
      stop
30
   99 close(10)
31
      call abort()
32
      end program test

powered by: WebSVN 2.1.0

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