gcc/testsuite/gnat.dg/opt64_pkg.adb


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

package body Opt64_PKG is
   
   procedure Encode (X : Integer) is
      result : Hash;
   begin
      case X is
         when 1 => result := "1";
         when 2 => result := "2";
         when 3 => result := "3";
         when others => Result := "?";
      end case;     
      Last_Hash := Result;
   end;
end;