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

From-SVN: r82162

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c664f78719f93d257b67cac02bfe3bfa87f52e2f..8b3e522fcc268d05a4bf7a9ef3670e9a655344b6 100644 (file)
--- 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 dadb1166ea9cf481d51905c224d845faf306a70c..007f8d975e4501e36c4f67063f5fa7bd6b9910d7 100644 (file)
--- 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;