[Bug fortran/46971] [4.6 Regression] [OOP] ICE on long class names

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

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

--- Comment #5 from janus at gcc dot gnu.org 2010-12-31 10:08:22 UTC ---
Author: janus
Date: Fri Dec 31 10:08:17 2010
New Revision: 168363

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=168363
Log:
2010-12-31  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/46971
    * gfortran.h (gfc_hash_value): Add prototype.
    * class.c (get_unique_type_string): Check if proc_name is present and
    make sure string contains an underscore.
    (get_unique_hashed_string): New function which creates a hashed string
    if the given unique string is too long.
    (gfc_hash_value): Moved here from decl.c, renamed and simplified.
    (gfc_build_class_symbol, gfc_find_derived_vtab): Use hashed strings.
    * decl.c (hash_value): Moved to class.c.
    (gfc_match_derived_decl): Renamed 'hash_value'.


2010-12-31  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/46971
    * gfortran.dg/class_33.f90: New.

Added:
    trunk/gcc/testsuite/gfortran.dg/class_33.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/class.c
    trunk/gcc/fortran/decl.c
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/testsuite/ChangeLog