mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 14:19:28 +02:00
tests: removed accidentally committed test file
git-svn-id: trunk@19171 -
This commit is contained in:
parent
59a69eaeba
commit
eefdd29151
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -10611,7 +10611,6 @@ tests/test/ulib2a.pp svneol=native#text/plain
|
||||
tests/test/umaclocalprocparam3f.pp svneol=native#text/plain
|
||||
tests/test/umacpas1.pp svneol=native#text/plain
|
||||
tests/test/umainnam.pp svneol=native#text/plain
|
||||
tests/test/units/character/tfpwidestring.pp svneol=native#text/pascal
|
||||
tests/test/units/character/tgetnumericvalue.pp svneol=native#text/pascal
|
||||
tests/test/units/character/tgetnumericvalue2.pp svneol=native#text/pascal
|
||||
tests/test/units/character/tiscontrol.pp svneol=native#text/pascal
|
||||
|
@ -1,27 +0,0 @@
|
||||
program tfpwidestring;
|
||||
|
||||
{$ifdef FPC}
|
||||
{$mode objfpc}
|
||||
{$H+}
|
||||
{$endif fpc}
|
||||
|
||||
{$ifndef FPC}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$endif}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
character, fpwidestring;
|
||||
|
||||
{$ifndef FPC}
|
||||
type UnicodeChar = WideChar;
|
||||
{$endif}
|
||||
|
||||
var
|
||||
e, i, j : Integer;
|
||||
uc : UnicodeChar;
|
||||
begin
|
||||
e := 1;
|
||||
|
||||
WriteLn('ok');
|
||||
end.
|
Loading…
Reference in New Issue
Block a user