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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn 
! { dg-do run }
2 
! { dg-options "-frecord-marker=4" }
3 
 
4 
program main
5 
  implicit none
6 
  integer(kind=4) :: i1, i2, i3
7 
 
8 
  open(15,form="UNFORMATTED")
9 
  write (15) 1_4
10 
  close (15)
11 
  open (15,form="UNFORMATTED",access="DIRECT",recl=4)
12 
  i1 = 1_4
13 
  i2 = 2_4
14 
  i3 = 3_4
15 
  read (15,rec=1) i1
16 
  read (15,rec=2) i2
17 
  read (15,rec=3) i3
18 
  close (15, status="DELETE")
19 
  if (i1 /= 4_4) call abort
20 
  if (i2 /= 1_4) call abort
21 
  if (i3 /= 4_4) call abort
22 
 
23 
  open(15,form="UNFORMATTED",convert="SWAP")
24 
  write (15) 1_4
25 
  close (15)
26 
  open (15,form="UNFORMATTED",access="DIRECT",convert="SWAP",recl=4)
27 
  i1 = 1_4
28 
  i2 = 2_4
29 
  i3 = 3_4
30 
  read (15,rec=1) i1
31 
  read (15,rec=2) i2
32 
  read (15,rec=3) i3
33 
  close(15,status="DELETE")
34 
  if (i1 /= 4_4) call abort
35 
  if (i2 /= 1_4) call abort
36 
  if (i3 /= 4_4) call abort
37 
 
38 
end program main

powered by: WebSVN 2.1.0

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