* trans-array.c (gfc_trans_array_bound_check): Eliminate a redundant
block of code. Set name to the variable associated with the descriptor.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@158392
138bc75d-0d04-0410-961f-
82ee72b054a4
+2010-04-15 Steven G. Kargl <kargl@gcc.gnu.org>
+
+ PR fortran/30073
+ * trans-array.c (gfc_trans_array_bound_check): Eliminate a redundant
+ block of code. Set name to the variable associated with the descriptor.
+
2010-04-15 Jakub Jelinek <jakub@redhat.com>
* trans-decl.c (gfc_build_qualified_array): Clear DECL_IGNORED_P
name = "unnamed constant";
}
- if (TREE_CODE (descriptor) == VAR_DECL)
+ if (descriptor->base.code != COMPONENT_REF)
name = IDENTIFIER_POINTER (DECL_NAME (descriptor));
/* If upper bound is present, include both bounds in the error message. */