Odd IO with unformatted read

[Steve Kargl]

Bud,

You seem to be the peson who is poking around in the IO
routines.  Have you seen the following problem?


program fg

  open(unit=1,file='zzzz')
  write (1,'(a)') '10, 20, 30, 40'
  close(1)

  open(unit=1,file='zzzz')
  read(1,*) a, b, c, d
  close(1)

  print*, a, b, c, d

end program

troutmask:sgk[249] gfc -o fg fg.f90
troutmask:sgk[250] ./fg
   10.00000       0.000000       20.00000      1.4012985E-45
troutmask:sgk[251] cat zzzz 
10, 20, 30, 40

This is on amd64-unknown-freebsd6.0.

-- 
Steve