4.2 f77 bug

[Steve Hubert]

Bug in 4.2BSD f77 (with Seeley bug fixes):

This seems like a bug in f77 to me.  I don't have access to the
standard so am not certain.  If you enter a single integer in response
to the first prompt the j has value zero.  If you do so in response to
the second prompt you get a core dump.  It seems that the 3x makes the
read run past the end of record and it doesn't like that.

98    write (6,99)
99    format("Format i3,i3  Enter a single integer")
      read (5,100) i,j
100   format(i3,i3)
      write (6,101) i,j
101   format(2i10)
      write (6,97)
97    format("Format i3,3x,i3  Enter a single integer")
      read (5,102) i,j
102   format(i3,3x,i3)
      write (6,101) i,j
      goto 98
      stop
      end

---------------
Steve Hubert
 Dept. of Stat., U. of Wash, Seattle
 {allegra,decvax,microvax,ucbvax!lbl-csam}!uw-beaver!entropy!hubert
 hubert%entropy at uw-beaver