{%skiptarget=$nothread }
{ %version=1.1 }
{ %fail }

{$mode delphi}
{$threading on}

threadvar
  { Initializing threadvars is not allowed }
  p : longint = 1;
begin
end.