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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [backspace.f90] - Blame information for rev 801

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


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

Line No.	Rev	Author	Line
1	695	jeremybenn	`! pr 15755`
2			`implicit none`
3			`character*1 C`
4			`open(10)`
5			`write(10,*)'a'`
6			`write(10,*)'b'`
7			`write(10,*)'c'`
8			`rewind(10)`
9			`read(10,*)C`
10			`backspace(10)`
11			`read(10,*) C`
12			`if (C.ne.'a') call abort`
13			`close(10,STATUS='DELETE')`
14			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [backspace.f90] - Blame information for rev 801