34b4bc5c61
PR fortran/30964 PR fortran/33054 * trans-expr.c (gfc_conv_function_call): When no formal argument list is available, we still substitute missing optional arguments. * check.c (gfc_check_random_seed): Correct the check on the number of arguments to RANDOM_SEED. * intrinsic.c (add_subroutines): Add a resolution function to RANDOM_SEED. * iresolve.c (gfc_resolve_random_seed): New function. * intrinsic.h (gfc_resolve_random_seed): New prototype. * intrinsics/random.c (random_seed): Rename into random_seed_i4. (random_seed_i8): New function. * gfortran.map (GFORTRAN_1.0): Remove _gfortran_random_seed, add _gfortran_random_seed_i4 and _gfortran_random_seed_i8. * libgfortran.h (iexport_proto): Replace random_seed by random_seed_i4 and random_seed_i8. * runtime/main.c (init): Call the new random_seed_i4. * gfortran.dg/random_4.f90: New test. * gfortran.dg/random_5.f90: New test. * gfortran.dg/random_6.f90: New test. * gfortran.dg/random_7.f90: New test. From-SVN: r127383 |
||
|---|---|---|
| .. | ||
| 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 | ||
| env.c | ||
| eoshift0.c | ||
| eoshift2.c | ||
| etime.c | ||
| exit.c | ||
| f2c_specifics.F90 | ||
| fnum.c | ||
| gerror.c | ||
| getcwd.c | ||
| getlog.c | ||
| getXid.c | ||
| hostnm.c | ||
| ierrno.c | ||
| ishftc.c | ||
| iso_c_binding.c | ||
| iso_c_binding.h | ||
| iso_c_generated_procs.c | ||
| kill.c | ||
| link.c | ||
| malloc.c | ||
| move_alloc.c | ||
| mvbits.c | ||
| pack_generic.c | ||
| perror.c | ||
| rand.c | ||
| random.c | ||
| rename.c | ||
| reshape_generic.c | ||
| reshape_packed.c | ||
| selected_int_kind.f90 | ||
| selected_real_kind.f90 | ||
| signal.c | ||
| size.c | ||
| sleep.c | ||
| spread_generic.c | ||
| stat.c | ||
| string_intrinsics.c | ||
| symlnk.c | ||
| system_clock.c | ||
| system.c | ||
| time.c | ||
| transpose_generic.c | ||
| umask.c | ||
| unlink.c | ||
| unpack_generic.c | ||