mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:24:24 +02:00
28 lines
370 B
ObjectPascal
28 lines
370 B
ObjectPascal
{ %CPU=wasm32 }
|
|
Unit uthintfn;
|
|
|
|
{$mode objfpc}
|
|
{$h+}
|
|
|
|
interface
|
|
|
|
|
|
type
|
|
{$M+}
|
|
TNested = class
|
|
Type
|
|
TMyInterface = Interface ['{76DC0D03-376C-45AA-9E0C-B3546B0C7208}']
|
|
Procedure DoA(a : Integer);
|
|
Procedure DoA;
|
|
function doB : Integer;
|
|
function doc(a : integer) : integer;
|
|
end;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
end.
|
|
|
|
|
|
|