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

   1 ! pr14836
   2        OPEN(UNIT=9, ACCESS='DIRECT', RECL=80, FORM='UNFORMATTED')
   3        INQUIRE(UNIT=9,NEXTREC=NREC)
   4        WRITE(UNIT=9,REC=5) 1
   5        INQUIRE(UNIT=9,NEXTREC=NREC)
   6 !      PRINT*,NREC
   7        IF (NREC.NE.6) CALL ABORT
   8        READ(UNIT=9,REC=1) MVI
   9        INQUIRE(UNIT=9,NEXTREC=NREC)
  10        IF (NREC.NE.2) CALL ABORT
  11 !      PRINT*,NREC
  12        CLOSE(UNIT=9,STATUS='DELETE')
  13        END
  14