1! Test component name resolution with nested legacy DEC structures. 2!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s 3 4 structure /a/ 5 integer :: a_first_comp 6 structure /b/ b1, b2(100) 7 integer :: i 8 end structure 9 structure /c/ z 10 integer :: i 11 structure /d/ d1, d2(10) 12 real :: x 13 end structure 14 end structure 15 integer :: a_last_comp 16 end structure 17end 18! CHECK: /a/: DerivedType sequence components: a_first_comp,b1,b2,z,a_last_comp 19! CHECK: /b/: DerivedType sequence components: i 20! CHECK: /c/: DerivedType sequence components: i,d1,d2 21! CHECK: /d/: DerivedType sequence components: x 22