TESTING/LIN: use LSAME for UPLO checks in latsp and latsy

nakatamaho · nakatamaho · commit c537b6b5d375 · 2026-04-14T08:24:10.000+09:00
Replace direct UPLO character comparisons in the LATSP and LATSY test helpers with LSAME. This keeps option handling consistent with the LAPACK convention for case-insensitive checks.
diff --git a/TESTING/LIN/clatsp.f b/TESTING/LIN/clatsp.f
@@ -109,7 +109,8 @@ SUBROUTINE CLATSP( UPLO, N, X, ISEED )
 *     ..
 *     .. External Functions ..
       COMPLEX            CLARND
-      EXTERNAL           CLARND
+      LOGICAL            LSAME
+      EXTERNAL           CLARND, LSAME
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, SQRT
@@ -130,7 +131,7 @@ SUBROUTINE CLATSP( UPLO, N, X, ISEED )
 *
 *     UPLO = 'U':  Upper triangular storage
 *
-      IF( UPLO.EQ.'U' ) THEN
+      IF( LSAME( UPLO, 'U' ) ) THEN
          N5 = N / 5
          N5 = N - 5*N5 + 1
 *
diff --git a/TESTING/LIN/clatsy.f b/TESTING/LIN/clatsy.f
@@ -114,7 +114,8 @@ SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED )
 *     ..
 *     .. External Functions ..
       COMPLEX            CLARND
-      EXTERNAL           CLARND
+      LOGICAL            LSAME
+      EXTERNAL           CLARND, LSAME
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, SQRT
@@ -129,7 +130,7 @@ SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED )
 *
 *     UPLO = 'U':  Upper triangular storage
 *
-      IF( UPLO.EQ.'U' ) THEN
+      IF( LSAME( UPLO, 'U' ) ) THEN
 *
 *        Fill the upper triangle of the matrix with zeros.
 *
diff --git a/TESTING/LIN/zlatsp.f b/TESTING/LIN/zlatsp.f
@@ -109,7 +109,8 @@ SUBROUTINE ZLATSP( UPLO, N, X, ISEED )
 *     ..
 *     .. External Functions ..
       COMPLEX*16         ZLARND
-      EXTERNAL           ZLARND
+      LOGICAL            LSAME
+      EXTERNAL           ZLARND, LSAME
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, SQRT
@@ -130,7 +131,7 @@ SUBROUTINE ZLATSP( UPLO, N, X, ISEED )
 *
 *     UPLO = 'U':  Upper triangular storage
 *
-      IF( UPLO.EQ.'U' ) THEN
+      IF( LSAME( UPLO, 'U' ) ) THEN
          N5 = N / 5
          N5 = N - 5*N5 + 1
 *
diff --git a/TESTING/LIN/zlatsy.f b/TESTING/LIN/zlatsy.f
@@ -114,7 +114,8 @@ SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED )
 *     ..
 *     .. External Functions ..
       COMPLEX*16         ZLARND
-      EXTERNAL           ZLARND
+      LOGICAL            LSAME
+      EXTERNAL           ZLARND, LSAME
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, SQRT
@@ -129,7 +130,7 @@ SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED )
 *
 *     UPLO = 'U':  Upper triangular storage
 *
-      IF( UPLO.EQ.'U' ) THEN
+      IF( LSAME( UPLO, 'U' ) ) THEN
 *
 *        Fill the upper triangle of the matrix with zeros.
 *

Original file line number	Diff line number	Diff line change
`@@ -109,7 +109,8 @@ SUBROUTINE CLATSP( UPLO, N, X, ISEED )`
`109`	`109`	`* ..`
`110`	`110`	`* .. External Functions ..`
`111`	`111`	`COMPLEX CLARND`
`112`		`- EXTERNAL CLARND`
	`112`	`+ LOGICAL LSAME`
	`113`	`+ EXTERNAL CLARND, LSAME`
