gcc/testsuite/gnat.dg/opt20_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12
13

package Opt20_Pkg is

   procedure Write_Str (S : String);

   type Fail_Proc is access procedure (S : String);

   procedure My_Fail (S : String);

   Fail : Fail_Proc := My_Fail'Access;

   function Get_Name_String (Id : Integer) return String;

end Opt20_Pkg;