diff options
| author | Andre Vehreschild <vehre@gcc.gnu.org> | 2021-05-22 13:27:42 +0200 |
|---|---|---|
| committer | Andre Vehreschild <vehre@gcc.gnu.org> | 2021-05-22 13:27:42 +0200 |
| commit | 26ca6dbda23bc6dfab96ce07afa70ebacedfaf9c (patch) | |
| tree | 992eca69f9e2e4007a4c324df7aca1893a3f488a /gcc/loop-init.c | |
| parent | 3050a1a18276d7cdd8946e34cc1344e30efb7030 (diff) | |
| download | gcc-26ca6dbda23bc6dfab96ce07afa70ebacedfaf9c.zip gcc-26ca6dbda23bc6dfab96ce07afa70ebacedfaf9c.tar.gz gcc-26ca6dbda23bc6dfab96ce07afa70ebacedfaf9c.tar.bz2 | |
Steve Kargl <kargl@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.
Diffstat (limited to 'gcc/loop-init.c')
0 files changed, 0 insertions, 0 deletions