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
PR ipa/83051
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
discr48.adb
blob
677f6ec67b126c0952f3b7c98ef86abddcd5f848
1
-- { dg-do compile }
2
3
with
Discr48_Pkg
;
use
Discr48_Pkg
;
4
5
function
Discr48
return
Rec_Access
is
6
C
:
constant
Rec
:= (
Count
=>
1
,
Seps
=> (
1
..
0
=>
Null_XString
));
7
begin
8
return new
Rec
'(C);
9
end;