[Bug fortran/50050] Internal compiler error free_expr0 at expr.c:3709 via gfc_done_2

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

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

--- Comment #5 from Mikael Morin <mikael at gcc dot gnu.org> 2011-08-22 14:07:34 UTC ---
Author: mikael
Date: Mon Aug 22 14:07:30 2011
New Revision: 177956

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=177956
Log:
2011-08-22  Mikael Morin  <mikael.morin@gcc.gnu.org>

    PR fortran/50050
    * gfortran.h (gfc_clear_shape, gfc_free_shape): New prototypes.
    * expr.c (gfc_clear_shape, gfc_free_shape): New functions.
    (free_expr0): Re-use gfc_free_shape.
    * trans-expr.c (gfc_trans_subarray_assign): Ditto.
    * trans-io.c (transfer_array_component): Ditto.
    * resolve.c (check_host_association): Ditto.
    (gfc_expr_to_initialize): Don't force the rank value and free the shape
    after updating the expression. Recalculate shape and rank.
    (resolve_where_shape): Re-use gfc_clear_shape.
    * array.c (gfc_array_ref_shape): Ditto.

2011-08-22  Mikael Morin  <mikael.morin@gcc.gnu.org>

    PR fortran/50050
    * gfortran.dg/alloc_comp_initializer_3.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/alloc_comp_initializer_3.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/array.c
    trunk/gcc/fortran/expr.c
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/fortran/trans-io.c
    trunk/gcc/testsuite/ChangeLog