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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR34411 hang-up during read of non-expected input
3
! Test case derived from that given in PR
4
! Prior to patch, the do loop was infinite, limits set in this one
5
program pr34411
6
  real :: x,y
7
  ii = 0
8
  iostat = 0
9
  x = 0.0; y= 0.0
10
  open (10, status="scratch")
11
  write (10, '(a)')" 289  329.142  214.107   12.313   12.050   11.913   11.868"
12
  write (10, '(a)')"  2038.497 99.99  0.00   0.019    0.021    0.025    0.034"
13
  write (10, '(a)')""
14
  write (10, '(a)')" 413  360.334  245.261   12.375   11.910   11.469   11.086"
15
  write (10, '(a)')"  2596.395 99.99  0.00   0.019    0.017    0.016    0.015"
16
  write (10, '(a)')""
17
  write (10, '(a)')" 655  332.704  317.964   12.523   12.212   11.998   11.892"
18
  write (10, '(a)')"  1627.586 99.99  0.00   0.005    0.005    0.006    0.007"
19
  write (10, '(a)')""
20
  write (10, '(a)')" 360  379.769  231.226   12.709   12.422   12.195   11.941"
21
  write (10, '(a)')"  2561.539 99.99  0.00   0.042    0.043    0.050    0.055"
22
  rewind 10
23
  do i = 1,100
24
     read(10,'(T7,2F9.3)', iostat=ii, end=666) x,y
25
  end do
26
666 continue
27
  if (i /= 12) call abort
28
  if (x /= 379.76901 .and. y /= 231.22600) call abort
29
  close(10)
30
end program pr34411

powered by: WebSVN 2.1.0

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