mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-03-19 12:21:15 +08:00
* trans-array.c (gfc_conv_array_parameter): Guard union access.
From-SVN: r142283
This commit is contained in:
parent
44b55e85d2
commit
71690b03ab
@ -1,3 +1,7 @@
|
||||
2008-11-29 Eric Botcazou <ebotcazou@adacore.com>
|
||||
|
||||
* trans-array.c (gfc_conv_array_parameter): Guard union access.
|
||||
|
||||
2008-11-29 Janus Weil <janus@gcc.gnu.org>
|
||||
Mikael Morin <mikael@gcc.gnu.org>
|
||||
|
||||
|
@ -5206,7 +5206,8 @@ gfc_conv_array_parameter (gfc_se * se, gfc_expr * expr, gfc_ss * ss, int g77,
|
||||
stmtblock_t block;
|
||||
|
||||
full_array_var = (expr->expr_type == EXPR_VARIABLE
|
||||
&& expr->ref->u.ar.type == AR_FULL);
|
||||
&& expr->ref->type == REF_ARRAY
|
||||
&& expr->ref->u.ar.type == AR_FULL);
|
||||
sym = full_array_var ? expr->symtree->n.sym : NULL;
|
||||
|
||||
/* The symbol should have an array specification. */
|
||||
|
Loading…
x
Reference in New Issue
Block a user