freepascal.compiler/tests/tbs/tb0359.pp

{ %version=1.1 }

{$ifdef unix}

{$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);

{$else}
begin
  writeln('Unix only test');
{$endif}
end.