gcc/testsuite/gfortran.dg/extends_16.f90

   1 ! { dg-do run }
   2 !
   3 ! PR 57562: [OOP] ICE due to extended derived type with PARAMETER attribute
   4 !
   5 ! Contributed by <helvio.vairinhos@gmail.com>
   6
   7    type :: Parent
   8       integer :: member1 = 0
   9    end type
  10
  11    type, extends(Parent) :: Child
  12       integer :: member2 = 0
  13    end type
  14
  15    type, extends(Child) :: Grandchild
  16       integer :: member3 = 0
  17    end type
  18
  19    type(Grandchild), parameter :: object = Grandchild(23, 42, -99)
  20
  21    if (object%member1 /= 23) call abort
  22    if (object%member2 /= 42) call abort
  23    if (object%member3 /= -99) call abort
  24
  25 end