Running 'arith-ex.R' [5s]
  Running 'binomial-etc.R' [1s]
  Running 'bit-repr.R' [1s]
  Comparing 'bit-repr.Rout' to 'bit-repr.Rout.save' ... OK
  Running 'create.R' [2s]
  Running 'functionals.R' [12s]
  Running 'lowlevel.R' [1s]
  Running 'matrix-ex.R' [2s]
  Running 'special-fun-ex.R' [12s]
  Running 'tstHexBin.R' [1s]
Running the tests in 'tests/lowlevel.R' failed.
Complete output:
  > #### Low level stuff - debugging etc
  > #### =========         =========
  > 
  > require("Rmpfr")
  Loading required package: Rmpfr
  Loading required package: gmp
  
  Attaching package: 'gmp'
  
  The following objects are masked from 'package:base':
  
      %*%, apply, crossprod, matrix, tcrossprod
  
  C code of R package 'Rmpfr': GMP using 64 bits per limb
  
  
  Attaching package: 'Rmpfr'
  
  The following object is masked from 'package:gmp':
  
      outer
  
  The following objects are masked from 'package:stats':
  
      dbinom, dgamma, dnbinom, dnorm, dpois, dt, pnorm
  
  The following objects are masked from 'package:base':
  
      cbind, pmax, pmin, rbind
  
  > options(warn = 2)# warning -> error
  > 
  > identical3 <- function(x,y,z)	  identical(x,y) && identical (y,z)
  > identical4 <- function(a,b,c,d)   identical(a,b) && identical3(b,c,d)
  > 
  > ## sane state [when re-source()ing this file]:
  > .mpfr_erange_set("Emin", -(2^30-1))
  > .mpfr_erange_set("Emax", +(2^30-1))
  > 
  > ###----- _1_ mpfr1 , import, xport etc -----------------------------------------
  > i8 <- mpfr(-2:5, 32)
  > x4 <- mpfr(c(NA, NaN, -Inf, Inf), 32); x4 # NA -> NaN as well
  4 'mpfr' numbers of precision  32   bits 
  [1]  NaN  NaN -Inf  Inf
  > stopifnot(identical3(is.na(x4), is.nan(x4), c(T,T,F,F)))
  > 
  > o1 <- as(x4[1], "mpfr1")
  > stopifnot(is(o1, "mpfr1")) # failed previously
  > validObject(o1)            # ditto (failed on 64-bit only)
  Error in validObject(o1) : 
    invalid class "mpfr1" object: 'exp' slot invalid for non-regular number (64b, length(d) == 0)
  Execution halted