Initialise string length variables

This commit is contained in:
Martin Kroeker
2025-12-20 18:04:30 +01:00
parent b8163b65cb
commit 9fa64b9a3d

View File

@@ -594,7 +594,7 @@ logical lsamen_(integer *n, char *ca, char *cb)
/* Local variables */
integer i__;
extern logical lsame_(char *, char *);
integer ca_len,cb_len;
integer ca_len=0,cb_len=0;
/* -- LAPACK auxiliary routine (version 3.7.0) -- */
/* -- LAPACK is a software package provided by Univ. of Tennessee, -- */