[Numpy-svn] r4278 - branches/numpy.scons/numpy/distutils/scons

[numpy-svn at scipy.org]

Author: cdavid
Date: 2007-10-25 00:08:11 -0500 (Thu, 25 Oct 2007)
New Revision: 4278

Added:
   branches/numpy.scons/numpy/distutils/scons/testcode_snippets.py
Log:
Start a module which will contain common test codes for scons checkers.

Added: branches/numpy.scons/numpy/distutils/scons/testcode_snippets.py
===================================================================
--- branches/numpy.scons/numpy/distutils/scons/testcode_snippets.py	2007-10-25 05:07:07 UTC (rev 4277)
+++ branches/numpy.scons/numpy/distutils/scons/testcode_snippets.py	2007-10-25 05:08:11 UTC (rev 4278)
@@ -0,0 +1,33 @@
+#! /usr/bin/env python
+# Last Change: Thu Oct 25 01:00 PM 2007 J
+
+# This module should contains useful test code (as strings). They are mainly
+# useful for checkers who need to run the tests (to check the mere presence of
+# symbols or headers, those are overkill).
+
+# Check whether CBLAS sgemm works
+cblas_sgemm = """
+#include <cblas.h>
+
+int
+main (void)
+{
+    int lda = 3;
+    float A[] = { 0.11, 0.12, 0.13,
+                 0.21, 0.22, 0.23 };
+    int ldb = 2;
+    float B[] = { 1011, 1012,
+                 1021, 1022,
+                 1031, 1032 };
+    int ldc = 2;
+    float C[] = { 0.00, 0.00,
+                 0.00, 0.00 };
+
+    /* Compute C = A B */
+    cblas_sgemm (CblasRowMajor, 
+                CblasNoTrans, CblasNoTrans, 2, 2, 3,
+                1.0, A, lda, B, ldb, 0.0, C, ldc);
+
+    return 0;  
+}
+"""