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

re PR fortran/35724 (Compile time segmentation fault for CSHIFT with negative third arg)

Browse Source 
2008-04-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/35724
	* iresolve.c (gfc_resolve_eoshift): Check for NULL symtree in test for
	optional argument attribute.

From-SVN: r134376
This commit is contained in:
Jerry DeLisle 2008-04-17 04:30:04 +00:00
parent 8a75a0e539
commit 554ef0273f
2 changed files with 8 additions and 1 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 @@
2008-04-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35724
* iresolve.c (gfc_resolve_eoshift): Check for NULL symtree in test for
optional argument attribute.
2008-04-16 Paul Thomas <pault@gcc.gnu.org>
PR fortran/35932

3
gcc/fortran/iresolve.c
View File

@ -738,7 +738,8 @@ gfc_resolve_eoshift (gfc_expr *f, gfc_expr *array, gfc_expr *shift,
if (dim != NULL)
{
if (dim->expr_type != EXPR_CONSTANT && dim->symtree->n.sym->attr.optional)
if (dim->expr_type != EXPR_CONSTANT && dim->symtree != NULL
&& dim->symtree->n.sym->attr.optional)
{
/* Mark this for later setting the type in gfc_conv_missing_dummy. */
dim->representation.length = shift->ts.kind;