| !RUN: bbc --dump-symbols %s | FileCheck %s | |
| !RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s | |
| ! Test that empty parent types are still set first in the | |
| ! runtime info global array describing components. | |
| module empty_parent | |
| type :: z | |
| end type | |
| type, extends(z) :: t | |
| integer :: a | |
| end type | |
| end module | |
| ! CHECK: .c.t, SAVE{{.*}}.n.z{{.*}}n.a |