fpcsrc/tests/test/tobjc32.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %fail }

{ %target=darwin }
{ %cpu=powerpc,powerpc64,i386,x86_64,arm }

{$mode objfpc}
{$modeswitch objectivec1}

type
  tc = objcclass(NSObject)
    s: ansistring;
  end;

begin
end.