002745ca36
Correct implementation of random_init() when -fcoarray=lib is given. Backport from mainline. 2021-06-06 Andre Vehreschild <vehre@gcc.gnu.org> Steve Kargl <kargl@gcc.gnu.org> gcc/fortran/ChangeLog: PR fortran/98301 * trans-decl.c (gfc_build_builtin_function_decls): Move decl. * trans-intrinsic.c (conv_intrinsic_random_init): Use bool for lib-call of caf_random_init instead of logical (4-byte). * trans.h: Add tree var for random_init. libgfortran/ChangeLog: PR fortran/98301 * caf/libcaf.h (_gfortran_caf_random_init): New function. * caf/single.c (_gfortran_caf_random_init): New function. * gfortran.map: Added fndecl. * intrinsics/random_init.f90: Implement random_init. |
||
---|---|---|
.. | ||
abort.c | ||
access.c | ||
args.c | ||
associated.c | ||
c99_functions.c | ||
chdir.c | ||
chmod.c | ||
clock.c | ||
cpu_time.c | ||
cshift0.c | ||
ctime.c | ||
date_and_time.c | ||
dprod_r8.f90 | ||
dtime.c | ||
env.c | ||
eoshift0.c | ||
eoshift2.c | ||
erfc_scaled_inc.c | ||
erfc_scaled.c | ||
etime.c | ||
execute_command_line.c | ||
exit.c | ||
extends_type_of.c | ||
f2c_specifics.F90 | ||
fnum.c | ||
gerror.c | ||
getcwd.c | ||
getlog.c | ||
getXid.c | ||
hostnm.c | ||
ierrno.c | ||
is_contiguous.c | ||
ishftc.c | ||
kill.c | ||
link.c | ||
move_alloc.c | ||
mvbits.c | ||
pack_generic.c | ||
perror.c | ||
rand.c | ||
random_init.f90 | ||
random.c | ||
rename.c | ||
reshape_generic.c | ||
reshape_packed.c | ||
selected_char_kind.c | ||
selected_int_kind.f90 | ||
selected_real_kind.f90 | ||
signal.c | ||
size.c | ||
sleep.c | ||
spread_generic.c | ||
stat.c | ||
string_intrinsics_inc.c | ||
string_intrinsics.c | ||
symlnk.c | ||
system_clock.c | ||
system.c | ||
time_1.h | ||
time.c | ||
trigd_lib.inc | ||
trigd.c | ||
trigd.inc | ||
umask.c | ||
unlink.c | ||
unpack_generic.c |