Microsoft KB Archive/106730

= BUG: F6103 Reading "0." into COMPLEX Number =

Article ID: 106730

Article Last Modified on 12/2/2003

-

APPLIES TO


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

-



This article was previously published under Q106730



SYMPTOMS
Attempting to READ "0." into a COMPLEX variable produces the following error:

run-time error F6103: READ(file_name)

- invalid real

This error occurs with standard- or list-directed formats on internal and external files.

Inputs of 0, 0.0, and .0 as well as all other numbers ending in a decimal point can be correctly read into COMPLEX variables.



RESOLUTION
Input 0 (zero) rather than 0. when reading complex values using formatted I/O.



STATUS
Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.



MORE INFORMATION
The following program demonstrates that with PowerStation, imputing 0, 0.0, or 1. does not produce any errors, but imputing 0. produces the F6103 invalid real error. The output when compiled with PowerStation is:   In: 1.,1. Out:          (1.000000,1.000000), error #:     0 In: 1.,0. Out:          (1.000000,1.000000), error #:  6103 In: 0.,1. Out:          (1.000000,1.000000), error #:  6103 In: 0.0,0.0  Out:   (0.000000E+00,0.000000E+00), error #:     0 In: 0,0      Out:   (0.000000E+00,0.000000E+00), error #:     0

Sample Code #1
Compile options: none

COMPLEX*8 c1     INTEGER*4 Lerr character*7 s(5) data s/'1.,1.', '1.,0.', '0.,1.', '0.0,0.0', '0,0'/

do 1 i=1,5 READ (s(i), '(2F6.0)', IOSTAT=Lerr) c1        WRITE (*,*) ' In: '//s(i)//'   Out:',c1,', error #:',Lerr 1   continue END

Additional query words: 1.00 4.00

Keywords: kblangfortran KB106730

-

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

© Microsoft Corporation. All rights reserved.