paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 04:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2004-05-20 21:51:04 +00:00
parent 3ef5e89682
commit 99f47575b4
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/webtbs/tw3073.pp Normal file
View File

@ -0,0 +1,19 @@
{ Source provided for Free Pascal Bug Report 3073 }
{ Submitted by "Martin Schreiber" on 2004-04-30 }
{ e-mail: }
program project1;
{$mode objfpc}{$H+}
uses
Classes;
var
po1,po2: pwidechar;
begin
po1:= 'abc';
po2:= po1+1;
if po2-po1<>1 then
halt(1);
if pwidechar(24)-pwidechar(22)<>1 then
halt(1);
end.