freepascal.compiler/tests/webtbf/tw4647.pp

{ %fail }

{$mode delphi}
program test;

uses
  SysUtils;

procedure shiny;
begin
end;

begin
  Format('%s', [shiny()]);
end.