fork(1) download

copy

program ideone;
 
type
  Parent = Class
  	procedure Print; virtual;
  end;
 
  Child = Class(Parent)
    procedure Print; override;
  end;
 
procedure Parent.Print;
begin
  writeln('Parent Print');
end;
 
procedure Child.Print;
begin
  writeln('Child Print');
end;
 
var
  C: Child;
  P: ^Parent;
begin
  C := Child.Create();
  P := @C;
  P.Print();
end.

prog.pas(5,4) Error: Identifier not found "Class"
prog.pas(5,4) Error: Error in type definition
prog.pas(5,4) Fatal: Syntax error, ";" expected but "PROCEDURE" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty