blob: a88cc1fb51e0ee936e6929265718969deafd0d99 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- { dg-do run }
with Aggr19_Pkg; use Aggr19_Pkg;
procedure Aggr19 is
C : Rec5
:= (Ent => (Kind => Two, Node => (L => (D => True, Pos => 1 )), I => 0));
A : Rec5 := C;
begin
Proc (A);
if A /= C then
raise Program_Error;
end if;
end;
|