FIX: F1001: omf_ms.c:1.118; Equivalence with Structure Element

The information in this article applies to:

• Microsoft FORTRAN for MS-DOS and OS/2, version 5.0

SYMPTOMS

Using Microsoft FORTRAN 5.0 (under MS-DOS) to compile a program that uses an element of a structure in a READ or WRITE statement after that structure is used in an EQUIVALENCE statement, can result in the following error:

   fatal error F1001: Internal Compiler Error
            (compiler file '@(#)omf_ms.c:1.118', line 1093)

CAUSE

The errors do not occur if the element of the structure is assigned to a temporary variable, and then this temporary variable is used in the READ or WRITE.

RESOLUTION/STATUS

An application note titled "FORTRAN 5.0 F1.EXE and F1L.EXE Structure Patch" is available to correct these errors. To obtain this application note, call Microsoft Product Support Services.

This file has been removed from the Software Library but can be requested by calling Microsoft Product Support Services. Microsoft has confirmed this to be a problem in FORTRAN version 5.0. This problem was corrected in FORTRAN version 5.1.

MORE INFORMATION

Sample Code #1

      structure /a/
      character*1 x
      end structure

      record /a/ test
      character*1 word
      equivalence (word,test)
      word = 'a'
      write(*,*) test.x
      end

Sample Code #2

      structure /a/
      character*1 x
      end structure

      record /a/ test
      character*1 word, tmp
      equivalence (word,test)
      word = 'a'
      tmp = test.x
      write(*,*) tmp
      end

   /Zi and EQUIVALENCEing and RECORD and variables and hangs and machine