OpenBLAS/relapack/test/xlauum.c

26 lines
363 B
C

#include "test.h"
datatype *A[2];
int info;
void pre() {
x2matgen(n, n, A[0], A[1]);
}
void post() {
error = x2vecerr(n * n, A[0], A[1]);
}
void tests() {
A[0] = xmalloc(n * n);
A[1] = xmalloc(n * n);
#define ROUTINE XPREF(lauum)
TEST("L", &n, A[i], &n, &info);
TEST("U", &n, A[i], &n, &info);
free(A[0]);
free(A[1]);
}