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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [unformatted_recl_1.f90] - Blame information for rev 307

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn 
! { dg-do run { target fd_truncate } }
2 
! PR31099 Runtime error on legal code using RECL
3 
program test
4 
  integer(kind=4) :: a, b
5 
  a=1
6 
  b=2
7 
  open(10, status="scratch", form="unformatted", recl=8)
8 
  write(10) a,b
9 
  write(10) a,b
10 
  write(10) a,b
11 
  write(10) b, a
12 
  rewind(10)
13 
  write(10) a,b
14 
  write(10) a,b
15 
  write(10) a,b
16 
  write(10) b, a
17 
  b=0
18 
  a=0
19 
  rewind(10)
20 
  read(10) a, b
21 
  read(10) a, b
22 
  read(10) a, b
23 
  read(10) a, b
24 
  if ((a.ne.2).and.( b.ne.1)) call abort()
25 
end program test
26 
 

powered by: WebSVN 2.1.0

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