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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR25828 Stream IO test 3, tests read_x and inquire.
! Contributed by Jerry DeLisle .
program streamio_3
  implicit none
  integer         :: i(6),j
  character(10)   :: myaccess
  open(10, access="stream", form="formatted")
  i = (/(j,j=1,6)/)
  write(10,'(3(2x,i4/)/3(3x,i6/))') i
  i = 0
  rewind(10)
  read(10,'(3(2x,i4/)/3(3x,i6/))') i
  if (any(i.ne.(/(j,j=1,6)/))) call abort()
  inquire(unit=10, access=myaccess)
  if (myaccess.ne."STREAM") call abort()
  close(10,status="delete")
end program streamio_3

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! PR25828 Stream IO test 3, tests read_x and inquire.`
3			`! Contributed by Jerry DeLisle .`
4			`program streamio_3`
5			`implicit none`
6			`integer :: i(6),j`
7			`character(10) :: myaccess`
8			`open(10, access="stream", form="formatted")`
9			`i = (/(j,j=1,6)/)`
10			`write(10,'(3(2x,i4/)/3(3x,i6/))') i`
11			`i = 0`
12			`rewind(10)`
13			`read(10,'(3(2x,i4/)/3(3x,i6/))') i`
14			`if (any(i.ne.(/(j,j=1,6)/))) call abort()`
15			`inquire(unit=10, access=myaccess)`
16			`if (myaccess.ne."STREAM") call abort()`
17			`close(10,status="delete")`
18			`end program streamio_3`

Browse

Tools

Subversion Repositories openrisc

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