https://gcc.gnu.org/bugzilla/show_bug.cgi?id=98301
--- Comment #12 from CVS Commits <cvs-commit at gcc dot gnu.org> --- The master branch has been updated by Andre Vehreschild <ve...@gcc.gnu.org>: https://gcc.gnu.org/g:26ca6dbda23bc6dfab96ce07afa70ebacedfaf9c commit r12-997-g26ca6dbda23bc6dfab96ce07afa70ebacedfaf9c Author: Andre Vehreschild <ve...@gcc.gnu.org> Date: Sat May 22 13:27:42 2021 +0200 Steve Kargl <ka...@gcc.gnu.org> 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.
