gcc/testsuite/gnat.dg/opt91.ads

   1 with Opt91_Pkg; use Opt91_Pkg;
   2
   3 package Opt91 is
   4
   5    type True_Relation_Rec is null record;
   6    function Custom_Image (Self : True_Relation_Rec) return String;
   7
   8    package True_Relation is new Pure_Relation (Ty => True_Relation_Rec);
   9
  10 end Opt91;