[Bug fortran/50050] [4.6/4.7 Regression] 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 #11 from Mikael Morin <mikael at gcc dot gnu.org> 2011-08-25 19:10:11 UTC ---
Author: mikael
Date: Thu Aug 25 19:10:06 2011
New Revision: 178086

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

    PR fortran/50050
    * expr.c (gfc_free_shape): Do nothing if shape is NULL.
    (free_expr0): Remove redundant NULL shape check.
    * resolve.c (check_host_association): Ditto.
    * trans-expr.c (gfc_trans_subarray_assign): Assert that shape is
    non-NULL.
    * trans-io.c (transfer_array_component): Ditto.

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

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


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