[Bug fortran/60414] New: internal compiler error: tree check

[antony at cosmologist dot info]

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

            Bug ID: 60414
           Summary: internal compiler error: tree check
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: antony at cosmologist dot info

module testmod

    Type T
    contains
    procedure :: FWrite
    procedure :: FWriteArr
    generic :: Write => FWrite, FWriteArr
    end Type

    contains

    subroutine FWrite(this,X)
    class(T) this
    class(*) X

    end subroutine FWrite


    subroutine FWriteArr(this,X)
    class(T) this
    class(*) X(:)

    end subroutine FWriteARr

    subroutine WriteTextVector(aname, vec, n)
    character(LEN=*), intent(IN) :: aname
    integer, intent(in) :: n
    class(*), intent(in) :: vec(n)
    integer j
    Type(T) :: Tester

    j=1
    call Tester%Write(vec(j))

    end subroutine WriteTextVector

    end module


gfortran -c TestClass.f90
TestClass.f90: In function ‘writetextvector’:
TestClass.f90:33:0: internal compiler error: tree check: expected record_type
or union_type or qual_union_type, have pointer_type in gfc_class_data_get, at
fortran/trans-expr.c:125
     call Tester%Write(vec(j))
 ^
0x8809538 tree_check_failed(tree_node const*, char const*, int, char const*,
...)
    ../../gcc-trunk/gcc/tree.c:9192
0x822c9a4 tree_check3
    ../../gcc-trunk/gcc/tree.h:2749
0x822c9a4 gfc_class_data_get(tree_node*)
    ../../gcc-trunk/gcc/fortran/trans-expr.c:125
0x823633a gfc_conv_class_to_class(gfc_se*, gfc_expr*, gfc_typespec, bool, bool,
bool, bool)
    ../../gcc-trunk/gcc/fortran/trans-expr.c:668
0x823318c gfc_conv_procedure_call(gfc_se*, gfc_symbol*, gfc_actual_arglist*,
gfc_expr*, vec<tree_node*, va_gc, vl_embed>*)
    ../../gcc-trunk/gcc/fortran/trans-expr.c:4258
0x825b86b gfc_trans_call(gfc_code*, bool, tree_node*, tree_node*, bool)
    ../../gcc-trunk/gcc/fortran/trans-stmt.c:408
0x8202064 trans_code
    ../../gcc-trunk/gcc/fortran/trans.c:1701
0x8229920 gfc_generate_function_code(gfc_namespace*)
    ../../gcc-trunk/gcc/fortran/trans-decl.c:5610
0x82036f2 gfc_generate_module_code(gfc_namespace*)
    ../../gcc-trunk/gcc/fortran/trans.c:1956
0x81c0df6 translate_all_program_units
    ../../gcc-trunk/gcc/fortran/parse.c:4523
0x81c0df6 gfc_parse_file()
    ../../gcc-trunk/gcc/fortran/parse.c:4733
0x81fd035 gfc_be_parse_file
    ../../gcc-trunk/gcc/fortran/f95-lang.c:188
Please submit a full bug report,