fpc/tests/tbs/tb0359.pp

{ %version=1.1 }
{ %TARGET=linux }

{$linklib c}

type
  tprintfproc=procedure(t:pchar);varargs;cdecl;

procedure printf(t:pchar);varargs;cdecl;external;

var
  t : tprintfproc;
begin
  printf('Proc test %d %s %f'#10,1,'test',1234.5678);

  t:=@printf;
  t('Procvar test %d %s %f'#10,2,'test',1234.5678);
end.