1-- { dg-do run } 2 3with Disp1_Pkg; use Disp1_Pkg; 4 5procedure Disp1 is 6 O : DT_I1; 7 Ptr : access I1'Class; 8begin 9 Ptr := new I1'Class'(I1'Class (O)); 10end; 11