Installation failure: error: ‘FC_LEN_T’ undeclared

[tedmoorman]

I'm getting the following errors in the installation:

> install.packages("gstat")

* installing *source* package ‘gstat’ ...
** package ‘gstat’ successfully unpacked and MD5 sums checked
** libs
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c block.c -o block.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c data.c -o data.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c direct.c -o direct.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c fit.c -o fit.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c gcdist.c -o gcdist.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c getest.c -o getest.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c gls.c -o gls.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c glvars.c -o glvars.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c init.c -o init.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c lm.c -o lm.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c mapio.c -o mapio.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c msim.c -o msim.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c mtrx.c -o mtrx.o
gcc -I"/opt/R/R-3.5.3/lib64/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -O3 -march=native -c nsearch.c -o nsearch.o
In file included from /opt/R/R-3.5.3/lib64/R/include/R.h:85,
                 from mtrx.c:18:
/opt/R/R-3.5.3/lib64/R/include/R_ext/Constants.h:36: warning: "PI" redefined
   36 | #define PI             M_PI
      | 
In file included from mtrx.c:12:
utils.h:20: note: this is the location of the previous definition
   20 | # define PI 3.14159265359
      | 
mtrx.c: In function ‘CHfactor’:
mtrx.c:391:74: error: ‘FC_LEN_T’ undeclared (first use in this function)
  391 |   F77_CALL(dpotrf)("Upper", (int *)&(m->n), m->v, (int *)&(m->n), info, (FC_LEN_T) 5);
      |                                                                          ^~~~~~~~
mtrx.c:391:74: note: each undeclared identifier is reported only once for each function it appears in
mtrx.c:391:83: error: expected ‘)’ before numeric constant
  391 |   F77_CALL(dpotrf)("Upper", (int *)&(m->n), m->v, (int *)&(m->n), info, (FC_LEN_T) 5);
      |                                                                                   ^~
      |                                                                                   )
In file included from /opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:39,
                 from mtrx.c:6:
mtrx.c:391:12: error: too many arguments to function ‘dpotrf_’
  391 |   F77_CALL(dpotrf)("Upper", (int *)&(m->n), m->v, (int *)&(m->n), info, (FC_LEN_T) 5);
      |            ^~~~~~
/opt/R/R-3.5.3/lib64/R/include/R_ext/RS.h:92:22: note: in definition of macro ‘F77_CALL’
   92 | # define F77_CALL(x) x ## _
      |                      ^
/opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:815:10: note: declared here
  815 | F77_NAME(dpotrf)(const char* uplo, const int* n,
      |          ^~~~~~
/opt/R/R-3.5.3/lib64/R/include/R_ext/RS.h:92:22: note: in definition of macro ‘F77_CALL’
   92 | # define F77_CALL(x) x ## _
      |                      ^
/opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:815:1: note: in expansion of macro ‘F77_NAME’
  815 | F77_NAME(dpotrf)(const char* uplo, const int* n,
      | ^~~~~~~~
mtrx.c:404:112: error: expected ‘)’ before numeric constant
  404 |   F77_CALL(dsytrf)("Upper", (int *)&(m->n), m->v, (int *)&(m->n), (int *) piv->pe, &w, &lwork, info, (FC_LEN_T) 5);
      |                                                                                                                ^~
      |                                                                                                                )
In file included from /opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:39,
                 from mtrx.c:6:
mtrx.c:404:12: error: too many arguments to function ‘dsytrf_’
  404 |   F77_CALL(dsytrf)("Upper", (int *)&(m->n), m->v, (int *)&(m->n), (int *) piv->pe, &w, &lwork, info, (FC_LEN_T) 5);
      |            ^~~~~~
/opt/R/R-3.5.3/lib64/R/include/R_ext/RS.h:92:22: note: in definition of macro ‘F77_CALL’
   92 | # define F77_CALL(x) x ## _
      |                      ^
/opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:1350:10: note: declared here
 1350 | F77_NAME(dsytrf)(const char* uplo, const int* n,
      |          ^~~~~~
/opt/R/R-3.5.3/lib64/R/include/R_ext/RS.h:92:22: note: in definition of macro ‘F77_CALL’
   92 | # define F77_CALL(x) x ## _
      |                      ^
/opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:1350:1: note: in expansion of macro ‘F77_NAME’
 1350 | F77_NAME(dsytrf)(const char* uplo, const int* n,
      | ^~~~~~~~
mtrx.c:407:114: error: expected ‘)’ before numeric constant
  407 |   F77_CALL(dsytrf)("Upper", (int *)&(m->n), m->v, (int *)&(m->n), (int *) piv->pe, work, &lwork, info, (FC_LEN_T) 5);
      |                                                                                                                  ^~
      |                                                                                                                  )
In file included from /opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:39,
                 from mtrx.c:6:
mtrx.c:407:12: error: too many arguments to function ‘dsytrf_’
  407 |   F77_CALL(dsytrf)("Upper", (int *)&(m->n), m->v, (int *)&(m->n), (int *) piv->pe, work, &lwork, info, (FC_LEN_T) 5);
      |            ^~~~~~
/opt/R/R-3.5.3/lib64/R/include/R_ext/RS.h:92:22: note: in definition of macro ‘F77_CALL’
   92 | # define F77_CALL(x) x ## _
      |                      ^
/opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:1350:10: note: declared here
 1350 | F77_NAME(dsytrf)(const char* uplo, const int* n,
      |          ^~~~~~
/opt/R/R-3.5.3/lib64/R/include/R_ext/RS.h:92:22: note: in definition of macro ‘F77_CALL’
   92 | # define F77_CALL(x) x ## _
      |                      ^
/opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:1350:1: note: in expansion of macro ‘F77_NAME’
 1350 | F77_NAME(dsytrf)(const char* uplo, const int* n,
      | ^~~~~~~~
mtrx.c: In function ‘CHsolve’:
mtrx.c:427:128: error: ‘FC_LEN_T’ undeclared (first use in this function)
  427 |   F77_CALL(dpotrs)("Upper", (int *) &(m->m), (int *) &(b->n), m->v, (int *) &(m->m),          out->v, (int *) &(m->m), &info, (FC_LEN_T) 5);
      |                                                                                                                                ^~~~~~~~
mtrx.c:427:137: error: expected ‘)’ before numeric constant
  427 |   F77_CALL(dpotrs)("Upper", (int *) &(m->m), (int *) &(b->n), m->v, (int *) &(m->m),          out->v, (int *) &(m->m), &info, (FC_LEN_T) 5);
      |                                                                                                                                         ^~
      |                                                                                                                                         )
In file included from /opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:39,
                 from mtrx.c:6:
mtrx.c:427:12: error: too many arguments to function ‘dpotrs_’
  427 |   F77_CALL(dpotrs)("Upper", (int *) &(m->m), (int *) &(b->n), m->v, (int *) &(m->m),          out->v, (int *) &(m->m), &info, (FC_LEN_T) 5);
      |            ^~~~~~
/opt/R/R-3.5.3/lib64/R/include/R_ext/RS.h:92:22: note: in definition of macro ‘F77_CALL’
   92 | # define F77_CALL(x) x ## _
      |                      ^
/opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:827:10: note: declared here
  827 | F77_NAME(dpotrs)(const char* uplo, const int* n,
      |          ^~~~~~
/opt/R/R-3.5.3/lib64/R/include/R_ext/RS.h:92:22: note: in definition of macro ‘F77_CALL’
   92 | # define F77_CALL(x) x ## _
      |                      ^
/opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:827:1: note: in expansion of macro ‘F77_NAME’
  827 | F77_NAME(dpotrs)(const char* uplo, const int* n,
      | ^~~~~~~~
mtrx.c:429:137: error: expected ‘)’ before numeric constant
  429 |   F77_CALL(dsytrs)("Upper", (int *) &(m->m), (int *) &(b->n), m->v, (int *) &(m->m), piv->pe, out->v, (int *) &(m->m), &info, (FC_LEN_T) 5);
      |                                                                                                                                         ^~
      |                                                                                                                                         )
