gcc/testsuite/gnat.dg/modular3_pkg.ads


1
2
3
4
5
6
7
8
9
10
11

package Modular3_Pkg is

   type Int16_T is range -32768 .. 32767;
   for Int16_T'Size use 16;
   for Int16_T'Alignment use 1;

   type Mod16_T is mod 2 ** 16;
   for Mod16_T'Size use 16;
   for Mod16_T'Alignment use 1;

end Modular3_Pkg;