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_16.f90] - Rev 302
Go to most recent revision | Compare with Previous | Blame | 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) call abort
end do
read (50,*, end=10)
call abort
10 continue
close(50,status="delete")
end
Go to most recent revision | Compare with Previous | Blame | View Log