* more precise test as suggested here: https://gitlab.com/freepascal.org/fpc/source/-/commit/876ae561585c22b9809764710f11b9a88da935ee#note_921869640

tests/webtbs/tw39354.pp

@@ -15,7 +15,7 @@ begin
     writeln(Pair.Key);
     inc(count);
   end;
-  if count=0 then
+  if count<>2 then
     halt(1);
   Map.Free;
 end.