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
