26ca6dbda2
PR fortran/98301 - random_init() is broken Correct implementation of random_init() when -fcoarray=lib is given. 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.c | ||
| erfc_scaled_inc.c | ||
| etime.c | ||
| execute_command_line.c | ||
| exit.c | ||
| extends_type_of.c | ||
| f2c_specifics.F90 | ||
| fnum.c | ||
| gerror.c | ||
| getXid.c | ||
| getcwd.c | ||
| getlog.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.c | ||
| random_init.f90 | ||
| 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.c | ||
| string_intrinsics_inc.c | ||
| symlnk.c | ||
| system.c | ||
| system_clock.c | ||
| time.c | ||
| time_1.h | ||
| trigd.c | ||
| trigd.inc | ||
| trigd_lib.inc | ||
| umask.c | ||
| unlink.c | ||
| unpack_generic.c | ||