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

git-svn-id: trunk@25890 -

tests/test/tstrreal2.pp

@@ -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;