Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
regression test for LAPACK bug fixed in svn r77824
git-svn-id: https://svn.r-project.org/R/trunk@77831 00db46b3-68df-0310-9c12-caf00c1e9a41
  • Loading branch information
maechler committed Feb 19, 2020
1 parent a88909a commit db10ee5
Showing 1 changed file with 7 additions and 0 deletions.
7 changes: 7 additions & 0 deletions tests/reg-tests-1d.R
Expand Up @@ -3793,6 +3793,13 @@ stopifnot(is.na( norm(diag(c(1, NA)), "2") ))
## gave error from svd() in R <= 3.6.x


## 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
## "F" gave non-NA with LAPACK 3.9.0, before our patch in R-devel and R-patched



## keep at end
rbind(last = proc.time() - .pt,
Expand Down

0 comments on commit db10ee5

Please sign in to comment.