blob: 069e3d079d5379b955c534bbdf9f0b3d1983a0ed [file] [log] [blame]
! { dg-do run }
!
! PR 57562: [OOP] ICE due to extended derived type with PARAMETER attribute
!
! Contributed by <helvio.vairinhos@gmail.com>
type :: Parent
integer :: member1 = 0
end type
type, extends(Parent) :: Child
integer :: member2 = 0
end type
type, extends(Child) :: Grandchild
integer :: member3 = 0
end type
type(Grandchild), parameter :: object = Grandchild(23, 42, -99)
if (object%member1 /= 23) STOP 1
if (object%member2 /= 42) STOP 1
if (object%member3 /= -99) STOP 1
end