R devel - Nov 2011 - Fortran runtime error with package cts on CRAN/Mac

Hello,
 
As the author of package cts, I hope somebody on this list can kindly help
(perhaps off-list)
to resolve the build/check issue with package cts for Mac. The error occurred on
Mac machines only:
http://cran.r-project.org/web/checks/check_results_cts.html.
 
Here is the error message:
 
At line 10 of file machine.f
Fortran runtime error: Range error during floating point read 
 
The source file machine.f is to read machine dependent parameters stored in
machine.txt, which was saved from R function .Machine. For convenience, the
source file machine.f is listed below, along with machine.txt from a non Mac
system (the last line NA was added for a test version of cts).
 
CCC READ MACHINE INFORMATION SAVED WITH R CODE
      SUBROUTINE MACHINE(EPS, BASE, T, EMIN, RMIN)
      DOUBLE PRECISION EPS, RMIN
      INTEGER BASE, T, EMIN
      OPEN(UNIT=3,FILE='machine.txt',STATUS='OLD')
      READ(3,*)EPS      
      READ(3,*)BASE
      READ(3,*)T
      READ(3,*)EMIN
      READ(3,*)RMIN
      CLOSE(UNIT=3)
      RETURN
      END
 
machine.txt:
 
1.11022302462516e-16
2
53
-1022
2.2250738585072e-308
NA
 
Another question is whether there is a way to submit a test to just one
platform. I know this can be done for Windows, but I'm not sure for Mac.
 
Thanks in advance.
 
Zhu Wang
 
Department of Research
Connecticut Children's Medical Center
Hartford, CT 06106

Well, as Writing R Extensions says, packages should do no Fortran I/O 
at all.  So please pass the binary value to your code from R.

You cannot expect to write out extreme values without some 
representation error, and adjacent values cannot be read in again.

In any case, these values are essentially the same for all R 
platforms, being mandated by IEC60559.

On Sun, 20 Nov 2011, Zhu Wang wrote:
> Hello,
>
> As the author of package cts, I hope somebody on this list can kindly help
(perhaps off-list)
> to resolve the build/check issue with package cts for Mac. The error
occurred on Mac machines only:
> http://cran.r-project.org/web/checks/check_results_cts.html.
>
> Here is the error message:
>
> At line 10 of file machine.f
> Fortran runtime error: Range error during floating point read
>
> The source file machine.f is to read machine dependent parameters stored in
machine.txt, which was saved from R function .Machine. For convenience, the
source file machine.f is listed below, along with machine.txt from a non Mac
system (the last line NA was added for a test version of cts).
>
> CCC READ MACHINE INFORMATION SAVED WITH R CODE
>      SUBROUTINE MACHINE(EPS, BASE, T, EMIN, RMIN)
>      DOUBLE PRECISION EPS, RMIN
>      INTEGER BASE, T, EMIN
>      OPEN(UNIT=3,FILE='machine.txt',STATUS='OLD')
>      READ(3,*)EPS
>      READ(3,*)BASE
>      READ(3,*)T
>      READ(3,*)EMIN
>      READ(3,*)RMIN
>      CLOSE(UNIT=3)
>      RETURN
>      END
>
> machine.txt:
>
> 1.11022302462516e-16
> 2
> 53
> -1022
> 2.2250738585072e-308
> NA
>
> Another question is whether there is a way to submit a test to just 
> one platform. I know this can be done for Windows, but I'm not sure 
> for Mac.
What does 'submit a test mean'?  Any test you write can check the 
value of Sys.info()["sysname"]: it is "Darwin" on Mac OS X.
Or R.version$platform, which will be something like 
i386-apple-darwin9.8.0.
>
> Thanks in advance.
>
> Zhu Wang
>
> Department of Research
> Connecticut Children's Medical Center
> Hartford, CT 06106
>
>
>
-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595