Hi this program:
program writebug; var b1, b2: string (80); f: Text; begin Assign (f, 'ref.txt'); Reset (f); readln (f, b2); while not eof(f) do begin ReadLn (f, b1); if b1 [ 1 ] = '=' then writeln( b2, ' ':64 - length( b2 ), 'bug') else WriteLn ( b2); b2 := b1; end; writeln ( b1); Close (f); end.
Using either gpc built with gcc-3.3.3 or gcc-3.4.0 and this input file named ref.txt:
The Alphabetical GPC Language Reference
Abs ===
absolute ========
oops.
gives me this output:
The Alphabetical GPC Language Reference
Abs bug === bug
absolute bug ======== bug
oops.
Unless I have egg on my face (again), the word "bug" should not appear on the "===" lines.
Russ