In file included from /opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:39,
                 from mtrx.c:6:
mtrx.c:429:12: error: too many arguments to function ‘dsytrs_’
  429 |   F77_CALL(dsytrs)("Upper", (int *) &(m->m), (int *) &(b->n), m->v, (int *) &(m->m), piv->pe, out->v, (int *) &(m->m), &info, (FC_LEN_T) 5);
      |            ^~~~~~
/opt/R/R-3.5.3/lib64/R/include/R_ext/RS.h:92:22: note: in definition of macro ‘F77_CALL’
   92 | # define F77_CALL(x) x ## _
      |                      ^
/opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:1366:10: note: declared here
 1366 | F77_NAME(dsytrs)(const char* uplo, const int* n,
      |          ^~~~~~
/opt/R/R-3.5.3/lib64/R/include/R_ext/RS.h:92:22: note: in definition of macro ‘F77_CALL’
   92 | # define F77_CALL(x) x ## _
      |                      ^
/opt/R/R-3.5.3/lib64/R/include/R_ext/Lapack.h:1366:1: note: in expansion of macro ‘F77_NAME’
 1366 | F77_NAME(dsytrs)(const char* uplo, const int* n,
      | ^~~~~~~~
make: *** [mtrx.o] Error 1
make: *** Waiting for unfinished jobs....
ERROR: compilation failed for package ‘gstat’
* removing ‘/projects/CI_Analysts/R/x86_64-pc-linux-gnu-library/3.5/gstat’
Warning in install.packages :
  installation of package ‘gstat’ had non-zero exit status

Here is my sessionInfo():

R version 3.5.3 (2019-03-11)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Red Hat Enterprise Linux Server 7.9 (Maipo)

Matrix products: default
BLAS: /opt/R/R-3.5.3/lib64/R/lib/libRblas.so
LAPACK: /opt/R/R-3.5.3/lib64/R/lib/libRlapack.so

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C               LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8     LC_MONETARY=en_US.UTF-8   
 [6] LC_MESSAGES=en_US.UTF-8    LC_PAPER=en_US.UTF-8       LC_NAME=C                  LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
 [1] httr_1.4.2       compiler_3.5.3   magrittr_2.0.1   R6_2.5.1         assertthat_0.2.1 miniCRAN_0.2.14  tools_3.5.3      igraph_1.2.9    
 [9] pkgconfig_2.0.3  renv_0.14.0    

Any help is appreciated.

[fguiet]

Hi,

Any information about this issue?

I've got the same issue here.

Here is my sessionInfo()

> sessionInfo()
R version 3.6.0 (2019-04-26)
Platform: x86_64-redhat-linux-gnu (64-bit)
Running under: CentOS Linux 7 (Core)

Matrix products: default
BLAS/LAPACK: /usr/lib64/R/lib/libRblas.so

locale:
 [1] LC_CTYPE=fr_FR.UTF-8       LC_NUMERIC=C
 [3] LC_TIME=fr_FR.UTF-8        LC_COLLATE=fr_FR.UTF-8
 [5] LC_MONETARY=fr_FR.UTF-8    LC_MESSAGES=fr_FR.UTF-8
 [7] LC_PAPER=fr_FR.UTF-8       LC_NAME=C
 [9] LC_ADDRESS=C               LC_TELEPHONE=C
[11] LC_MEASUREMENT=fr_FR.UTF-8 LC_IDENTIFICATION=C

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base

loaded via a namespace (and not attached):
[1] compiler_3.6.0 tools_3.6.0

[edzer]

Maybe some header files for the BLAS libraries are missing? Like a libblas-dev or so? Did you manage to compile R on this platform?