Skip to content

Commit ed17a25

Browse files
committed
Removed spurious char lenght arguments in LSAME declaration
1 parent 51219d2 commit ed17a25

File tree

2 files changed

+2
-3
lines changed

2 files changed

+2
-3
lines changed

LAPACKE/include/lapack.h

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -135,8 +135,7 @@ typedef lapack_logical (*LAPACK_Z_SELECT2)
135135
( const lapack_complex_double*, const lapack_complex_double* );
136136

137137
#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
138-
lapack_logical LAPACK_lsame_base( const char* ca, const char* cb,
139-
lapack_int lca, lapack_int lcb
138+
lapack_logical LAPACK_lsame_base( const char* ca, const char* cb
140139
#ifdef LAPACK_FORTRAN_STRLEN_END
141140
, FORTRAN_STRLEN, FORTRAN_STRLEN
142141
#endif

LAPACKE/utils/lapacke_lsame.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -34,7 +34,7 @@
3434

3535
lapack_logical API_SUFFIX(LAPACKE_lsame)( char ca, char cb )
3636
{
37-
return (lapack_logical) LAPACK_lsame( &ca, &cb, 1, 1 );
37+
return (lapack_logical) LAPACK_lsame( &ca, &cb );
3838
}
3939

4040

0 commit comments

Comments
 (0)