1 2 3 4 5 6 7 8
-- { dg-do run } with Taft_Type1_Pkg1; procedure Taft_Type1 is begin Taft_Type1_Pkg1.Check; end;