File tree Expand file tree Collapse file tree 1 file changed +10
-2
lines changed Expand file tree Collapse file tree 1 file changed +10
-2
lines changed Original file line number Diff line number Diff line change @@ -3344,6 +3344,9 @@ call_@lapack_func@(POTRS_PARAMS_t *params)
3344
3344
& params -> N ,
3345
3345
params -> A , & params -> LDA ,
3346
3346
& rv );
3347
+ if (0 != rv )
3348
+ return rv ;
3349
+
3347
3350
LAPACK (@lapack_func @)(& params -> UPLO ,
3348
3351
& params -> N , & params -> NRHS ,
3349
3352
params -> A , & params -> LDA ,
@@ -3382,10 +3385,15 @@ static void
3382
3385
}
3383
3386
3384
3387
BEGIN_OUTER_LOOP_3
3388
+ int not_ok ;
3385
3389
linearize_ @TYPE @_matrix (params .A , args [0 ], & a_in );
3386
3390
linearize_ @TYPE @_matrix (params .B , args [1 ], & b_in );
3387
- call_ @lapack_func @(& params );
3388
- delinearize_ @TYPE @_matrix (args [2 ], params .B , & r_out );
3391
+ not_ok = call_ @lapack_func @(& params );
3392
+ if (!not_ok ) {
3393
+ delinearize_ @TYPE @_matrix (args [2 ], params .B , & r_out );
3394
+ } else {
3395
+ nan_ @TYPE @_matrix (args [2 ], & r_out );
3396
+ }
3389
3397
END_OUTER_LOOP
3390
3398
3391
3399
release_ @lapack_func @(& params );
You can’t perform that action at this time.
0 commit comments