blob: b0132f82d09d9bfd7e37d4e7186bcbd995da0af7 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-O2 -fchecking=1" }
package body Opt91 is
function Custom_Image (Self : True_Relation_Rec) return String is
begin
return "<True>";
end;
end Opt91;