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