From 1be84525b16414fb296665e620b11307649e73b2 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Mon, 22 Apr 2024 09:57:32 -0400
Subject: [PATCH] Don't rely on behavior of "%" with negative args.

---
 src/funcs.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/funcs.c b/src/funcs.c
index 7cf98f8d..45001f7d 100644
--- a/src/funcs.c
+++ b/src/funcs.c
@@ -1113,8 +1113,11 @@ static int FOrd(func_info *info)
     ASSERT_TYPE(0, INT_TYPE);
 
     v = ARGV(0);
-    t = v % 100;
-    if (t < 0) t = -t;
+    if (v < 0) {
+        t = (-v) % 100;
+    } else {
+        t = v % 100;
+    }
     u = t % 10;
     s = "th";
     if (u == 1 && t != 11) s = "st";