Microsoft KB Archive/100376

From BetaArchive Wiki

PSS ID Number: 100376

Article Last Modified on 3/24/2000



The information in this article applies to:

  • Microsoft FORTRAN PowerStation for MS-DOS 1.0



This article was previously published under Q100376

SYMPTOMS

An application that assigns the result of a REAL intrinsic function to a COMPLEX variable may generate incorrect results.

CAUSE

The compiler generates incorrect code to perform this assignment.

RESOLUTION

There are two methods to avoid this problem, as follows:

  • Modify the source code to assign the result of the REAL function to a temporary REAL variable. Then specify the temporary variable in the assignment statement.
  • Add zero to the result of the function.


STATUS

Microsoft has confirmed this to be a problem in FORTRAN PowerStation version 1.0 for MS-DOS. This problem has been resolved with FORTRAN PowerStation maintenance release version 1.0a for MS-DOS.

FORTRAN PowerStation version 1.0 can be differentiated from the maintenance release version 1.0a by invoking the linker. Typing link32 | more from \F32\BIN directory will show version 2.8 for FORTRAN PowerStation version 1.0, and it will show version 1.0f for the maintenance release version 1.0a.

MORE INFORMATION

Specifying different compiler options does not correct this problem. The various options only change the incorrect value that the code places in the COMPLEX variable.

The following sample code demonstrates this problem:

Sample Code #1

c Compile options needed: None

      complex*8 c
      real*4 x
      x = 1.0
      c = exp(x)
      print *, 'complex c1 = exp(x); c = ', c
      end
                

The following sample code demonstrates one method to work around this problem:

Sample Code #2

c Compile options needed: None

      complex*8 c
      real*4 x, tmp
      x = 1.0
      tmp = exp(x)
      c = tmp
      print *, 'complex c1 = exp(x); c = ', c
      end
                

The following sample code demonstrates another method to work around this problem:

Sample Code #3

c Compile options needed: None

      complex*8 c
      real*4 x
      x = 1.0
      c = exp(x) + 0
      print *, 'complex c1 = exp(x); c = ', c
      end
                


Additional query words: 1.00 buglist1.00 fixlist1.00a

Keywords: kbbug KB100376
Technology: kbAudDeveloper kbFORTRANPower100DOS kbFortranSearch kbZNotKeyword3