1 files changed, 16 insertions, 0 deletions
diff --git a/tests/webtbs/tw27173.pp b/tests/webtbs/tw27173.pp
new file mode 100644
index 0000000000..3eb3f043aa
--- /dev/null
+++ b/tests/webtbs/tw27173.pp
@@ -0,0 +1,16 @@
+program error;
+
+{$mode Delphi}
+
+uses sysutils;
+
+type a = 1..MaxInt;
+
+var b: a;
+    c: integer;
+
+begin
+ b := 3;
+ c := -5 div b;
+ writeln(c);
+end.