diff options
Diffstat (limited to 'ecomp-c/test1.e')
-rw-r--r-- | ecomp-c/test1.e | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/ecomp-c/test1.e b/ecomp-c/test1.e index 49418db..59ec90a 100644 --- a/ecomp-c/test1.e +++ b/ecomp-c/test1.e @@ -32,17 +32,28 @@ var s2 : array 10 of character := "hello"; a1 : array 10 of integer; -procedure B; +procedure B( n : integer, m : integer ); procedure A; +const + N : integer = 10; + S : array N of character = "local"; +var + s : array N of character := S; + begin a1[5] := 43; - B; + s[0] := 'L'; + B( a1[5], 7 ); end -procedure B; +procedure B( n : integer, m : integer ); +var + x : integer; + begin - a1[4] := 44; + x := n + m; + a1[4] := x; end begin |