mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 17:49:33 +02:00
19 lines
302 B
ObjectPascal
19 lines
302 B
ObjectPascal
{ %cpu=i386,powerpc}
|
|
{ %target=linux,win32,go32v2,os2,beos,haiku,morphos }
|
|
{ %OPT=-ghc }
|
|
//test.pp
|
|
type o=object
|
|
constructor init;
|
|
end;
|
|
|
|
constructor o.init; begin end;
|
|
|
|
var o1 : ^o;
|
|
|
|
begin
|
|
HaltOnNotReleased := true;;
|
|
New(o1,init);
|
|
// New(o1); o1^.init; <- no error
|
|
dispose(o1);
|
|
end.
|