RosettaCodeData/Task/Memory-allocation/Ada/memory-allocation-4.ada

package P is
   X : Integer; -- Allocated in the result the package elaboration
end P;