summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/test/tobjc4a.pp
blob: 18dc5da24ff21feb16eb417251920a9a49afda9f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ %fail }
{ %target=darwin }
{ %cpu=powerpc,powerpc64,i386,x86_64,arm }

{ Written by Jonas Maebe in 2009, released into the public domain }

{$modeswitch objectivec1}

type
  ta = objcclass external
    { no destructors in Objective-C }
    destructor done; message 'done';
  end;

begin
end.