See https://gitlab.com/procps-ng/procps/-/issues/271

diff -u -r procps-ng-4.0.3.alt/src/tests/test_strtod_nol.c procps-ng-4.0.3/src/tests/test_strtod_nol.c
--- procps-ng-4.0.3.alt/src/tests/test_strtod_nol.c	2022-12-18 23:44:18.383960834 +0100
+++ procps-ng-4.0.3/src/tests/test_strtod_nol.c	2023-03-20 16:52:26.680032658 +0100
@@ -1,6 +1,7 @@
 
 #include <stdio.h>
 #include <stdlib.h>
+#include <math.h>
 #include "strutils.h"
 
 struct strtod_tests {
@@ -25,6 +26,11 @@
     {NULL, 0.0}
 };
 
+#define EPSILON 1.0  // Really not trying for precision here
+int dequal(const double d1, const double d2)
+{
+    return fabs(d1-d2) < EPSILON;
+}
 
 
 int main(int argc, char *argv[])
@@ -33,8 +39,8 @@
     double val;
 
     for(i=0; tests[i].string != NULL; i++) {
-        if(strtod_nol_or_err(tests[i].string, "Cannot parse number") !=
-           tests[i].result) {
+        if(!dequal (strtod_nol_or_err(tests[i].string, "Cannot parse number"),
+                    tests[i].result)) {
             fprintf(stderr, "FAIL: strtod_nol_or_err(\"%s\") != %f\n",
                     tests[i].string, tests[i].result);
             return EXIT_FAILURE;
7'>refs</a><a class='active' href='/guix/log/gnu/services/herd.scm'>log</a><a href='/guix/tree/gnu/services/herd.scm?id=45cdf3ad61c28272abf71fa086fd18b2fa145177'>tree</a><a href='/guix/commit/gnu/services/herd.scm?id=45cdf3ad61c28272abf71fa086fd18b2fa145177'>commit</a><a href='/guix/diff/gnu/services/herd.scm?id=45cdf3ad61c28272abf71fa086fd18b2fa145177'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/services/herd.scm'>
<input type='hidden' name='id' value='45cdf3ad61c28272abf71fa086fd18b2fa145177'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=45cdf3ad61c28272abf71fa086fd18b2fa145177'>root</a>/<a href='/guix/log/gnu?id=45cdf3ad61c28272abf71fa086fd18b2fa145177'>gnu</a>/<a href='/guix/log/gnu/services?id=45cdf3ad61c28272abf71fa086fd18b2fa145177'>services</a>/<a href='/guix/log/gnu/services/herd.scm?id=45cdf3ad61c28272abf71fa086fd18b2fa145177'>herd.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/services/herd.scm?id=45cdf3ad61c28272abf71fa086fd18b2fa145177&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-03-03 15:00:32 +0100'>2020-03-03</span></td><td><a href='/guix/commit/gnu/services/herd.scm?id=8f5a0a97b1d04e8ade8c16694dcb72aed176c595'>services: herd: Add restart-service.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/herd.scm (restart-service): New exported procedure.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2019-10-18 23:22:25 +0200'>2019-10-18</span></td><td><a href='/guix/commit/gnu/services/herd.scm?id=6aeae5b90b9513d316141c0131fd43c76a200f63'>herd: Define 'shepherd-message-port'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/herd.scm (shepherd-message-port): New variable.
(display-message): Use it instead of 'current-error-port'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-07-26 19:19:49 +0200'>2019-07-26</span></td><td><a href='/guix/commit/gnu/services/herd.scm?id=5c793753b31b1dcd9a554bce953124f7ae88ca9a'>guix system: Add 'reconfigure' module.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/system/reconfigure.scm: New file.
* Makefile.am (MODULES): Add it.
* guix/scripts/system.scm (bootloader-installer-script): Export variable.
* gnu/machine/ssh.scm (switch-to-system, upgrade-shepherd-services)
(install-bootloader): Delete variable.
* gnu/machine/ssh.scm (deploy-managed-host): Rewrite procedure.
* gnu/services/herd.scm (live-service): Export variable.
* gnu/services/herd.scm (live-service-canonical-name): New variable.
* tests/services.scm (live-service): Delete variable.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Jakob L. Kreuze</td></tr>