gcc/testsuite/gnat.dg/volatile13.adb

   1 -- { dg-do compile }
   2
   3 package 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
  11 end Volatile13;