[Bug fortran/40598] Some missed optimizations in array assignment

[rguenth at gcc dot gnu dot org]

------- Comment #7 from rguenth at gcc dot gnu dot org  2009-07-01 09:43 -------
  tmp =  build4 (ARRAY_RANGE_REF, TREE_TYPE (dest), dest, 
                  build_int_cst (gfc_array_index_type, 3),
                  NULL_TREE, NULL_TREE);

to set the upper bound correctly you have to build a new array type instead
of re-using TREE_TYPE (dest).  The types TYPE_DOMAIN will specify the size
of the slice.  Thus,

  slice_type = build_array_type (TREE_TYPE (TREE_TYPE (dest)),
                                 build_index_type (build_int_cst
(gfc_array_index_type, slice-size - 1)));

Richard.


-- 


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