gcc/testsuite/gnat.dg/modular3_pkg.ads

   1 package Modular3_Pkg is
   2
   3    type Int16_T is range -32768 .. 32767;
   4    for Int16_T'Size use 16;
   5    for Int16_T'Alignment use 1;
   6
   7    type Mod16_T is mod 2 ** 16;
   8    for Mod16_T'Size use 16;
   9    for Mod16_T'Alignment use 1;
  10
  11 end Modular3_Pkg;