Skip to content

Commit

Permalink
report usage of Fortran random_number
Browse files Browse the repository at this point in the history
git-svn-id: https://svn.r-project.org/R/trunk@84999 00db46b3-68df-0310-9c12-caf00c1e9a41
  • Loading branch information
ripley committed Aug 23, 2023
1 parent 1ea2de8 commit 74afc4b
Showing 1 changed file with 5 additions and 0 deletions.
5 changes: 5 additions & 0 deletions src/library/tools/R/sotools.R
Original file line number Diff line number Diff line change
Expand Up @@ -141,6 +141,8 @@ so_symbol_names_table <-
"linux, Fortran, gfortran, stop, _gfortran_stop_numeric_f08",
"linux, Fortran, gfortran, stop, _gfortran_stop_string",
"linux, Fortran, gfortran, rand, _gfortran_rand",
"linux, Fortran, gfortran, random_number, _gfortran_random_r8",
"linux, Fortran, gfortran, random_number, _gfortran_random_r8@GFORTRAN_8",

## Classic flang from Dec 2017 (and untested since)
"linux, Fortran, ClassicFlang, open, f90io_open03",
Expand Down Expand Up @@ -205,6 +207,7 @@ so_symbol_names_table <-
"linux, Fortran, flang-new, write, _FortranAioOutputUnformatedBlock",
## does not support rand()
## https://discourse.llvm.org/t/support-for-gnu-fortran-extensions/69630
"linux, Fortran, flang-new, random_number, _FortranARandomNumber",

## Intel 'Clasic' and 202x
"linux, Fortran, intel, stop, for_stop",
Expand All @@ -229,6 +232,7 @@ so_symbol_names_table <-
"linux, Fortran, intel, write, for_write_seq_nml",
## does not support rand() except in module ifport
"linux, Fortran, intel, rand, rand_",
"linux, Fortran, intel, random_number, for_randoom_number",

## Apple clang identifies itself as gcc, so configure has used that
"macos, C, gcc, abort, _abort", # not currently seen
Expand Down Expand Up @@ -268,6 +272,7 @@ so_symbol_names_table <-
"macos, Fortran, gfortran, stop, __gfortran_stop_numeric",
"macos, Fortran, gfortran, stop, __gfortran_stop_string",
"macos, Fortran, gfortran, rand, __gfortran_rand",
"macos, Fortran, gfortran, random_number, __gfortran_random_r8",

## This is old: freebsd defaults to clang these days, and
## gfortran and (classic) flang are available (and 'f18' will be)
Expand Down

0 comments on commit 74afc4b

Please sign in to comment.