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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR38291 Rejects I/O with POS= if FMT=*
character(15) :: sAccess
character(1) :: instr
integer :: mypos, i
mypos = 0
open(50, access="stream", form="formatted")
write(50, *, pos=1) "Just something "
do i=1,17
  read( 50, *,pos=i)
  inquire(50, access=sAccess, pos=mypos)
  if (sAccess.ne."STREAM") call abort
  if ((mypos.ne.18).and.(mypos.ne.19)) call abort
end do
read (50,*, end=10)
call abort
 10 continue
close(50,status="delete")
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR38291 Rejects I/O with POS= if FMT=*`
3			`character(15) :: sAccess`
4			`character(1) :: instr`
5			`integer :: mypos, i`
6			`mypos = 0`
7			`open(50, access="stream", form="formatted")`
8			`write(50, *, pos=1) "Just something "`
9			`do i=1,17`
10			`read( 50, *,pos=i)`
11			`inquire(50, access=sAccess, pos=mypos)`
12			`if (sAccess.ne."STREAM") call abort`
13			`if ((mypos.ne.18).and.(mypos.ne.19)) call abort`
14			`end do`
15			`read (50,*, end=10)`
16			`call abort`
17			`10 continue`
18			`close(50,status="delete")`
19			`end`

Browse

Tools

Subversion Repositories openrisc

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