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

…

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

…

in_pack_generic.c

…

in_unpack_generic.c

…

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

…

select.c

re PR fortran/32035 ('<anonymous>' may be used uninitialized in this function)

2007-07-27 14:26:43 +00:00

stop.c

…

string.c

…