`113`	`114`	`* ..`
`114`	`115`	`* .. Intrinsic Functions ..`
`115`	`116`	`INTRINSIC ABS, SQRT`
`@@ -130,7 +131,7 @@ SUBROUTINE CLATSP( UPLO, N, X, ISEED )`
`130`	`131`	`*`
`131`	`132`	`* UPLO = 'U': Upper triangular storage`
`132`	`133`	`*`
`133`		`- IF( UPLO.EQ.'U' ) THEN`
	`134`	`+ IF( LSAME( UPLO, 'U' ) ) THEN`
`134`	`135`	`N5 = N / 5`
`135`	`136`	`N5 = N - 5*N5 + 1`
`136`	`137`	`*`
Original file line number	Diff line number	Diff line change
`@@ -114,7 +114,8 @@ SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED )`
`114`	`114`	`* ..`
`115`	`115`	`* .. External Functions ..`
`116`	`116`	`COMPLEX CLARND`
`117`		`- EXTERNAL CLARND`
	`117`	`+ LOGICAL LSAME`
	`118`	`+ EXTERNAL CLARND, LSAME`
`118`	`119`	`* ..`
`119`	`120`	`* .. Intrinsic Functions ..`
`120`	`121`	`INTRINSIC ABS, SQRT`
`@@ -129,7 +130,7 @@ SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED )`
`129`	`130`	`*`
`130`	`131`	`* UPLO = 'U': Upper triangular storage`
`131`	`132`	`*`
`132`		`- IF( UPLO.EQ.'U' ) THEN`
	`133`	`+ IF( LSAME( UPLO, 'U' ) ) THEN`
`133`	`134`	`*`
`134`	`135`	`* Fill the upper triangle of the matrix with zeros.`
`135`	`136`	`*`
Original file line number	Diff line number	Diff line change
`@@ -109,7 +109,8 @@ SUBROUTINE ZLATSP( UPLO, N, X, ISEED )`
`109`	`109`	`* ..`
`110`	`110`	`* .. External Functions ..`
`111`	`111`	`COMPLEX*16 ZLARND`
`112`		`- EXTERNAL ZLARND`
	`112`	`+ LOGICAL LSAME`
	`113`	`+ EXTERNAL ZLARND, LSAME`
`113`	`114`	`* ..`
`114`	`115`	`* .. Intrinsic Functions ..`
`115`	`116`	`INTRINSIC ABS, SQRT`
`@@ -130,7 +131,7 @@ SUBROUTINE ZLATSP( UPLO, N, X, ISEED )`
`130`	`131`	`*`
`131`	`132`	`* UPLO = 'U': Upper triangular storage`
`132`	`133`	`*`
`133`		`- IF( UPLO.EQ.'U' ) THEN`
	`134`	`+ IF( LSAME( UPLO, 'U' ) ) THEN`
`134`	`135`	`N5 = N / 5`
`135`	`136`	`N5 = N - 5*N5 + 1`
`136`	`137`	`*`
Original file line number	Diff line number	Diff line change
`@@ -114,7 +114,8 @@ SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED )`
`114`	`114`	`* ..`
`115`	`115`	`* .. External Functions ..`
`116`	`116`	`COMPLEX*16 ZLARND`
`117`		`- EXTERNAL ZLARND`
	`117`	`+ LOGICAL LSAME`
	`118`	`+ EXTERNAL ZLARND, LSAME`
`118`	`119`	`* ..`
`119`	`120`	`* .. Intrinsic Functions ..`
`120`	`121`	`INTRINSIC ABS, SQRT`
`@@ -129,7 +130,7 @@ SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED )`
`129`	`130`	`*`
`130`	`131`	`* UPLO = 'U': Upper triangular storage`
`131`	`132`	`*`
`132`		`- IF( UPLO.EQ.'U' ) THEN`
	`133`	`+ IF( LSAME( UPLO, 'U' ) ) THEN`
`133`	`134`	`*`
`134`	`135`	`* Fill the upper triangle of the matrix with zeros.`
`135`	`136`	`*`