OpenCores

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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [inquire.f90] - Rev 154

Compare with Previous | Blame | View Log

! { dg-do run }
! check to see that you cannot open a direct access file
! for sequential i/o.
! derived from NIST test fm910.for
        IMPLICIT NONE
        CHARACTER*10 D4VK
        OPEN(UNIT=7, ACCESS='DIRECT',RECL=132,STATUS='SCRATCH')
        INQUIRE(UNIT=7,SEQUENTIAL=D4VK)
        CLOSE(UNIT=7,STATUS='DELETE')
        IF (D4VK.NE.'NO') CALL ABORT
        END

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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