xref: /llvm-project/flang/test/Semantics/typeinfo10.f90 (revision 53c260d99e375f666c6cffa15f5fa261858147a2)
1!RUN: bbc --dump-symbols %s | FileCheck %s
2!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s
3
4! Test that empty parent types are still set first in the
5! runtime info global array describing components.
6module empty_parent
7 type :: z
8 end type
9
10 type, extends(z) :: t
11  integer :: a
12 end type
13end module
14! CHECK: .c.t, SAVE{{.*}}.n.z{{.*}}n.a
15