Microsoft KB Archive/100376

= FIX: Intrinsic REAL Function Assigned to COMPLEX Fails =

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

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© 2004 Microsoft Corporation. All rights reserved.