diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-02-03 18:28:38 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-02-03 18:28:38 +0000 |
| commit | 0b883f9b2c542e86d4eef2442f591ac5d26fa57b (patch) | |
| tree | 01147429714671327e67eca002bfa699731903da /TESTING | |
| parent | 2f5de047b6438de0f29052dcbc343343b291c9c7 (diff) | |
| download | lapack-0b883f9b2c542e86d4eef2442f591ac5d26fa57b.tar.gz lapack-0b883f9b2c542e86d4eef2442f591ac5d26fa57b.tar.bz2 lapack-0b883f9b2c542e86d4eef2442f591ac5d26fa57b.zip | |
Fix bug 0072 reported by Inge Gutheil on February 3rd 2011
From Inge:
In the tests,
TESTING/EIG/cchkhs.f (similar in zchkhs.f) in line 492 N = NN ( JSIZE )
is set. If NN( JSIZE ) is zero, CCOPY (N-1,....) gives an error message
and the test breaks. In the real versions dchkhs after N = NN ( JSIZE )
there is
IF ( N .EQ. 0 ) GO TO 270, so there DCOPY does not exit with an error
message.
I think the same statement should be added in the complex version to
avoid copying -1 element.
Diffstat (limited to 'TESTING')
| -rw-r--r-- | TESTING/EIG/cchkhs.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/zchkhs.f | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/TESTING/EIG/cchkhs.f b/TESTING/EIG/cchkhs.f index 78554f92..7fd4c7be 100644 --- a/TESTING/EIG/cchkhs.f +++ b/TESTING/EIG/cchkhs.f @@ -490,6 +490,8 @@ * DO 260 JSIZE = 1, NSIZES N = NN( JSIZE ) + IF( N.EQ.0 ) + $ GO TO 260 N1 = MAX( 1, N ) ANINV = ONE / REAL( N1 ) * diff --git a/TESTING/EIG/zchkhs.f b/TESTING/EIG/zchkhs.f index 304984f1..58c6b335 100644 --- a/TESTING/EIG/zchkhs.f +++ b/TESTING/EIG/zchkhs.f @@ -490,6 +490,8 @@ * DO 260 JSIZE = 1, NSIZES N = NN( JSIZE ) + IF( N.EQ.0 ) + $ GO TO 260 N1 = MAX( 1, N ) ANINV = ONE / DBLE( N1 ) * |