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;