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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR25828 Stream IO test 7, Array writes and reads.
! Contributed by Jerry DeLisle .
program streamtest
  implicit none
  character(1)   :: lf = char(10)
  character(1)   :: tchar
  integer        :: i,j,k
  real(kind=4), dimension(100,100) :: anarray
  open(10, file="teststream", access="stream", form="unformatted")
  anarray = 3.14159
  write(10) anarray
  anarray = 0.0
  read(10, pos=1) anarray
  anarray = abs(anarray - 3.14159)
  if (any(anarray.gt.0.00001)) call abort()
  close(10,status="delete")
end program streamtest

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR25828 Stream IO test 7, Array writes and reads.`
3			`! Contributed by Jerry DeLisle .`
4			`program streamtest`
5			`implicit none`
6			`character(1) :: lf = char(10)`
7			`character(1) :: tchar`
8			`integer :: i,j,k`
9			`real(kind=4), dimension(100,100) :: anarray`
10			`open(10, file="teststream", access="stream", form="unformatted")`
11			`anarray = 3.14159`
12			`write(10) anarray`
13			`anarray = 0.0`
14			`read(10, pos=1) anarray`
15			`anarray = abs(anarray - 3.14159)`
16			`if (any(anarray.gt.0.00001)) call abort()`
17			`close(10,status="delete")`
18			`end program streamtest`

Browse

Tools

Subversion Repositories openrisc

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