[Bug fortran/55763] Issues with some simpler CLASS(*) programs

["anlauf at gmx dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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