From: brooks <brooks@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 5 Jan 2007 01:40:06 +0000 (+0000)
Subject: PR 30371
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=6b6b8eeef9398dccf5d29d669d319bffd5972c67;p=thirdparty%2Fgcc.git

PR 30371
* 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
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index cb41850968af..c18d9ba8744d 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index 0c5fc130b5ae..e51fd8218011 100644
--- a/gcc/fortran/check.c
+++ b/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;