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

6 lines
82 B
Ada

declare
X : Integer; -- Allocated on the stack
begin
...
end; -- X is freed