gcc/testsuite/gnat.dg/opt28_pkg.ads

   1 package Opt28_Pkg is
   2
   3   type Posix_String is array (Positive range <>) of aliased Character;
   4
   5   function To_Posix (Str : String) return Posix_String;
   6   function To_String (Str : Posix_String) return String;
   7   function Is_File (Str : Posix_String) return Boolean;
   8   function Value_Of (Name : Posix_String) return Posix_String;
   9   function Position (In_Line : String) return Natural;
  10
  11 end Opt28_Pkg;