Skip to content
Snippets Groups Projects
  • Andre Vehreschild's avatar
    26ca6dbd
    Steve Kargl <kargl@gcc.gnu.org> · 26ca6dbd
    Andre Vehreschild authored
    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.
    26ca6dbd
    History
    Steve Kargl <kargl@gcc.gnu.org>
    Andre Vehreschild authored
    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.