KB100376 - FIX: Intrinsic REAL Function Assigned to COMPLEX Fails

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

FIX: Intrinsic REAL Function Assigned to COMPLEX Fails

SYMPTOMS

CAUSE

RESOLUTION

STATUS

MORE INFORMATION

Sample Code #1

Sample Code #2

Sample Code #3