]> git.ipfire.org Git - thirdparty/gcc.git/commit - gcc/fortran/primary.c
re PR fortran/47745 ([OOP] Segfault with CLASS(*) and derived type dummy arguments)
authorJanus Weil <janus@gcc.gnu.org>
Wed, 16 Feb 2011 20:51:56 +0000 (21:51 +0100)
committerJanus Weil <janus@gcc.gnu.org>
Wed, 16 Feb 2011 20:51:56 +0000 (21:51 +0100)
commit528622fd85a8e2f7c8f70c4e8a9486c4c426c4a5
tree878888203c200925a89236008d41c176a21e0259
parentebcb4bc3047888b1c9a655255c56257ff32dbc0b
re PR fortran/47745 ([OOP] Segfault with CLASS(*) and derived type dummy arguments)

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.

From-SVN: r170223
gcc/fortran/ChangeLog
gcc/fortran/class.c
gcc/fortran/decl.c
gcc/fortran/interface.c
gcc/fortran/match.c
gcc/fortran/primary.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/class_39.f03 [new file with mode: 0644]