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