Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
test_ifaces.adb
blob: 5fca1371ed65139c06469b1d3b41d8b49107d80f [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
with
Ifaces
;
use
Ifaces
;
procedure test_ifaces
is
view2
:
access
Iface_2
'Class;
obj : aliased DT := (m_name => "Abdu");
begin
view2 := Iface_2'
Class
(
obj
)
'Access;
view2.all.op2;
end;