RISC-V: Add support for riscv-*-*.

[official-gcc.git] / gcc / testsuite / gnat.dg / addr2_p.adb

with System;
package body addr2_p is
   procedure Process (Blk : Block) is
      use type System.Address;
   begin
      if Blk'Address /= B1'Address and then Blk'Address /= B2'Address then
         raise Program_Error;
      end if;
   end;
end;