blob: 3dd332705ead92aa5e89c6e626d7c32a4c009e14 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- { dg-do run }
with Aggr21_Pkg; use Aggr21_Pkg;
procedure Aggr21 is
V : Rec;
begin
V.A := 12;
V.S (1 .. 10) := "Hello init";
V.N := 123;
Init (V);
-- Probably not reliable, but the compiler is supposed not to modify V.S
pragma Assert (V.s (1 .. 5) = "Hello");
end;
|
