!RUN: bbc --dump-symbols %s | FileCheck %s
!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s

! Test that empty parent types are still set first in the
! runtime info global array describing components.
module empty_parent
 type :: z
 end type

 type, extends(z) :: t
  integer :: a
 end type
end module
! CHECK: .c.t, SAVE{{.*}}.n.z{{.*}}n.a