[Bug fortran/38471] New: [4.3/4.4 Regression] ICE on pointer assignment of nested derived-type component

["burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

Reported at
http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/bf908dba87ce677a


Valgrind shows:
==10280== Invalid read of size 8
==10280==    at 0x4B67E2: gfc_trans_pointer_assignment (trans-expr.c:4076)
==10280==    by 0x4956AF: gfc_trans_code (trans.c:1111)
==10280==    by 0x4AD5FB: gfc_generate_function_code (trans-decl.c:3887)


trans-expr.c is:
  4066            if (expr1->symtree->n.sym->attr.subref_array_pointer)
  4067              {
  4068                decl = expr1->symtree->n.sym->backend_decl;
  4069                gfc_init_se (&rse, NULL);
  4070                rse.descriptor_only = 1;
  4071                gfc_conv_expr (&rse, expr2);
  4072                tmp = gfc_get_element_type (TREE_TYPE (rse.expr));
  4073                tmp = fold_convert (gfc_array_index_type, size_in_bytes
(tmp));
  4074                if (!INTEGER_CST_P (tmp))
  4075                  gfc_add_block_to_block (&lse.post, &rse.pre);
  4076                gfc_add_modify (&lse.post, GFC_DECL_SPAN(decl), tmp);
  4077              }



module test
  implicit none
  !===================================================
  type b
    integer :: j
  end type b
  !===================================================
  type a
    type(b), dimension(4) :: i
  end type a
  !===================================================
contains
  !===================================================
  subroutine test_sub(sorb,ipn)
    type(a), intent(in), target :: sorb
    integer, dimension(:), pointer :: ipn

    ipn=>sorb%i%j
  end subroutine test_sub
  !===================================================
end module test


-- 
           Summary: [4.3/4.4 Regression] ICE on pointer assignment of nested
                    derived-type component
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org
OtherBugsDependingO 32834
             nThis:


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