|
Last change
on this file was b7f8cadb, checked in by Peter A. Buhr <pabuhr@…>, 4 months ago |
|
add directory for non-CFA test programs
|
-
Property mode
set to
100644
|
|
File size:
368 bytes
|
| Line | |
|---|
| 1 | program test(Output);
|
|---|
| 2 | type AT = array[0..4] of Integer;
|
|---|
| 3 | type MT = array[0..4] of AT;
|
|---|
| 4 | var a : AT;
|
|---|
| 5 | var m : MT; (* array of array *)
|
|---|
| 6 | var aa : array[0..4] of Integer;
|
|---|
| 7 | var am : array[0..4, 0..4] of Integer;
|
|---|
| 8 | begin
|
|---|
| 9 | a[3] := 1;
|
|---|
| 10 | m[3][3] := 1;
|
|---|
| 11 | aa[3] := 1;
|
|---|
| 12 | am[3][3] := 1
|
|---|
| 13 | end.
|
|---|
| 14 |
|
|---|
| 15 | (* Local Variables: *)
|
|---|
| 16 | (* tab-width: 4 *)
|
|---|
| 17 | (* compile-command: "fpc arrays.pas" *)
|
|---|
| 18 | (* End: *)
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
