1-- { dg-do compile }
2
3package body Volatile13 is
4
5   procedure Compute_Index_Map (Self : Shared_String) is
6      Map : Index_Map_Access := Self.Index_Map;
7   begin
8      Map := new Index_Map (Self.Length);
9   end;
10
11end Volatile13;
12