Microsoft KB Archive/100376
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
An application that assigns the result of a REAL intrinsic function to a COMPLEX variable may generate incorrect results.
The compiler generates incorrect code to perform this assignment.
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.
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.
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