1--  { dg-do compile }
2--  { dg-options "-O2 -Wuninitialized" }
3
4package body Warn19 is
5
6   procedure P_Init (X : out Bits) is
7   begin
8      Init (X);
9   end;
10
11   procedure Setup is
12      Data : Bits;
13   begin
14      P_Init (Data);
15      for I in Data'Range loop
16         P_Data (I) := Data (I);
17      end loop;
18   end;
19
20end Warn19;
21