[Bug fortran/84007] New: ICE with same_type_as with CLASS entity

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84007

            Bug ID: 84007
           Summary: ICE with same_type_as with CLASS entity
           Product: gcc
           Version: 8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: kargl at gcc dot gnu.org
  Target Milestone: ---

program foo

  logical,target :: a = .true.
  logical results

  class(*),pointer :: lp

  type my_type
     class(*),allocatable :: a
     class(*),pointer :: p
  end type my_type
  type(my_type) :: obj

  lp => a 
  obj%p => a

  results = same_type_as(lp, obj%p)

end program foo

internal compiler error: in wide_int_to_tree_1, at tree.c:1567
0x6bf112 wide_int_to_tree_1
        ../../gcc/gcc/tree.c:1567
0xf89658 wide_int_to_tree(tree_node*, poly_int<1u,
generic_wide_int<wide_int_ref_storage<false, true> > > const&)
        ../../gcc/gcc/tree.c:1692
0xf89658 build_int_cst(tree_node*, poly_int<1u, long>)
        ../../gcc/gcc/tree.c:1360
0x861a5a gfc_conv_same_type_as
        ../../gcc/gcc/fortran/trans-intrinsic.c:7761
0x8738cf gfc_conv_intrinsic_function(gfc_se*, gfc_expr*)
        ../../gcc/gcc/fortran/trans-intrinsic.c:8781
0x84f25a gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/gcc/fortran/trans-expr.c:7863
0x857c46 gfc_trans_assignment_1
        ../../gcc/gcc/fortran/trans-expr.c:10039
0x815517 trans_code
        ../../gcc/gcc/fortran/trans.c:1828
0x840efd gfc_generate_function_code(gfc_namespace*)
        ../../gcc/gcc/fortran/trans-decl.c:6458
0x7cbb26 translate_all_program_units
        ../../gcc/gcc/fortran/parse.c:6103
0x7cbb26 gfc_parse_file()
        ../../gcc/gcc/fortran/parse.c:6306
0x811abf gfc_be_parse_file
        ../../gcc/gcc/fortran/f95-lang.c:204