[Bug fortran/43207] New: [OOP] ICE for invalid pointer assignment => type%parent

[burnus at gcc dot gnu dot org]

gfortran
fff.f90: In function 'foo_child':
fff.f90:26:0: internal compiler error: in gfc_conv_structure, at
fortran/trans-expr.c:4390

NAG:
Error: fff.f90, line 29: THIS is neither a POINTER nor a TARGET
       detected at PARENT@<end-of-statement>

IBM:
"Final_test.F90", line 27.20: 1514-648 (S) A structure component
reference must be polymorphic if the rightmost component name is of
abstract type.


 module parent_module
  implicit none

  type ,abstract :: parent
  contains
    procedure :: foo
  end type

contains
  subroutine foo(this)
    class(parent) :: this
    print *,'Inside parent foo'
  end subroutine
end module

module child_module
  use parent_module
  implicit none

  type ,extends(parent) :: child
  contains
    procedure :: foo => foo_child
  end type

contains
  subroutine foo_child(this)
    class(child) :: this
    class(parent) ,pointer :: this_parent=>null()
    this_parent => this%parent  ! <<<<<<<<<<<<
    print *,'Inside child foo'
    call this_parent%foo()
  end subroutine
end module


-- 
           Summary: [OOP] ICE for invalid pointer assignment  => type%parent
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Keywords: ice-on-invalid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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