blob: 937e7c97b29184c190ef02905709a9b82e8ebd26 (
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
30
31
32
33
34
35
36
|
{ %FAIL }
{ Source provided for Free Pascal Bug Report 2174 }
{ Submitted by "Maarten Bekers" on 2002-10-13 }
{ e-mail: fpc@elesoft.net }
{$mode delphi}
program test;
type StringArrayObj = Object
constructor Init(AllocStrings: Longint);
destructor Done;
end; { StringArrayObj }
type pStringArrayObj = ^StringArrayObj;
constructor StringArrayObj.Init(AllocStrings: Longint);
begin
end; { constructor Init }
destructor StringArrayObj.Done;
begin
end; { destructor Done }
var
oo2,oo3: ^stringarrayobj;
begin
{!!!}
new(oo2, init);
new(oo3, init);
writeln('one');
writeln('two!');
{!!!}
end.
|
