gcc-4.9/gcc/testsuite/gnat.dg/opt12_pkg.adb


1
2
3
4
5
6
7
8

package body Opt12_Pkg is

   function Equal (L, R: Static_Integer_Subtype) return Boolean is
   begin
      return (L = R);
   end;

end Opt12_Pkg;