2 -- { dg-options "-gnatws -fdump-tree-original" }
4 procedure Derived_Type1 is
6 type Root is tagged null record;
8 type Derived1 is new Root with record
12 type Derived2 is new Derived1 with record
26 -- { dg-final { scan-tree-dump-not "VIEW_CONVERT_EXPR<struct derived_type1__root>" "original" } }
27 -- { dg-final { scan-tree-dump-not "VIEW_CONVERT_EXPR<struct derived_type1__derived1>" "original" } }
28 -- { dg-final { cleanup-tree-dump "original" } }