From d3d4de78186a2aaec323b49c8c8dc5dd677a8f42 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 20 Aug 2022 18:11:24 +0200
Subject: [PATCH]   * test for #39834, previous commits resolve #39834

---
 tests/webtbs/tw39834.pp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 tests/webtbs/tw39834.pp

diff --git a/tests/webtbs/tw39834.pp b/tests/webtbs/tw39834.pp
new file mode 100644
index 0000000000..4222010af1
--- /dev/null
+++ b/tests/webtbs/tw39834.pp
@@ -0,0 +1,22 @@
+{ %OPT=-O- -O2}
+{$mode objfpc}
+program DivTest;
+
+function fquotient(a, b: integer): integer; inline;
+begin
+  result := a div b;
+end;
+
+procedure test;
+var seconds, min: integer;
+begin
+  seconds := 3600 + 60 * 40 + 52;
+  min      := fquotient(seconds, 60);
+  WriteLn(min);
+  if min<>100 then
+    halt(1);
+end;
+
+begin
+  test;
+end.