8 void LAPACKE_xerbla( const char *name, lapack_int info )
11 printf( "OVERRIDE SUCCESSFUL override %d in %s\n", -(int) info, name );
16 int main (int argc, const char * argv[])
18 double a[5][3] = {1,1,1,2,3,4,3,5,2,4,2,5,5,4,3};
19 double b[5][2] = {-10,-3,12,14,14,12,16,16,18,16};
20 lapack_int info,m,n,lda,ldb,nrhs;
29 info = LAPACKE_dgels(LAPACK_ROW_MAJOR,'N',m,n,nrhs,*a,lda,*b,ldb);
34 ./a.out 2>&1 | grep "OVERRIDE SUCCESSFUL"