diff options
| author | Andreas Baumann <mail@andreasbaumann.cc> | 2020-05-23 20:36:24 +0200 |
|---|---|---|
| committer | Andreas Baumann <mail@andreasbaumann.cc> | 2020-05-23 20:36:24 +0200 |
| commit | 58a041e920116d7f06100a588172b4719e32a40b (patch) | |
| tree | 64ace16ad16e3261699e735480153f06c0fae8d8 /ecomp-c/test1.e | |
| parent | b35ee46072e2a98de06d722ad8db33306e95944c (diff) | |
| download | compilertests-58a041e920116d7f06100a588172b4719e32a40b.tar.gz compilertests-58a041e920116d7f06100a588172b4719e32a40b.tar.bz2 | |
added character type
multi-typed values for constants and variables (all symbols)
adapted tests to better output of debug code in assembly
Diffstat (limited to 'ecomp-c/test1.e')
| -rw-r--r-- | ecomp-c/test1.e | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ecomp-c/test1.e b/ecomp-c/test1.e index 28d2516..5648c9f 100644 --- a/ecomp-c/test1.e +++ b/ecomp-c/test1.e @@ -8,6 +8,7 @@ const // integer constant N, M : integer = 20; O : integer = N; + C : character = 'a'; // boolean constant INIT_STATE : boolean = true; @@ -22,7 +23,7 @@ var d, e, f : integer; flag : boolean; i : integer; - j : char; + j : character := C; begin a := 1; @@ -51,4 +52,6 @@ begin while ( i < 10 ) and not flag do i := i + 1; end; + + j := 'b'; end |