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
Skip analyzer strndup test on hppa*-*-hpux*
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
pack21.adb
blob
3749f445400a81421a79283fd30ca94f88f33d51
1
-- { dg-do compile }
2
-- { dg-options "-gnatws" }
3
4
procedure
Pack21
is
5
6
type
Enum
is
(
ZERO
,
ONE
,
TWO
,
THREE
,
FOUR
,
FIVE
,
SIX
,
7
SEVEN
,
EIGHT
,
NINE
,
TEN
,
ELEVEN
,
TWELVE
,
8
THIRTEEN
,
FOURTEEN
,
FIFTEEN
);
9
10
type
Rec1
is record
11
I1
:
INTEGER
range
0
..
800
;
12
I2
:
INTEGER
range
0
..
15
:=
0
;
13
E
:
Enum
;
14
end record
;
15
pragma
PACK
(
Rec1
);
16
17
type
Rec2
is record
18
F
:
Rec1
;
19
end record
;
20
21
for
Rec2
use record
22
F
at
0
range
2
..
19
;
23
end record
;
24
25
R1
,
R2
:
Rec2
;
26
27
begin
28
null
;
29
end
;