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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [backspace.f90] - Blame information for rev 826

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 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

powered by: WebSVN 2.1.0

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