[Rd] R-3.0.1 - "transient" make check failure in splines-EX.r

[Adler, Avraham]

Hello.

I seem to be having the same problem that Paul had in the thread titled "[Rd] R 2.15.2 make check failure on 32-bit --with-blas="-lgoto2"" from October of last year <https://stat.ethz.ch/pipermail/r-devel/2012-October/065103.html> Unfortunately, that thread ended without an answer to his last question.

Briefly, I am trying to compile an Rblas for Windows NT 32bit using OpenBlas (successor to GotoBlas) (Nehalem - corei7), and the compiled version passes all tests except for the "splines-Ex" test in the exact same place that Paul had issues:

~~~~
> stopifnot(identical(ns(x), ns(x, df = 1)),
+           identical(ns(x, df = 2), ns(x, df = 2, knots = NULL)), # not true till 2.15.2
+           !is.null(kk <- attr(ns(x), "knots")), # not true till 1.5.1
+           length(kk) == 0)
Error: identical(ns(x, df = 2), ns(x, df = 2, knots = NULL)) is not TRUE
~~~~

Yet, opening up R and running the actual code shows that the error is transient:

~~~~
> identical(ns(x, df = 2), ns(x, df = 2, knots = NULL))
[1] TRUE
> identical(ns(x, df = 2), ns(x, df = 2, knots = NULL))
[1] TRUE
> identical(ns(x, df = 2), ns(x, df = 2, knots = NULL))
[1] TRUE
> identical(ns(x, df = 2), ns(x, df = 2, knots = NULL))
[1] FALSE
> identical(ns(x, df = 2), ns(x, df = 2, knots = NULL))
[1] TRUE
> identical(ns(x, df = 2), ns(x, df = 2, knots = NULL))
[1] TRUE
> identical(ns(x, df = 2), ns(x, df = 2, knots = NULL))
[1] TRUE
> identical(ns(x, df = 2), ns(x, df = 2, knots = NULL))
[1] TRUE
> identical(ns(x, df = 2), ns(x, df = 2, knots = NULL))
[1] TRUE
> identical(ns(x, df = 2), ns(x, df = 2, knots = NULL))
[1] FALSE
~~~~

This is the only error I have on the 32-bit version, I believe (trying to build a blas for 64-bit on SandyBridge is a completely different kettle of fish that is causing me to pull out what little hair I have left), and if it can be solved that would be great.

Thank you,

Avraham