paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:50:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2005-02-24 22:36:03 +00:00
parent b14489dd90
commit 25ea80ba19
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/tbs/tb0487.pp Normal file
View File

@ -0,0 +1,20 @@
uses
variants;
var
v : variant;
i : longint;
begin
v:=true;
if not(v) then
halt(1);
while not(v) do
halt(1);
i:=1;
repeat
if i>1 then
halt(1);
inc(i);
until v;
writeln('ok');
end.