Knowledge Base

FIX: $DEBUG Does Not Trap Range Errors in Implied-DO Loops

Article ID: 106635

Article Last Modified on 12/1/2003

Microsoft FORTRAN Compiler 4.0
Microsoft FORTRAN Compiler 4.1
Microsoft FORTRAN Compiler 5.0
Microsoft FORTRAN Compiler 5.1
Microsoft FORTRAN Compiler 4.1
Microsoft FORTRAN Compiler 5.0
Microsoft FORTRAN Compiler 5.1
Microsoft FORTRAN PowerStation 1.0 Standard Edition
Microsoft Fortran PowerStation 1.0a for MS-DOS
Microsoft FORTRAN PowerStation 32

This article was previously published under Q106635

SYMPTOMS

Extended error handling (enabled by $DEBUG or /4Yb) does not catch array subscript out-of-range errors in implied-DO loops (it does not generate F6096).

STATUS

Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. This problem was fixed in FORTRAN PowerStation version 4.0.

MORE INFORMATION

To duplicate the problem, compile and run the sample code below, which generates no errors. Because the code writes to elements 11-20 of array J, the following should have been generated:

: run-time error F6096: $DEBUG
- array subscript expression out of range

Sample Code

C Compiler options needed: none
$debug
      parameter (n=20)
      integer j(10)
      j=1                      ! set entire array to 1
      write (*,*) (j(i),i=1,n)
      end

Additional query words: 1.00

Keywords: kbfix KB106635