diff options
| author | julie <julielangou@users.noreply.github.com> | 2015-09-10 07:11:18 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2015-09-10 07:11:18 +0000 |
| commit | 86393a475ba7d5140a2d751b6cdc23e1ddc7b489 (patch) | |
| tree | 120d4b180bbfa24dd94636433760676b44c10d68 /LAPACKE/src/lapacke_slansy.c | |
| parent | a61ed54a7d33862fde26198b6935632953ea1d29 (diff) | |
Bug Fix for bug0135
Bug reported by kortschak on Sep 10th
Link: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=13&t=4793
Fix typo substituting O with 0
Diffstat (limited to 'LAPACKE/src/lapacke_slansy.c')
| -rw-r--r-- | LAPACKE/src/lapacke_slansy.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LAPACKE/src/lapacke_slansy.c b/LAPACKE/src/lapacke_slansy.c index 18866db8..e55b650b 100644 --- a/LAPACKE/src/lapacke_slansy.c +++ b/LAPACKE/src/lapacke_slansy.c @@ -51,7 +51,7 @@ float LAPACKE_slansy( int matrix_layout, char norm, char uplo, lapack_int n, #endif /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,n) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; @@ -62,7 +62,7 @@ float LAPACKE_slansy( int matrix_layout, char norm, char uplo, lapack_int n, res = LAPACKE_slansy_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || - LAPACKE_lsame( norm, '0' ) ) { + LAPACKE_lsame( norm, 'O' ) ) { LAPACKE_free( work ); } exit_level_0: |