Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gnat.dg
/
dispatch1.adb
blob: 28e97e6e7e70aa13f2bd48ecbab0eaf80c13c1de [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
with
dispatch1_p
;
use
dispatch1_p
;
procedure dispatch1
is
O
:
DT_I1
;
Ptr
:
access I1
'Class;
begin
Ptr := new I1'
Class
'(I1'
Class
(
O
));
end
;