blob: 84441423e61bbad5e6e5fcccb198ef2bf20d1c77 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! 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
|
