X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Fexam_paranoia.cpp;h=cbab84dfe6d6fff7772032f7f4a22e7fc7d63e23;hp=21d40c9aba562e42f11c1df0de304cebff0d2f45;hb=9ab7bfaebfbec22d775bcb2f725a74fd5e560251;hpb=5c3f3d4a8655fffd2f5e9f60b47d23db719aa452

diff --git a/check/exam_paranoia.cpp b/check/exam_paranoia.cpp
index 21d40c9a..cbab84df 100644
--- a/check/exam_paranoia.cpp
+++ b/check/exam_paranoia.cpp
@@ -426,6 +426,14 @@ static unsigned exam_paranoia16()
 		++result;
 	}
 
+	e1 = a*(a+b);
+	e2 = pow(pow(e1, -1), -1);
+
+	if (e2.has(a*b)) {
+		clog << "double reciprocal expanded where it should not\n";
+		++result;
+	}
+
 	return result;
 }