22 lines · plain
1! Test component name resolution with nested legacy DEC structures.2!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s3 4 structure /a/5 integer :: a_first_comp6 structure /b/ b1, b2(100)7 integer :: i8 end structure9 structure /c/ z10 integer :: i11 structure /d/ d1, d2(10)12 real :: x13 end structure14 end structure15 integer :: a_last_comp16 end structure17end18! CHECK: /a/: DerivedType sequence components: a_first_comp,b1,b2,z,a_last_comp19! CHECK: /b/: DerivedType sequence components: i20! CHECK: /c/: DerivedType sequence components: i,d1,d221! CHECK: /d/: DerivedType sequence components: x22