gcc/testsuite/gnat.dg/misaligned_param_pkg.adb

   1 package body Misaligned_Param_Pkg is
   2
   3   type IP is access all Integer;
   4
   5   function Channel_Eth (Kind : IP) return Integer;
   6   pragma Export (Ada, Channel_Eth, "channel_eth");
   7
   8   function Channel_Eth (Kind : IP) return Integer is
   9   begin
  10     Kind.all := 111;
  11     return 0;
  12   end;
  13
  14 end Misaligned_Param_Pkg;