* check.c (gfc_check_kill_sub): Add checks for non-scalar
arguments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120468
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
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;