paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +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;
begin
a:='1';
if a=nil then
halt(1);
pc:=@a;
if pc='1' then
writeln('OK')
else
halt(1);
if pc<>'1' then
halt(1);
writeln('OK')
end.