Sign in
gnu
/
binutils-gdb
/
4f4b689b074eb19485e6cd303c537bc7243448a4
/
.
/
gdb
/
testsuite
/
gdb.ada
/
array_return
/
p.adb
blob: c465d2894b435b3596e5bd9fd1bb5ed5fa78422a [
file
] [
log
] [
blame
]
with
Pck
;
use
Pck
;
procedure P
is
Small
:
Data_Small
;
Large
:
Data_Large
;
begin
Small
:=
Create_Small
;
Large
:=
Create_Large
;
Small
(
1
)
:=
Large
(
1
);
end
P
;