ftp.ee.pdx.edu/2014.02.ftp.ee.pdx.edu.tar/ftp.ee.pdx.edu/pub/users/Harry/compilers/p3/tst2/p26.pcat

Text File | 2005-10-24 | 125b | 6 lines

(***   should print: expecting ';' or ')' after type   ***)
program is
  procedure foo (x: integer} is begin end;
begin
end;