library realtyudf;

uses udf_main;
exports   Ansi_Upper name 'AnsiUpper';

begin
  Randomize;
end.
//--------------------------------------------
unit udf_main;

interface

uses  sysutils;

function Ansi_Upper(Str: PChar): PChar; cdecl; export;

implementation

function Ansi_Upper(Str: PChar): PChar; cdecl;
begin
  Ansi_Upper:= PChar(AnsiUpperCase(Str));
end;

end.    

program testent;

uses sysutils;

  function Ansi_Upper(var Str: PChar): PChar; cdecl; external 'realtyudf' name 'AnsiUpper';
var
  randomS: array [0..20] of Char;
  rng: PChar;
begin
  rng := 'Test';
  randomS := Ansi_Upper(rng);
  Writeln(randomS);
end.

/usr/libexec/elf/ld: warning: type and size of dynamic symbol `AnsiUpper' are not defined