git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/45793 ([4.6 Regressions] Numerous test-suite failures) 

2010-09-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/45793
	* module.c (create_int_parameter_array): Set the array value shape.

From-SVN: r164631
This commit is contained in:
Jerry DeLisle 2010-09-26 12:30:54 +00:00
parent d355d5ea50
commit d6f3358f66
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2010-09-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/45793
* module.c (create_int_parameter_array): Set the array value shape.
2010-09-25 Tobias Burnus <burnus@net-b.de> 2010-09-25 Tobias Burnus <burnus@net-b.de>
* gfortran.texi: Re-add accidently removed \input line. * gfortran.texi: Re-add accidently removed \input line.

8
gcc/fortran/module.c
View File

@ -5305,7 +5305,8 @@ create_int_parameter (const char *name, int value, const char *modname,
} }
/* Value is already contained the array constructor, but not yet the shape. */ /* Value is already contained by the array constructor, but not
yet the shape. */
static void static void
create_int_parameter_array (const char *name, int size, gfc_expr *value, create_int_parameter_array (const char *name, int size, gfc_expr *value,
@ -5313,7 +5314,6 @@ create_int_parameter_array (const char *name, int size, gfc_expr *value,
{ {
gfc_symtree *tmp_symtree; gfc_symtree *tmp_symtree;
gfc_symbol *sym; gfc_symbol *sym;
gfc_expr *e;
tmp_symtree = gfc_find_symtree (gfc_current_ns->sym_root, name); tmp_symtree = gfc_find_symtree (gfc_current_ns->sym_root, name);
if (tmp_symtree != NULL) if (tmp_symtree != NULL)
@ -5342,8 +5342,8 @@ create_int_parameter_array (const char *name, int size, gfc_expr *value,
sym->as->upper[0] = gfc_get_int_expr (gfc_default_integer_kind, NULL, size); sym->as->upper[0] = gfc_get_int_expr (gfc_default_integer_kind, NULL, size);
sym->value = value; sym->value = value;
e->shape = gfc_get_shape (1); sym->value->shape = gfc_get_shape (1);
mpz_init_set_ui (e->shape[0], size); mpz_init_set_ui (sym->value->shape[0], size);
} }