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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [streamio_13.f90] - Blame information for rev 581

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


! { dg-do run }
! PR 34405 - BACKSPACE for unformatted stream files is prohibited.
program main
  implicit none
  integer :: ios
  character(len=80) :: msg
  open(2003,form="unformatted",access="stream",status="scratch")
  write (2003) 1
  write (2003) 2
  ios = 0
  msg = ' '
  backspace (2003,iostat=ios,iomsg=msg)
  if (ios == 0 .or. msg /="Cannot BACKSPACE an unformatted stream file") &
       call abort
end program main

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! PR 34405 - BACKSPACE for unformatted stream files is prohibited.`
3			`program main`
4			`implicit none`
5			`integer :: ios`
6			`character(len=80) :: msg`
7			`open(2003,form="unformatted",access="stream",status="scratch")`
8			`write (2003) 1`
9			`write (2003) 2`
10			`ios = 0`
11			`msg = ' '`
12			`backspace (2003,iostat=ios,iomsg=msg)`
13			`if (ios == 0 .or. msg /="Cannot BACKSPACE an unformatted stream file") &`
14			`call abort`
15			`end program main`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [streamio_13.f90] - Blame information for rev 581