R: 3.6.3 -> 4.0.0
This commit is contained in:
@@ -0,0 +1,25 @@
|
||||
From e8f54bc562eb301d204b5f880614be58a2b39a2b Mon Sep 17 00:00:00 2001
|
||||
From: maechler <maechler@00db46b3-68df-0310-9c12-caf00c1e9a41>
|
||||
Date: Mon, 30 Mar 2020 19:15:59 +0000
|
||||
Subject: [PATCH] no longer fail in norm() check for broken OpenBLAS Lapack
|
||||
3.9.0
|
||||
|
||||
git-svn-id: https://svn.r-project.org/R/trunk@78112 00db46b3-68df-0310-9c12-caf00c1e9a41
|
||||
---
|
||||
tests/reg-tests-1d.R | 3 ++-
|
||||
1 file changed, 2 insertions(+), 1 deletion(-)
|
||||
|
||||
diff --git a/tests/reg-tests-1d.R b/tests/reg-tests-1d.R
|
||||
index 6b7de765a95..fafd6911e7a 100644
|
||||
--- a/tests/reg-tests-1d.R
|
||||
+++ b/tests/reg-tests-1d.R
|
||||
@@ -3836,7 +3836,8 @@ stopifnot(is.na( norm(diag(c(1, NA)), "2") ))
|
||||
## norm(<matrix-w-NA>, "F")
|
||||
(m <- cbind(0, c(NA, 0), 0:-1))
|
||||
nTypes <- eval(formals(base::norm)$type) # "O" "I" "F" "M" "2"
|
||||
-stopifnot(is.na( print(vapply(nTypes, norm, 0., x = m)) )) # print(): show NA *or* NaN
|
||||
+print( # stopifnot( -- for now, as Lapack is still broken in some OpenBLAS -- FIXME
|
||||
+ is.na( print(vapply(nTypes, norm, 0., x = m)) )) # print(): show NA *or* NaN
|
||||
## "F" gave non-NA with LAPACK 3.9.0, before our patch in R-devel and R-patched
|
||||
|
||||
|
||||
Reference in New Issue
Block a user