KB106721 - FIX: Tab Edit Descriptor Can Give Incorrect Results with READ

MORE INFORMATION

The sample code below demonstrates this problem. Although the sample uses internal files, this error also occurs when reading from disk files and the console.

Sample Code

C No compiler options required
      real w,x,y,z
      character*255 wb
C         12345678901234567890123456789012345678901234567890123456
      wb=' -6704       21       9.3    -399.7    1712.5      .000'
      read(wb,'(T16,F10.3,T26,F10.3,T36,F10.3,T46,F10.3)') w,x,y,z
      print *, w,x,y,z
      Print *, 'Should be:'
      print *, 9.3, -399.7, 1712.5, 0.0
      end

Output:

9.300000 -399.700000 71712.000000 5.000000

Should be:

9.300000 -399.700000 1712.500000 0.000000E+00

FIX: Tab Edit Descriptor Can Give Incorrect Results with READ

SYMPTOMS

STATUS

MORE INFORMATION

Sample Code