mschur test with complex data can give different on 32-bit - #29

PDLPorters · Jan 3, 2025 · e2acf69 · e2acf69
1 parent 5649d24
commit e2acf69
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -1,3 +1,5 @@
+- mschur test with complex data can give different on 32-bit (#29) - thanks @sebastic for report
+
 0.43 2025-01-02
 - fix Pars so their [io] or [o] matches docs enough - THIS CHANGES RETURN SIGNATURES (#28) - thanks @wlmb for report
 - added [o] or [io] to Pars for real and complex: gtsv geev ggev gglse ggglm syevx/cheevx syevr/cheevr

diff --git a/t/common.pl b/t/common.pl
@@ -7,6 +7,7 @@
 my $wide = pdl([0.43,0.03,0.7],[0.75,0.72,0.2]);
 my $rank2 = pdl([1,0,1],[-2,-3,1],[3,3,0]);
 my $schur_soln = pdl([0.36637354,-0.72],[0,0.78362646]);
+$schur_soln = [$schur_soln,[pdl([0.36637354,0.72],[0,0.78362646]),$schur_soln]];
 runtest($x, 'mschur', $schur_soln);
 runtest($x, 'mschur', $schur_soln, [1,1,1,sub {1}]);
 runtest($x, 'mschur', $schur_soln, [1,1,1,undef]);