Microsoft KB Archive/112341

= FIX: LOC Fails on Double COMPLEX Structure Element =

Article ID: 112341

Article Last Modified on 10/17/2003

-

APPLIES TO


 * Microsoft FORTRAN PowerStation 1.0 Standard Edition
 * Microsoft Fortran PowerStation 1.0a for MS-DOS
 * Microsoft FORTRAN PowerStation 32

-



This article was previously published under Q112341



SYMPTOMS
Using the LOC intrinsic function to return the address of a COMPLEX*16 structure variable results in an address of 0 (zero).



RESOLUTION
Use the LOC function on a different type of field in the structure and then calculate the address of the DOUBLE PRECISION COMPLEX field. If necessary, create a UNION block to map a different variable type to the double COMPLEX element.



STATUS
Microsoft has confirmed this to be a problem in FORTRAN PowerStation for Windows NT, version 1.0 and for MS-DOS, versions 1.0 and 1.0a. This problem was corrected in FORTRAN PowerStation 32, version 4.0.



MORE INFORMATION
The following sample illustrates the problem:

Sample Code
c Compile options needed: none c structure /nest/ double complex tests end structure

record /nest/ t     t.tests=(0.,0.) i = loc(t.tests) print10, 'loc(t.tests)         ', i,i 10   format(1x,a,i8,3x,z) end

Additional query words: 1.00 1.00a

Keywords: kbbug kbfix kblangfortran KB112341

-

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

© Microsoft Corporation. All rights reserved.