{ %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
    { should give an error because the selector name is invalid }
    procedure test(l:longint); message '?test:';
  end;

procedure ta.test(l:longint);
begin
end;

begin
end.