Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
disp1.adb
blob: 2fcefeafb427c4b6c2f63ecd35d29bf0df39f688 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
with
Disp1_Pkg
;
use
Disp1_Pkg
;
procedure
Disp1
is
O
:
DT_I1
;
Ptr
:
access I1
'Class;
begin
Ptr := new I1'
Class
'(I1'
Class
(
O
));
end
;