usr/share/fpcsrc/3.2.0/tests/test/tcpstr21a.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

Gemfury

Why Gemfury? Push, build, and install RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / test / tcpstr21a.pp

{ %fail}
program tcpstr21a;

{$APPTYPE CONSOLE}
{$IFDEF FPC}
  {$MODE DELPHIUNICODE}
{$ENDIF}

// Test that ansistring types has the same overload precedence when passing an UnicodeString constant

procedure TestStrConst(const S: AnsiString); overload;
begin
  halt(1);
end;
procedure TestStrConst(const S: UTF8String); overload;
begin
  halt(1);
end;
begin
  TestStrConst('Test');
end.