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
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