[Bug fortran/46581] [4.6 Regression] [OOP] segfault in SELECT TYPE with associate-name

[janus at gcc dot gnu.org]

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

--- Comment #4 from janus at gcc dot gnu.org 2010-11-25 22:05:06 UTC ---
Author: janus
Date: Thu Nov 25 22:04:59 2010
New Revision: 167154

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=167154
Log:
2010-11-25  Janus Weil  <ja...@gcc.gnu.org>

    PR fortran/46581
    * trans.h (gfc_process_block_locals): Removed second argument.
    * trans-decl.c (trans_associate_var): Moved to trans-stmt.c.
    (gfc_trans_deferred_vars): Skip ASSOCIATE variables.
    (gfc_process_block_locals): Don't mark associate names to be
    initialized.
    * trans-stmt.c (trans_associate_var): Moved here from trans-decl.c.
    (gfc_trans_block_construct): Call 'trans_associate_var' from here
    to make sure SELECT TYPE with associate-name is treated correctly.

2010-11-25  Janus Weil  <ja...@gcc.gnu.org>

    PR fortran/46581
    * gfortran.dg/select_type_19.f03: New.

Added:
    trunk/gcc/testsuite/gfortran.dg/select_type_19.f03
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-decl.c
    trunk/gcc/fortran/trans-stmt.c
    trunk/gcc/fortran/trans.h
    trunk/gcc/testsuite/ChangeLog