1 2 3 4 5 6 7 8 9
-- { dg-do run } with Thunk1_Pkg1; use Thunk1_Pkg1; procedure Thunk1 is D: Derived; begin D.Op ("Message"); end;