Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.3.1
/
gcc
/
testsuite
/
gnat.dg
/
generic_dispatch.adb
blob: a22e495f4511b46895963853c1692f3c276be7e1 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
with
generic_dispatch_p
;
use
generic_dispatch_p
;
procedure generic_dispatch
is
I
:
aliased
Integer
:=
0
;
D
:
Iface
'Class := Dispatching_Constructor (DT'
Tag
,
I
'access);
begin
null;
end generic_dispatch;