paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* add test for charray=nil

Browse Source
This commit is contained in:
peter 2003-01-07 19:36:05 +00:00
parent b49747a854
commit 7c22c8184b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/tbs/tb0446.pp
View File

@ -3,10 +3,11 @@ var
pc : pchar; pc : pchar;
begin begin
a:='1'; a:='1';
if a=nil then
halt(1);
pc:=@a; pc:=@a;
if pc='1' then if pc<>'1' then
writeln('OK') halt(1);
else writeln('OK')
halt(1);
end. end.