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

   1 ! pr 14904
   2 ! inquire lastrec not correct when two records written
   3 ! with one write statement
   4        OPEN(UNIT=10,ACCESS='DIRECT',FORM='FORMATTED',RECL=120)
   5  100   FORMAT(I4)
   6        WRITE(UNIT=10,REC=1,FMT=100)1
   7        INQUIRE(UNIT=10,NEXTREC=J)
   8        IF (J.NE.2) THEN
   9 !          PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 2'
  10            CALL ABORT
  11        ENDIF
  12  200   FORMAT(I4,/,I4)
  13        WRITE(UNIT=10,REC=2,FMT=200)2,3
  14        INQUIRE(UNIT=10,NEXTREC=J)
  15        IF (J.NE.4) THEN
  16 !          PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 4'
  17            CALL ABORT
  18        ENDIF
  19        CLOSE(UNIT=10,STATUS='DELETE')
  20        END
  21