| ! { 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 |