RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/PL-I/create-a-two-dimensional-array-at-runtime-3.pli
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

10 lines
204 B
Text

/* Second way using a BEGIN block: */
get list (m, n);
begin;
declare A(m, n) float;
get list (A);
put skip list (A);
end;
/* The array is automatically destroyed when the block terminates. */