From: pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 23 May 2004 11:06:09 +0000 (+0000)
Subject: 	* check.c (gfc_check_random_seed): Issue for too many arguments.
X-Git-Tag: upstream/4.9.2~71093
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2a8cf3bd33957c7810ce3a8536f8af0c11510bef;p=platform%2Fupstream%2Flinaro-gcc.git

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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82162 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c664f78..8b3e522 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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.
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index dadb116..007f8d9 100644
--- a/gcc/fortran/check.c
+++ b/gcc/fortran/check.c
@@ -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;