FIX: Erroneous F6099: Integer Overflow with $DEBUG

• Microsoft FORTRAN for MS-DOS, versions 5.0, 5.1
• Microsoft FORTRAN for OS/2, versions 5.0, 5.1

SYMPTOMS

The code below erroneously produces the following error when compiled with $DEBUG or /4Yb:

run-time error F6099: $DEBUG
- INTEGER overflow

RESOLUTION

Any one of the following will correct the error in the sample code:

1. Comment out the common blocks.


-or-


2. Change the 16000s to 15999.


-or-


3. Remove one parameter in the write statement.


-or-


4. Substitute a 1 in place of ibeta in the WRITE statement.


-or-


5. Reduce the 8600s to smaller numbers.


-or-


6. Remove the $storage command.


-or-


7. Break the write statement into multiple write statements.

STATUS

Microsoft has confirmed this to be a bug in the products listed above. This problem was corrected in FORTRAN PowerStation, version 1.0.

MORE INFORMATION

The following code can be used to demonstrate the problem.

Sample code

$debug
$storage:2

        dimension datsp1(16000), datsp2(16000)
        real*4 datsp1,datsp2

        common /dd1/ datsp1
        common /dd2/ datsp2

        itabl=8600
        iwyn=8600
        idar=4321
        ia=1
        icarr=4615
        ih=295
        ixpxi=199
        iy=197
        ise=193
        ibeta=1

        write(*,*) datsp1(ibeta),datsp1(ise),datsp1(iy),
     &  datsp1(ixpxi), datsp1(ih), datsp1(icarr), datsp2(ia),
     &  datsp2(idar),datsp2(iwyn),datsp2(itabl)
        end 

Additional query words: 5.00 5.10 buglist5.00 buglist5.10 fixlist1.00

Keywords :
Version : :5.0,5.1
Platform :
Issue type :