OpenCores

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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [backspace.f90] - Diff between revs 154 and 816

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 154	Rev 816
`! pr 15755`	`! pr 15755`
`implicit none`	`implicit none`
`character*1 C`	`character*1 C`
`open(10)`	`open(10)`
`write(10,*)'a'`	`write(10,*)'a'`
`write(10,*)'b'`	`write(10,*)'b'`
`write(10,*)'c'`	`write(10,*)'c'`
`rewind(10)`	`rewind(10)`
`read(10,*)C`	`read(10,*)C`
`backspace(10)`	`backspace(10)`
`read(10,*) C`	`read(10,*) C`
`if (C.ne.'a') call abort`	`if (C.ne.'a') call abort`
`close(10,STATUS='DELETE')`	`close(10,STATUS='DELETE')`
`end`	`end`

powered by: WebSVN 2.1.0

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