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

• Microsoft FORTRAN for MS-DOS, version 5.0
• Microsoft FORTRAN for 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

c  The following program illustrates the problem:

      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

  Assigning the structure element to a temporary variable, as shown
c  below, and then using the temporary variable in the WRITE statement,
c  does not generate the errors.

      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

Additional query words: 5.00 5.10 hf0225

Keywords :
Version : :5.0
Platform :
Issue type :