{$define DoTestNum 1}
program reade1 (Output);

(* FLAG -O0 *)

{$define Standard}

{$i read1.inc}

{$W-,extended-pascal,no-mixed-comments}

{$i read2.inc}

begin
  dialect:='EP';
  hex:=False;
  test
end.
