mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-24 19:33:59 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity
1c3d0d93e2
gcc/libgfortran/runtime
History
Francois-Xavier Coudert 34b4bc5c61 re PR fortran/30964 (optional arguments to random_seed) 
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
2007-08-12 20:45:29 +00:00
..
backtrace.c re PR fortran/31189 (Support backtracing for non-library errors) 2007-08-11 21:52:22 +00:00
compile_options.c re PR fortran/31189 (Support backtracing for non-library errors) 2007-08-11 21:52:22 +00:00
environ.c re PR fortran/31917 ([4.1 only] GFORTRAN_CONVERT_UNIT is ignored) 2007-05-17 10:39:32 +02:00
error.c re PR fortran/31270 (print subscript value and array bounds when out-of-bounds error occurs) 2007-08-10 22:12:04 +00:00
fpu.c re PR fortran/14943 (read/write code generation is not thread safe) 2005-11-21 23:03:56 +01:00
in_pack_generic.c in_pack.m4: Fixed a typo. 2006-10-18 19:17:49 +02:00
in_unpack_generic.c in_pack.m4: Fixed a typo. 2006-10-18 19:17:49 +02:00
main.c re PR fortran/30964 (optional arguments to random_seed) 2007-08-12 20:45:29 +00:00
memory.c Fortran frontend: 2007-07-03 19:50:05 +03:00
pause.c re PR fortran/14943 (read/write code generation is not thread safe) 2005-11-21 23:03:56 +01:00
select.c re PR fortran/32035 ('<anonymous>' may be used uninitialized in this function) 2007-07-27 14:26:43 +00:00
stop.c re PR fortran/14943 (read/write code generation is not thread safe) 2005-11-21 23:03:56 +01:00
string.c string.c (compare0): Use gfc_charlen_type instead of int. 2007-05-27 00:15:22 +03:00