This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [Patch, Fortran, OOP] PR 57306: ICE on valid with class pointer initialization


Hi Janus,

Janus Weil wrote:
here is a fix for class pointer initialization.

I think the patch looks reasonable. However, as soon as I try to use the variable, I get an ICE in write_global_declarations -> symtab_get_node. It works if one moves the targets into a module.

I wonder whether there is an ordering problem of the decl or something else. The dump has:

  static struct __class_MAIN___C_p cc = &cd;
  struct c cd;
  static struct __class_MAIN___C_p dc = ⅆ
  struct d dd;

Additionally, the CLASS are wrongly initialized: You only set "_data" (indirectly as it is the first field/component of the class) but you do not set the _vptr component. Hence, the my example fails at run time

Tobias

PS: The test case. With module - fails at run time for same_type_as. Without module - one gets an ICE.

!module m
  type :: c
  end type c
  type, extends(c) :: d
  end type d
  type(c), target :: cd
  type(d), target :: dd
!end module m

!  use m
  class(c), pointer :: cc => cd
  class(c), pointer :: dc => dd

  if(.not. associated(cc, cd)) call abort()   ! OK
  if(.not. same_type_as(cc, cd)) call abort() ! Fails
  if(.not. associated(dc, dd)) call abort()   ! OK
  if(.not. same_type_as(dc, dd)) call abort() ! Fails
end


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]