[Bug fortran/35699] New: run-time abort writing zero sized section to direct access file

[dick dot hendrickson at gmail dot com]

On Windows XP, with SP2, the following program beeps at me
and opens an alert box saying
"a.exe has encountered a problem and needs to close.  
We are sorry for the inconvenience."

and offers to send Microsoft an error report (I declined).

Based on the print statements, it's the write statement that 
is causing the problem.

Changing the zero sized section subscripts from nf4:nf3 to
4:3 does not cure the problem 

      program try_qi0010
! fails on Windows XP
! gcc version 4.4.0 20080312 (experimental) [trunk revision 133139]



      call       QI0010 (  10,   1,   2,   3,   4,  9,   2)
      end

      SUBROUTINE QI0010 (nf10, nf1, nf2, nf3, nf4,nf9, np2)
      CHARACTER(9) BDA(nf10)
      CHARACTER(9) BDA1(nf10), bval

      INTEGER  J_LEN
      bda1(1) = 'x'
      do I = 2,10
      bda1(i) = 'x'//bda1(i-1)
      enddo
      bda = 'unread'

      print *, 'begin inquire'
      INQUIRE(IOLENGTH = J_LEN) BDA1(NF1:NF10:NF2), BDA1(NF4:NF3),
     $                               BDA1(NF2:NF10:NF2)

      print *, 'begin open '
      OPEN (UNIT=48,
     $      STATUS='SCRATCH',
     $      ACCESS='DIRECT',
     $      RECL = j_len,
     $      IOSTAT = ISTAT,
     $      FORM='UNFORMATTED',
     $      ACTION='READWRITE')

      print *, 'begin write '
      WRITE (48,IOSTAT = ISTAT, REC = 3) BDA1(NF1:NF10:NF2),
     $                    BDA1(NF4:NF3), BDA1(NF2:NF10:NF2)
      IF ( ISTAT .NE. 0) then
        print *, istat, ' WRITE FAILED '
        stop
      ENDIF
      ISTAT = -314

      print *, 'begin read '

      READ (48,IOSTAT = ISTAT, REC = NP2+1) BDA(NF1:NF9:NF2),
     $                       BDA(NF4:NF3), BDA(NF2:NF10:NF2)
      IF ( ISTAT .NE. 0) THEN
        print *, istat, ' read FAILED '
        stop
      ENDIF

      print *, 'begin check '
      DO J1 = 1,10
      BVAL = BDA1(J1)
      IF (BDA(J1) .NE. BVAL)
     $ print *, j1 ,BDA(J1),BVAL
  100 ENDDO;
      END SUBROUTINE


-- 
           Summary: run-time abort writing zero sized section to direct
                    access file
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dick dot hendrickson at gmail dot com


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35699