re PR fortran/30371 (kill suboutine accepts (invalid) array arguments.)

PR 30371
* check.c (gfc_check_kill_sub): Add checks for non-scalar
arguments.

From-SVN: r120468

gcc/fortran/ChangeLog

+2007-01-03  Brooks Moses  <brooks.moses@codesourcery.com>
+
+	PR 30371
+	* check.c (gfc_check_kill_sub): Add checks for non-scalar
+	arguments.
+
 2007-01-04  Brooks Moses  <brooks.moses@codesourcery.com>
 
 	* intrinsic.texi: Minor cleanup, reflowing overlong

gcc/fortran/check.c

@@ -1327,9 +1327,15 @@ gfc_check_kill_sub (gfc_expr * pid, gfc_expr * sig, gfc_expr * status)
   if (type_check (pid, 0, BT_INTEGER) == FAILURE)
     return FAILURE;
 
+  if (scalar_check (pid, 0) == FAILURE)
+    return FAILURE;
+
   if (type_check (sig, 1, BT_INTEGER) == FAILURE)
     return FAILURE;
 
+  if (scalar_check (sig, 1) == FAILURE)
+    return FAILURE;
+
   if (status == NULL)
     return SUCCESS;