[Bug libfortran/98301] random_init() is broken

[cvs-commit at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=98301

--- Comment #13 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-11 branch has been updated by Andre Vehreschild
<vehre@gcc.gnu.org>:

https://gcc.gnu.org/g:002745ca3668fc5e87c22acc81caaeaaadf9c47a

commit r11-8515-g002745ca3668fc5e87c22acc81caaeaaadf9c47a
Author: Andre Vehreschild <vehre@gcc.gnu.org>
Date:   Sun Jun 6 12:06:31 2021 +0200

    PR fortran/98301 - random_init() is broken

    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.