diff options
author | julie <julielangou@users.noreply.github.com> | 2011-10-25 07:01:05 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2011-10-25 07:01:05 +0000 |
commit | 11d25378937bb683e0a47095d3c5736e33934c46 (patch) | |
tree | ad14c849f3c923c768b37d9f7e0f58e457658017 /TESTING/LIN/ddrvrf1.f | |
parent | 4a95882685dc202a410e7a91a541986bdedcb96d (diff) |
Skip n=0 for rfp test to protect against div by zero - reported by Ake Sandgren on Oct 22nd on lapack mailing list
Diffstat (limited to 'TESTING/LIN/ddrvrf1.f')
-rw-r--r-- | TESTING/LIN/ddrvrf1.f | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/TESTING/LIN/ddrvrf1.f b/TESTING/LIN/ddrvrf1.f index 58d43401..a393a555 100644 --- a/TESTING/LIN/ddrvrf1.f +++ b/TESTING/LIN/ddrvrf1.f @@ -170,7 +170,9 @@ * N = NVAL( IIN ) * - DO 120 IIT = 1, 3 + DO 120 IIT = 1, 3 +* Nothing to do for N=0 + IF ( N .EQ. 0 ) EXIT * * IIT = 1 : random matrix * IIT = 2 : random matrix scaled near underflow |