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