! Test component name resolution with nested legacy DEC structures.
!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s

  structure /a/
    integer :: a_first_comp
    structure /b/ b1, b2(100)
      integer :: i
    end structure
    structure /c/ z
      integer :: i
      structure /d/ d1, d2(10)
        real :: x
      end structure
    end structure
    integer :: a_last_comp
  end structure
end
! CHECK:    /a/: DerivedType sequence components: a_first_comp,b1,b2,z,a_last_comp
! CHECK:    /b/: DerivedType sequence components: i
! CHECK:    /c/: DerivedType sequence components: i,d1,d2
! CHECK:    /d/: DerivedType sequence components: x