diff options
| author | Andreas Baumann <mail@andreasbaumann.cc> | 2020-06-07 20:07:44 +0200 |
|---|---|---|
| committer | Andreas Baumann <mail@andreasbaumann.cc> | 2020-06-07 20:07:44 +0200 |
| commit | 4be5f1a89e1368c9a4c98eeb2c05f5b3f06714a5 (patch) | |
| tree | 1afec2c9440a47eef2c499699a1498b3afd97c74 /ecomp-c/test1.e | |
| parent | 9f8d1f2820ebd707004b3e404f125d4a6abf2281 (diff) | |
| download | compilertests-4be5f1a89e1368c9a4c98eeb2c05f5b3f06714a5.tar.gz compilertests-4be5f1a89e1368c9a4c98eeb2c05f5b3f06714a5.tar.bz2 | |
work on array dereference
Diffstat (limited to 'ecomp-c/test1.e')
| -rw-r--r-- | ecomp-c/test1.e | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ecomp-c/test1.e b/ecomp-c/test1.e index 49d7adb..83090ec 100644 --- a/ecomp-c/test1.e +++ b/ecomp-c/test1.e @@ -29,6 +29,7 @@ var j : character := C; s : array 10 of character := S; s2 : array 10 of character := "hello"; + a1 : array 10 of integer; begin a := 1; @@ -59,4 +60,7 @@ begin end; j := 'B'; + a1[0] := 'c'; + s[0] := 'H'; + j := s2[1]; end |