gcc/testsuite/gnat.dg/opt20_pkg.ads

   1 package Opt20_Pkg is
   2
   3    procedure Write_Str (S : String);
   4
   5    type Fail_Proc is access procedure (S : String);
   6
   7    procedure My_Fail (S : String);
   8
   9    Fail : Fail_Proc := My_Fail'Access;
  10
  11    function Get_Name_String (Id : Integer) return String;
  12
  13 end Opt20_Pkg;