[Octave-bug-tracker] [bug #63184] [MXE Octave] AMD ZEN AOCL library support for blas, lapack and fftw

[Dmitri A. Sergatskov]

Follow-up Comment #15, bug #63184 (project octave):

Anyway here is octave test failures with libflame (8 total):


 ***** test
 [u, s, v] = svd (single ([1, 2; 2, 1]));
 x = single (1 / sqrt (2));
 assert (u, [-x, -x; -x, x], sqrt (eps ("single")));
 assert (s, single ([3, 0; 0, 1]), sqrt (eps ("single")));
 assert (v, [-x, x; -x, -x], sqrt (eps ("single")));
!!!!! test failed
ASSERT errors for:  assert (u,[-x, -x; -x, x],sqrt (eps ("single")))

  Location  |  Observed  |  Expected  |  Reason
   (1,2)       0.70711      -0.70711     Abs err 1.4142 exceeds tol 0.00034527
by 1
   (2,2)       -0.70711     0.70711      Abs err 1.4142 exceeds tol 0.00034527
by 1



***** test
 A = {
   [], [];
   zeros(1,0), [];
   zeros(4,0), [];
   zeros(0,1), 1;
   zeros(0,4), eye(4);
   0, 1;
   1, zeros(1,0);
   [1 0; 0 1], zeros(2,0);
   [1 0; 1 0], [0 1]';
 };
 for i = 1:rows (A)
   assert (null (A{i,1}), A{i,2});
   assert (null (single (A{i,1})), single (A{i,2}));
 endfor
!!!!! test failed
ASSERT errors for:  assert (null (single (A {i, 1})),single (A {i, 2}))

  Location  |  Observed  |  Expected  |  Reason
    (2)           -1           1         Abs err 2 exceeds tol 0 by 2
***** test
 A = {
   [1 1; 0 0], [-1/sqrt(2) 1/sqrt(2)]';
 };
 for i = 1:rows (A)
   assert (null (A{i,1}), A{i,2}, eps);
   assert (null (single (A{i,1})), single (A{i,2}), eps);
 endfor
!!!!! test failed
ASSERT errors for:  assert (null (single (A {i, 1})),single (A {i, 2}),eps)

  Location  |  Observed  |  Expected  |  Reason
    (1)        0.70711      -0.70711     Abs err 1.4142 exceeds tol 2.2204e-16
by 1
    (2)        -0.70711     0.70711      Abs err 1.4142 exceeds tol 2.2204e-16
by 1
***** test
 tol = 1e-4;
 A = {
   @(e) [1 0; 0 tol-e], [0 1]';
   @(e) [1 0; 0 tol+e], zeros(2,0);
 };
 for i = 1:rows (A)
   assert (null (A{i,1}(eps ("double")), tol), A{i,2});
   assert (null (single (A{i,1}(eps ("single"))), tol), single (A{i,2}));
 endfor
!!!!! test failed
ASSERT errors for:  assert (null (single (A {i, 1} (eps ("single"))),
tol),single (A {i, 2}))

  Location  |  Observed  |  Expected  |  Reason
    (2)           -1           1         Abs err 2 exceeds tol 0 by 2



***** warning <rcond = > assert (inv (Inf (2,2)), NaN (2,2))
!!!!! warning failed.
Expected warning <rcond = >, but got error <ASSERT errors for:  assert (inv
(Inf (2, 2)),NaN (2, 2))
      
  Location  |  Observed  |  Expected  |  Reason
   (1,1)         Inf          NaN        'NaN' mismatch
   (2,1)         Inf          NaN        'NaN' mismatch
   (1,2)         Inf          NaN        'NaN' mismatch
   (2,2)         Inf          NaN        'NaN' mismatch>

***** test
 [xinv, rcond] = inv (Inf (2,2));
 assert (xinv, NaN (2,2));
 assert (rcond, NaN);
!!!!! test failed
ASSERT errors for:  assert (xinv,NaN (2, 2))
      
  Location  |  Observed  |  Expected  |  Reason
   (1,1)         Inf          NaN        'NaN' mismatch
   (2,1)         Inf          NaN        'NaN' mismatch
   (1,2)         Inf          NaN        'NaN' mismatch
   (2,2)         Inf          NaN        'NaN' mismatch
***** warning <rcond = > assert (inv (NaN (2,2)), NaN (2,2))
!!!!! warning failed.
Expected warning <rcond = >, but got error <ASSERT errors for:  assert (inv
(NaN (2, 2)),NaN (2, 2))

  Location  |  Observed  |  Expected  |  Reason
   (1,1)         Inf          NaN        'NaN' mismatch
   (2,1)         Inf          NaN        'NaN' mismatch
   (1,2)         Inf          NaN        'NaN' mismatch
   (2,2)         Inf          NaN        'NaN' mismatch>

***** test
 [xinv, rcond] = inv (NaN (2,2));
 assert (xinv, NaN (2,2));
 assert (rcond, NaN);
!!!!! test failed
ASSERT errors for:  assert (xinv,NaN (2, 2))

  Location  |  Observed  |  Expected  |  Reason
   (1,1)         Inf          NaN        'NaN' mismatch
   (2,1)         Inf          NaN        'NaN' mismatch
   (1,2)         Inf          NaN        'NaN' mismatch
   (2,2)         Inf          NaN        'NaN' mismatch




    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?63184>

_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/