FIX: F1001 "@(#)fltreg.c:1.31" When Compiling with /Ox

MORE INFORMATION

Some code compiled with the /Ox switch may generate the following error message: Depending on the contents of the file being compiled, the line could also be 2634.

To duplicate this error message, compile the following code with only the /Ox option. This sample produces the line 4792 message.

To resolve the problem, add the /Op option or remove the /Ox option. Also, almost any simplification or restructuring of the equations will remove the error. For example, uncomment the "temp =" line.

This code compiles without any error with Microsoft FORTRAN 5.1 or earlier.

Sample Code

C Compiler options required: /Ox and not /Op
      DIMENSION BN(30)
      COMMON ALPA, DN, THT, NP1, K, BN
c      temp = ALPA**((DN+1.0D0)*THT)
      SR=ALPA**(DN*THT)+BN(NP1)*0.5D0*ALPA**((DN+1.0D0)*THT)
      UTH=DSIN(THT)-BN(NP1)*0.5D0/ALPA**((DN+1.0D0)*THT)
      URB=ALPA**DCOS(DN*THT)*(DN-1.0D0)
      SRK2=(1.0D0)**ALPA**(K-1)
      UTHK2=(-1.0D0)**ALPA**K
      END