From 8fa1db366bb89ecde8e7e946ddf71cf423359e75 Mon Sep 17 00:00:00 2001
From: Julien Langou <julien.langou@ucdenver.edu>
Date: Tue, 24 Mar 2026 14:18:29 -0600
Subject: [PATCH] add NaN check for input scalars `s` and `c` to lapacke_crot
 and lapacke_srot

---
 LAPACKE/src/lapacke_crot.c | 6 ++++++
 LAPACKE/src/lapacke_zrot.c | 6 ++++++
 2 files changed, 12 insertions(+)

diff --git a/LAPACKE/src/lapacke_crot.c b/LAPACKE/src/lapacke_crot.c
index dd223bff8..020796fc1 100644
--- a/LAPACKE/src/lapacke_crot.c
+++ b/LAPACKE/src/lapacke_crot.c
@@ -46,6 +46,12 @@ lapack_int API_SUFFIX(LAPACKE_crot)( lapack_int n,
         if( API_SUFFIX(LAPACKE_c_nancheck)( n, cy, incy ) ) {
             return -4;
         }
+        if( API_SUFFIX(LAPACKE_s_nancheck)( 1, c, 1 ) ) {
+            return -6;
+        }
+        if( API_SUFFIX(LAPACKE_c_nancheck)( 1, s, 1 ) ) {
+            return -7;
+        }
     }
 #endif
     return API_SUFFIX(LAPACKE_crot_work)( n, cx, incx, cy, incy, c, s );
diff --git a/LAPACKE/src/lapacke_zrot.c b/LAPACKE/src/lapacke_zrot.c
index afae51843..48dfc7367 100644
--- a/LAPACKE/src/lapacke_zrot.c
+++ b/LAPACKE/src/lapacke_zrot.c
@@ -46,6 +46,12 @@ lapack_int API_SUFFIX(LAPACKE_zrot)( lapack_int n,
         if( API_SUFFIX(LAPACKE_z_nancheck)( n, cy, incy ) ) {
             return -4;
         }
+        if( API_SUFFIX(LAPACKE_d_nancheck)( 1, c, 1 ) ) {
+            return -6;
+        }
+        if( API_SUFFIX(LAPACKE_z_nancheck)( 1, s, 1 ) ) {
+            return -7;
+        }
     }
 #endif
     return API_SUFFIX(LAPACKE_zrot_work)( n, cx, incx, cy, incy, c, s );