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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

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