22 lines
654 B
Fortran
22 lines
654 B
Fortran
|
! 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
|