Require target lra in gcc.dg/pr108095.c
[official-gcc.git] / gcc / testsuite / gnat.dg / addr7.adb
blob982b50e3a1acec269f4fd37fff781b48a05a459c
1 -- { dg-do compile }
3 package body Addr7 is
5 procedure Proc (B: aliased Bytes) is
6 O: Integer;
7 for O'Address use B'Address;
8 begin
9 null;
10 end;
12 end Addr7;