OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

LAPACK: avoid out-of-bound write in ?LANTR

pull/2346/head
Vladimir Chalupecky 6 years ago
parent
0ae49d2990
commit
e9ed67ed7e
4 changed files with 4 additions and 4 deletions
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +1
    -1
      lapack-netlib/SRC/clantr.f
  2. +1
    -1
      lapack-netlib/SRC/dlantr.f
  3. +1
    -1
      lapack-netlib/SRC/slantr.f
  4. +1
    -1
      lapack-netlib/SRC/zlantr.f

+ 1
- 1
lapack-netlib/SRC/clantr.f View File

@@ -283,7 +283,7 @@
END IF
ELSE
IF( LSAME( DIAG, 'U' ) ) THEN
DO 210 I = 1, N
DO 210 I = 1, MIN( M, N )
WORK( I ) = ONE
210 CONTINUE
DO 220 I = N + 1, M


+ 1
- 1
lapack-netlib/SRC/dlantr.f View File

@@ -281,7 +281,7 @@
END IF
ELSE
IF( LSAME( DIAG, 'U' ) ) THEN
DO 210 I = 1, N
DO 210 I = 1, MIN( M, N )
WORK( I ) = ONE
210 CONTINUE
DO 220 I = N + 1, M


+ 1
- 1
lapack-netlib/SRC/slantr.f View File

@@ -281,7 +281,7 @@
END IF
ELSE
IF( LSAME( DIAG, 'U' ) ) THEN
DO 210 I = 1, N
DO 210 I = 1, MIN( M, N )
WORK( I ) = ONE
210 CONTINUE
DO 220 I = N + 1, M


+ 1
- 1
lapack-netlib/SRC/zlantr.f View File

@@ -283,7 +283,7 @@
END IF
ELSE
IF( LSAME( DIAG, 'U' ) ) THEN
DO 210 I = 1, N
DO 210 I = 1, MIN( M, N )
WORK( I ) = ONE
210 CONTINUE
DO 220 I = N + 1, M


Write Preview
Loading…
Cancel
Save