summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/misaligned_param_pkg.adb
blob: 888ed18c3ae55bdac7a16d2bf27bfd3495aab22e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
package body Misaligned_Param_Pkg is

  type IP is access all Integer;

  function Channel_Eth (Kind : IP) return Integer;
  pragma Export (Ada, Channel_Eth, "channel_eth");

  function Channel_Eth (Kind : IP) return Integer is
  begin
    Kind.all := 111;
    return 0;
  end;

end Misaligned_Param_Pkg;