blob: 96ed883bfab5f16a361d57ec85e7c220e9ac27ea [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-O2" }
package body Thunk2 is
overriding function Element (Self : Ext; Name : String) return Ext is
begin
return Self;
end;
end Thunk2;