blob: ec3b9eebf6e2f89382530ca48c1dd58a76125c89 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-gnatwa" }
with Text_IO; use Text_IO;
package body Warn29 is
procedure P (X : T; Y : Integer) is
begin
Put_Line ("hello");
end P;
end Warn29;