------- Comment #8 from pinskia at gcc dot gnu dot org  2010-04-20 03:14 -------
It was introduced by:
2010-04-15  Steven G. Kargl  <ka...@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.

Which added the following code:
+  if (descriptor->base.code != COMPONENT_REF)
+    name = IDENTIFIER_POINTER (DECL_NAME (descriptor));

It should check to see if descriptor is a DECL rather than if it is not 
COMPONENT_REF.  Also it should not be using ->base.code directly but use
TREE_CODE :).


-- 

pinskia at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu dot org
          Component|middle-end                  |fortran
            Summary|[4.6 Regression] tree check:|[4.6 Regression] tree check:
                   |expected tree that contains |expected tree that contains
                   |‘decl minimal’ structure,   |�decl minimal�
                   |have ‘indirect_ref’ in      |structure, have
                   |gfc_trans_array_bound_check |�indirect_ref� in
                   |                            |gfc_trans_array_bound_check


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43793

Reply via email to