Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr48.adb
blob: 677f6ec67b126c0952f3b7c98ef86abddcd5f848 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Discr48_Pkg
;
use
Discr48_Pkg
;
function
Discr48
return
Rec_Access
is
C
:
constant
Rec
:=
(
Count
=>
1
,
Seps
=>
(
1
..
0
=>
Null_XString
));
begin
return
new
Rec
'(C);
end;