mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
21 lines
386 B
ObjectPascal
21 lines
386 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3179 }
|
|
{ Submitted by "Martin Schreiber" on 2004-06-21 }
|
|
{ e-mail: }
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
uw3179a,uw3179b;
|
|
|
|
var
|
|
class1: tclass1;
|
|
class2: tclass2;
|
|
|
|
begin
|
|
class1:= tclass1.create;
|
|
class1.proc1; //ok
|
|
class1.free;
|
|
class2:= tclass2.create;
|
|
class2.proc2; //abstracterror in tclass1.proc1
|
|
class2.free;
|
|
end.
|