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

* Test for bug ID #26773

Browse Source 
git-svn-id: trunk@28997 -
This commit is contained in:
michael 2014-11-05 22:23:56 +00:00
parent cbd817b5e8
commit 34941fde71
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw26773.pp
View File

@ -76,7 +76,7 @@ begin
TVarData(v).VType:=SampleVariant.VarType;
v.AnyField := 100;
if v.AnyField=100 then
writeln('ok') else
writeln('ERROR: v.AnyField=',v.AnyField);
readln;
Halt(0)
else
halt(1);
end.