1-- { dg-do run }
2
3with Controlled5_Pkg; use Controlled5_Pkg;
4
5procedure Controlled5 is
6   V : Root'Class := Dummy (300);
7begin
8   null;
9end;
10