repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Require target lra in gcc.dg/pr108095.c
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
pack27_pkg.ads
blob
5d2b68cd00323b9d9ff66e4975e896db78ce62aa
1
pragma
No_Component_Reordering
;
2
3
package
Pack27_Pkg
is
4
5
type
Enum
is
(
One
,
Two
,
Three
);
6
7
type
Rec1
(
D
:
Enum
:=
One
)
is record
8
case
D
is
9
when
One
=>
null
;
10
when
Two
=>
null
;
11
when
Three
=>
C
:
Character
;
12
end case
;
13
end record
;
14
pragma
Pack
(
Rec1
);
15
16
type
Rec2
is record
17
R
:
Rec1
;
18
end record
;
19
pragma
Pack
(
Rec2
);
20
21
type
Rec3
is record
22
B
:
boolean
;
23
R
:
Rec2
;
24
end record
;
25
pragma
Pack
(
Rec3
);
26
27
type
Rec4
is record
28
B
:
Boolean
;
29
R
:
Rec3
;
30
end record
;
31
pragma
Pack
(
Rec4
);
32
33
end
Pack27_Pkg
;