* functions. */
/*
- * GiNaC Copyright (C) 1999-2019 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2023 Johannes Gutenberg University Mainz, Germany
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
using GiNaC::log;
int digitsbuf = Digits;
Digits = 17;
- ex prec = 5 * pow(10, -(ex)Digits);
+ // 15.01.2022: prec set to 10*pow(10,-Digits) to avoid exam failure in sporadic cases
+ ex prec = 10 * pow(10, -(ex)Digits);
numeric almostone("0.999999999999999999");
unsigned result = 0;