gcc/testsuite/gnat.dg/opt103.ads

   1 package Opt103 is
   2
   3   type Mode is (Stop, Forward, Backward, Up, Down);
   4
   5   function Get return String;
   6   pragma Import (Ada, Get);
   7
   8   function Read return Mode;
   9
  10   function Translate (S : String) return Mode;
  11
  12 end Opt103;