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

Subversion Repositories openrisc

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

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


! { dg-do run { target fd_truncate } }
! PR31099 Runtime error on legal code using RECL
program test
  integer(kind=4) :: a, b
  a=1
  b=2
  open(10, status="scratch", form="unformatted", recl=8)
  write(10) a,b
  write(10) a,b
  write(10) a,b
  write(10) b, a
  rewind(10)
  write(10) a,b
  write(10) a,b
  write(10) a,b
  write(10) b, a
  b=0
  a=0
  rewind(10)
  read(10) a, b
  read(10) a, b
  read(10) a, b
  read(10) a, b
  if ((a.ne.2).and.( b.ne.1)) call abort()
end program test
 

Line No.	Rev	Author	Line
1	694	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

Browse

Tools

Subversion Repositories openrisc

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