gcc-4.9/gcc/testsuite/gnat.dg/profile_warning.ads


1
2
3
4
5
6

pragma Profile_Warnings (Ravenscar);
with profile_warning_p;
package profile_warning is
   pragma Elaborate_Body;
   procedure I is new profile_warning_p.Proc;
end;