Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
lto7.adb
blob: cb81495a9b1f3fbfd3f0ac52a3db3ea838b04ca8 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-flto"
{
target lto
}
}
with
Lto7_Pkg
;
use
Lto7_Pkg
;
procedure
Lto7
is
view2
:
access
Iface_2
'Class;
obj : aliased DT := (m_name => "Abdu");
begin
view2 := Iface_2'
Class
(
obj
)
'Access;
view2.all.op2;
end;