+ cosh(800) should raise an floating point overflow

2025-04-07 18:47:52 +02:00 · 2024-09-02 21:34:58 +01:00 · 2024-09-02 21:34:58 +01:00 · 266662971b
commit 266662971b
parent 11d542cf8f
1 changed files with 1 additions and 1 deletions
--- a/tests/webtbs/tw3157.pp
+++ b/tests/webtbs/tw3157.pp
@ -28,7 +28,7 @@ begin
  on E:Exception do
    begin
      Writeln('Line "c:=..." raised ' +E.ClassName+ ': ' +E.Message);
-      if E.ClassType<>EInvalidOp then
+      if E.ClassType<>EOverflow then
        begin
          writeln('EInvalidOp exception expected');
          halt(1);