mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-22 15:00:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

* check.c (gfc_check_random_seed): Issue for too many arguments.

Browse Source 
From-SVN: r82162
This commit is contained in:
Steven G. Kargl 2004-05-23 11:06:09 +00:00 committed by Paul Brook
parent 4460cef225
commit 95d3f56711
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2004-05-23 Steven G. Kargl <kargls@comcast.net>
* check.c (gfc_check_random_seed): Issue for too many arguments.
2004-05-22 Steven G. Kargl <kargls@comcast.net>
* intrinsic.c (add_subroutines): Use add_sym_3s for random_seed.

12
gcc/fortran/check.c
View File

@ -1833,8 +1833,14 @@ gfc_check_random_seed (gfc_expr * size, gfc_expr * put, gfc_expr * get)
if (put != NULL)
{
if (size != NULL)
gfc_error ("Too many arguments to %s at %L", gfc_current_intrinsic,
&put->where);
if (array_check (put, 1) == FAILURE)
return FAILURE;
if (rank_check (put, 1, 1) == FAILURE)
return FAILURE;
@ -1847,8 +1853,14 @@ gfc_check_random_seed (gfc_expr * size, gfc_expr * put, gfc_expr * get)
if (get != NULL)
{
if (size != NULL || put != NULL)
gfc_error ("Too many arguments to %s at %L", gfc_current_intrinsic,
&get->where);
if (array_check (get, 2) == FAILURE)
return FAILURE;
if (rank_check (get, 2, 1) == FAILURE)
return FAILURE;