http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55763
--- Comment #19 from Harald Anlauf <anlauf at gmx dot de> 2013-01-04 23:57:40 UTC --- (In reply to comment #17) > Author: burnus > Date: Fri Jan 4 08:57:58 2013 > New Revision: 194885 Great! I extended the example from comment #10 to find: module gfcbug122 implicit none type myobj class(*), allocatable :: x contains procedure :: print end type myobj contains subroutine print(this) class(myobj) :: this select type (this) type is (integer) type is (real) type is (complex) type is (character(len=*)) end select end subroutine print end module gfcbug122 gfcbug122.f90: In function 'print': gfcbug122.f90:18:0: internal compiler error: in trans_associate_var, at fortran/trans-stmt.c:1304 end module gfcbug122 ^ 0x8289b53 trans_associate_var ../../trunk/gcc/fortran/trans-stmt.c:1304 0x8289b53 gfc_trans_block_construct(gfc_code*) ../../trunk/gcc/fortran/trans-stmt.c:1351 0x822197f trans_code ../../trunk/gcc/fortran/trans.c:1418 0x828df26 gfc_trans_integer_select ../../trunk/gcc/fortran/trans-stmt.c:1986 0x828df26 gfc_trans_select(gfc_code*) ../../trunk/gcc/fortran/trans-stmt.c:2480 0x8221997 trans_code ../../trunk/gcc/fortran/trans.c:1434 0x8289327 gfc_trans_block_construct(gfc_code*) ../../trunk/gcc/fortran/trans-stmt.c:1344 0x822197f trans_code ../../trunk/gcc/fortran/trans.c:1418 0x824d499 gfc_generate_function_code(gfc_namespace*) ../../trunk/gcc/fortran/trans-decl.c:5385 0x8222189 gfc_generate_module_code(gfc_namespace*) ../../trunk/gcc/fortran/trans.c:1646 0x81dd52d translate_all_program_units ../../trunk/gcc/fortran/parse.c:4452 0x81dd52d gfc_parse_file() ../../trunk/gcc/fortran/parse.c:4679 0x821c85f gfc_be_parse_file ../../trunk/gcc/fortran/f95-lang.c:191