summaryrefslogtreecommitdiff
path: root/relapack/test/xtrtri.c
diff options
context:
space:
mode:
Diffstat (limited to 'relapack/test/xtrtri.c')
-rw-r--r--relapack/test/xtrtri.c25
1 files changed, 25 insertions, 0 deletions
diff --git a/relapack/test/xtrtri.c b/relapack/test/xtrtri.c
new file mode 100644
index 000000000..106391bc8
--- /dev/null
+++ b/relapack/test/xtrtri.c
@@ -0,0 +1,25 @@
+#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(trtri)
+
+ TEST("L", "N", &n, A[i], &n, &info);
+ TEST("U", "N", &n, A[i], &n, &info);
+
+ free(A[0]);
+ free(A[1]);
+}