OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Brooks Moses 2007-01-05 01:40:06 +00:00 committed by Brooks Moses
parent ea8dda63be
commit c79441520f
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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

6
gcc/fortran/check.c
View File

@ -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;