[Regression] Formatted read into structure is broken.

[jtappin]

We have a regression for formatted read of a structure. Somewhere between commits 27b7038 and 35d32bb for following code begins to fail.

Code (tsr.pro):

pro tsr, file

  rcd = {index: 0l, $
         catalogue: 0l, $
         date: 0.d}

  nrecs = file_lines(file)

  rcc = replicate(rcd, nrecs)
  
  openr, ilu, /get, file
  for j = 0, nrecs-1 do begin
     readf, ilu, rcd
     
     rcc[j] = rcd

  endfor

  free_lun, ilu
end

Data (indat.dat):

5 140 454.9867
9 145 97843.973284
16 144 768.555

Result:

GDL> tsr, 'indat.dat'
% TSR: End of file encountered. Internal error: Stream not found.
% Execution halted at: TSR                 13 /scratch/james/tsr.pro
%                      $MAIN$          
GDL> help, rcd
** Structure <Anonymous>, 3 tags,memsize =16, data length=16/16:
   INDEX           LONG                 5
   CATALOGUE       LONG                 0
   DATE            DOUBLE           0.0000000
GDL> 

Note that the first field of the structure is filled, the rest are not.