15 lines · plain
1!RUN: bbc --dump-symbols %s | FileCheck %s2!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s3 4! Test that empty parent types are still set first in the5! runtime info global array describing components.6module empty_parent7 type :: z8 end type9 10 type, extends(z) :: t11 integer :: a12 end type13end module14! CHECK: .c.t, SAVE{{.*}}.n.z{{.*}}n.a15