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

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

-- { dg-do compile }

package body Volatile13 is

   procedure Compute_Index_Map (Self : Shared_String) is
      Map : Index_Map_Access := Self.Index_Map;
   begin
      Map := new Index_Map (Self.Length);
   end;

end Volatile13;