diff options
author | julie <julielangou@users.noreply.github.com> | 2015-10-22 05:29:34 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2015-10-22 05:29:34 +0000 |
commit | 56a076911e04ba0c6e64a071b89ae5853d78f96d (patch) | |
tree | af36fd91ae842ab2dc1f22384588eeacd499113b /LAPACKE/src/lapacke_clantr.c | |
parent | 6d3c6b3d719c4fa38f8321e398a8ab142c124f22 (diff) |
Fix bug 137 and 138 submitted by Dan Kortschak
Applied patch submitted by Dan Kortschak
Diffstat (limited to 'LAPACKE/src/lapacke_clantr.c')
-rw-r--r-- | LAPACKE/src/lapacke_clantr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LAPACKE/src/lapacke_clantr.c b/LAPACKE/src/lapacke_clantr.c index 36ae5972..fe123cf5 100644 --- a/LAPACKE/src/lapacke_clantr.c +++ b/LAPACKE/src/lapacke_clantr.c @@ -53,7 +53,7 @@ float LAPACKE_clantr( int matrix_layout, char norm, char uplo, char diag, /* Allocate memory for working array(s) */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || LAPACKE_lsame( norm, 'O' ) ) { - work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,m) ); + work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,MAX(m,n)) ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; |