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
Fix internal error on function call returning extension of limited interface
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
lto24_pkg1.ads
blob
abe7e9117872fbb291a0c1e5f2fa9adf2c72a9e0
1
with
Lto24_Pkg2
;
2
3
package
Lto24_Pkg1
is
4
5
Max_Elem
:
constant
Natural
:=
Lto24_Pkg2
.
Get
;
6
7
type
Arr
is array
(
Natural
range
<>)
of
Boolean
;
8
9
type
Rec
(
B
:
Boolean
)
is record
10
I
:
Integer
;
11
case
B
is
12
when
True
=>
A
:
Arr
(
1
..
Max_Elem
);
13
when
False
=>
Empty
:
Boolean
;
14
end case
;
15
end record
;
16
17
end
Lto24_Pkg1
;