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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [record_marker_3.f90] - Blame information for rev 853

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

Line No. Rev Author Line
1 149 jeremybenn 
! { dg-do run }
2 
! { dg-options "-frecord-marker=8" }
3 
 
4 
program main
5 
  implicit none
6 
  integer (kind=8) :: i1, i2, i3
7 
 
8 
  open(15,form="UNFORMATTED")
9 
  write (15) 1_8
10 
  close (15)
11 
  open (15,form="UNFORMATTED",access="DIRECT",recl=8)
12 
  i1 = 1
13 
  i2 = 2
14 
  i3 = 3
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 /= 8) call abort
20 
  if (i2 /= 1) call abort
21 
  if (i3 /= 8) call abort
22 
 
23 
  open(15,form="UNFORMATTED",convert="SWAP")
24 
  write (15) 1_8
25 
  close (15)
26 
  open (15,form="UNFORMATTED",access="DIRECT",convert="SWAP",recl=8)
27 
  i1 = 1
28 
  i2 = 2
29 
  i3 = 3
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 /= 8) call abort
35 
  if (i2 /= 1) call abort
36 
  if (i3 /= 8) 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.