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