gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90

   1 ! PR 14831
   2        CHARACTER*4 BLANK
   3        CHARACTER*10 ACCESS
   4        OPEN(UNIT=9,ACCESS='SEQUENTIAL')
   5        INQUIRE(UNIT=9,ACCESS=ACCESS,BLANK=BLANK)
   6        IF(BLANK.NE.'NULL') CALL ABORT
   7        IF(ACCESS.NE.'SEQUENTIAL') CALL ABORT
   8        CLOSE(UNIT=9,STATUS='DELETE')
   9        END