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

* readded halt(1) temporarily removed for testing and accidentally committed

Browse Source 
git-svn-id: trunk@25890 -
This commit is contained in:
Jonas Maebe 2013-10-31 13:47:49 +00:00
parent 4becf1f3c1
commit 85059f79fe
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/test/tstrreal2.pp
View File

@ -44,6 +44,7 @@ begin
if s2 <> copy(s[c],1,length(s[c])-lenadjust) then
begin
writeln(' Error, should be ',copy(s[c],1,length(s[c])-lenadjust));
halt(1);
end;
e := e / 10.0;
end;