gcc/testsuite/gnat.dg/alignment10.adb

   1 -- { dg-do run }\r
   2 \r
   3 procedure Alignment10 is\r
   4 \r
   5    type Short_T is mod 2 ** 16;\r
   6    for Short_T'Size use 16;\r
   7    for Short_T'Alignment use 1;\r
   8 \r
   9    subtype Short_Sub_T is Short_T range 1000 .. 1005;\r
  10 \r
  11    A : aliased Short_T := 1000;\r
  12    B : Short_Sub_T;\r
  13    for B'Address use A'Address;\r
  14    pragma Import (Ada, B);\r
  15 \r
  16 begin\r
  17   if B /= 1000 then\r
  18     raise Program_Error;\r
  19   end if;\r
  20 end;\r