Sign in
gnu
/
binutils-gdb
/
afa48399debfcfa568e71e5295416b80b1573c82
/
.
/
gdb
/
testsuite
/
gdb.ada
/
array_return
/
pck.adb
blob: 30282d1998c925ae51929203a7bb8b1345925e3b [
file
] [
log
] [
blame
]
package
body
Pck
is
function
Create_Small
return
Data_Small
is
begin
return
(
others
=>
1
);
end
Create_Small
;
function
Create_Large
return
Data_Large
is
begin
return
(
others
=>
2
);
end
Create_Large
;
end
Pck
;