[Bug fortran/47745] [OOP] Segfault with CLASS(*) and derived type dummy arguments

[janus at gcc dot gnu.org]

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

--- Comment #8 from janus at gcc dot gnu.org 2011-02-16 20:52:00 UTC ---
Author: janus
Date: Wed Feb 16 20:51:56 2011
New Revision: 170223

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=170223
Log:
2011-02-16  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/47745
    * class.c (gfc_build_class_symbol): Set 'class_ok' attribute.
    * decl.c (build_sym,attr_decl1): Move setting of 'class_ok' into
    'gfc_build_class_symbol'.
    (gfc_match_decl_type_spec): Reject unlimited polymorphism.
    * interface.c (matching_typebound_op): Check for 'class_ok' attribute.
    * match.c (select_type_set_tmp): Move setting of 'class_ok' into
    'gfc_build_class_symbol'.
    * primary.c (gfc_variable_attr): Check for 'class_ok' attribute.

2011-02-16  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/47745
    * gfortran.dg/class_39.f03: New.

Added:
    trunk/gcc/testsuite/gfortran.dg/class_39.f03
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/class.c
    trunk/gcc/fortran/decl.c
    trunk/gcc/fortran/interface.c
    trunk/gcc/fortran/match.c
    trunk/gcc/fortran/primary.c
    trunk/gcc/testsuite/ChangeLog