repo.or.cz
/
official-gcc
/
graphite-test-results.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merge from mainline (165734:167278).
[official-gcc/graphite-test-results.git]
/
gcc
/
testsuite
/
gnat.dg
/
aggr11_pkg.ads
blob
37008605a30e0a2185a65690c740e22886ba91b2
1
package
Aggr11_Pkg
is
2
3
type
Error_Type
is
(
No_Error
,
Error
);
4
5
type
Rec
(
Kind
:
Error_Type
:=
No_Error
)
is record
6
case
Kind
is
7
when
Error
=>
null
;
8
when others
=>
B
:
Boolean
;
9
end case
;
10
end record
;
11
12
type
Arr
is array
(
1
.
.6
)
of
Rec
;
13
14
end
Aggr11_Pkg
;