summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/opt12_pkg.adb
blob: 646c8734c70fe4e0a982331ba77c83e9e1002165 (plain)
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;