From mmaclenn at nmdp.org  Sat Sep 20 01:40:49 2003
From: mmaclenn at nmdp.org (mmaclenn@nmdp.org)
Date: Sat Sep 20 00:40:03 2003
Subject: [Rd] PR#2867
Message-ID: <200309192240.h8JMenJH002539@pubhealth.ku.dk>

Full_Name: Mark MacLennan
Version: 1.7.1
OS: Solaris 8
Submission from: (NULL) (216.17.17.197)



Bug PR#2867 appears to still be occurring ...

I am running Solaris 8 using gcc 3.3 and while running the
tests for R 1.7.1 I get the following error message regarding
Lapack routine dqeqp3

I don't know how serious an issue this is!

Thanks for any help!
Mark

-----


running code in 'reg-tests-1.R' ...make[3]: *** [reg-tests-1.Rout] Error 1
make[3]: Leaving directory `/usr/local/src/R-1.7.1/tests'
make[2]: *** [test-Reg] Error 2
make[2]: Leaving directory `/usr/local/src/R-1.7.1/tests'
make[1]: *** [test-all-basics] Error 1
make[1]: Leaving directory `/usr/local/src/R-1.7.1/tests'
make: *** [check] Error 2



% tail -20 reg-tests-1.Rout.fail

+   agn <- agnes(xn, method="complete")
+   hcagn <- as.hclust(agn)
+   iC2 <- !names(hcag) %in% c("labels", "call")
+   stopifnot(identical(hcagn[iC2], hcag[iC2]),
+             identical(hcagn$labels, hcn$labels),
+             all.equal(hc$height, hcag$height, tol = 1e-12),
+             all(hc$merge == hcag$merge | hc$merge == hcag$merge[ ,2:1])
+             )
+ }
Loading required package: cluster 
> ## as.hclust.twins() lost labels and more till (incl) 1.6.2
> 
> 
> ## PR#2867 qr(LAPACK=TRUE) didn't always pivot in 1.7.0
> set.seed(1)
> X <- matrix(rnorm(40),10,4)
> X[,1] <- X[,2]
> (qrx <- qr(X, LAPACK=TRUE))
Error in qr(X, LAPACK = TRUE) : error code -1 from Lapack routine dqeqp3
Execution halted


[Rd] PR#2867
mmaclenn@nmdp.org