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