Fix error of array's length

sh-zheng · sh-zheng · commit 968b45006b70 · 2025-10-28T23:07:24.000+08:00
diff --git a/BLAS/TESTING/dblat2.f b/BLAS/TESTING/dblat2.f
@@ -3299,7 +3299,7 @@ SUBROUTINE XERBLA( SRNAME, INFO )
 *
 *     .. Scalar Arguments ..
       INTEGER            INFO
-      CHARACTER*10       SRNAME
+      CHARACTER*(*)      SRNAME
 *     .. Scalars in Common ..
       INTEGER            INFOT, NOUT
       LOGICAL            LERR, OK
diff --git a/BLAS/TESTING/sblat2.f b/BLAS/TESTING/sblat2.f
@@ -3299,7 +3299,7 @@ SUBROUTINE XERBLA( SRNAME, INFO )
 *
 *     .. Scalar Arguments ..
       INTEGER            INFO
-      CHARACTER*10       SRNAME
+      CHARACTER*(*)      SRNAME
 *     .. Scalars in Common ..
       INTEGER            INFOT, NOUT
       LOGICAL            LERR, OK

Original file line number	Diff line number	Diff line change
`@@ -3299,7 +3299,7 @@ SUBROUTINE XERBLA( SRNAME, INFO )`
`3299`	`3299`	`*`
`3300`	`3300`	`* .. Scalar Arguments ..`
`3301`	`3301`	`INTEGER INFO`
`3302`		`- CHARACTER*10 SRNAME`
	`3302`	`+ CHARACTER() SRNAME`
`3303`	`3303`	`* .. Scalars in Common ..`
`3304`	`3304`	`INTEGER INFOT, NOUT`
`3305`	`3305`	`LOGICAL LERR, OK`