DOCUMENT:Q109880  24-MAR-2000  [fortran]
TITLE   :FIX: Incorrect $DEBUG Reference to Include File
PRODUCT :Microsoft Fortran Compiler
PROD/VER::1.0,1.0a
OPER/SYS:
KEYWORDS:kberrmsg kbLangFortran

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft FORTRAN PowerStation for MS-DOS, versions 1.0, 1.0a 
 - Microsoft Fortran Powerstation 32 for Windows NT, version 1.0 
-------------------------------------------------------------------------------

SYMPTOMS
========

Under some circumstances, a $DEBUG message may incorrectly give the name of an
include file instead of the name of the program where the trapped run- time
error occurred. For example, the code sample shown below deliberately references
the array "nums" beyond its bounds. With the $DEBUG metacommand at the top of
the program, the run-time error is reported as:

   C:\FPSNT\INCLUDE/flib.fd(7) : run-time error F6096: $DEBUG
   - array subscript expression out of range

   Execution traceback:
   from main program in C:\FPSNT\INCLUDE/flib.fd(7)

Note that the filename refers to the include file FLIB.FD, but the line number
(7) correctly indicates the location in the main program where the error
occurred.

This can also happen with user-defined include files.

RESOLUTION
==========

If the $DEBUG metacommand is moved to below the include statements, then the
correct filename will be referenced.

STATUS
======

Microsoft has confirmed this to be a problem in the products listed at the
beginning of this article. This problem was corrected in FORETRAN PowerStation
32, version 4.0.

MORE INFORMATION
================

This situation also exists with Microsoft FORTRAN version 5.1.

Sample Code
-----------

   C Compile options needed: NONE
   $DEBUG
         include 'flib.fi'
         include 'flib.fd'
         integer*4 nums(7)
         do i = 1, 10
           nums(i) = i
           write(*,*) nums(i)
         end do
         end

Additional query words: 1.00 5.10

======================================================================
Keywords          : kberrmsg kbLangFortran 
Technology        : kbAudDeveloper kbFortranSearch kbZNotKeyword2 kbZNotKeyword3 kbFORTRANPower32100NT kbFORTRANPower100DOS kbFORTRANPower100aDOS
Version           : :1.0,1.0a
Issue type        : kbbug
Solution Type     : kbfix

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2000.