gcc/testsuite/gnat.dg/opt12_pkg.ads

   1 package Opt12_Pkg is
   2
   3    type Static_Integer_Subtype is range -32_000 .. 32_000;
   4
   5    function Equal (L, R: Static_Integer_Subtype) return Boolean;
   6
   7    type My_Fixed is delta 0.1 range -5.0 .. 5.0;
   8
   9    Fix_Half : My_Fixed := 0.5;
  10
  11 end Opt12_Pkg;