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

Author: mohawk2

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

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]);