blob: 30de9c0e80bf2e2ccde6b825496317856f005d22 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{ original: peter5d.pas from the GNU Pascal testsuite }
{$mode macpas}
program peter5d(output);
type
obj = object
procedure Destroy;
procedure Free;
end;
procedure obj.Destroy;
begin
dispose( self );
end;
procedure obj.Free;
begin
writeln('must not be called');
halt(1);
end;
var
o: obj;
begin
new(o);
o.Destroy;
WriteLn( 'OK' );
end.
|
