freepascal.compiler/tests/tbf/tb0175.pp

{ %fail }
{$ifdef fpc}
  {$Mode Delphi}
{$endif}

unit tb0175;

interface

      function getvar: string;

implementation

   var
     myvar : string;

   procedure getvar;
   begin
      result := myvar;
   end;

end.