diff options
author | Tucker Evans <tuckerevans24@gmail.com> | 2019-09-12 20:00:18 -0400 |
---|---|---|
committer | Tucker Evans <tuckerevans24@gmail.com> | 2019-09-12 20:00:18 -0400 |
commit | 7698efc6e34037c3b6ba2968e77c4e33df4b484e (patch) | |
tree | b4e5e240c15a9942e6aacd0d9757bc7ce5db0729 /check/args.p | |
parent | bb9070ca0d79d2314c25b83e4496f43488446734 (diff) | |
parent | d8f19b2f532d0a0d7131c1141ca481fa2d08b946 (diff) |
Merge branch 'master' into mem-management
Diffstat (limited to 'check/args.p')
-rw-r--r-- | check/args.p | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/check/args.p b/check/args.p new file mode 100644 index 0000000..358dc7c --- /dev/null +++ b/check/args.p @@ -0,0 +1,45 @@ +program main ( input, output ); + + var a, b: integer; + var x,y,z: real; + var ai :array [1..10] of integer; + + function bar (a, b: integer) : real; + var test:integer; + begin + test := 2; + a := 2 + end; + function bar1 (a, b: real) : real; + var test:integer; + begin + test := 2; + a := 2.0 + end; + function bar2 (a: real) : real; + var test:integer; + begin + test := 2; + a := 2.0 + end; + function bar3 (a, b, c, d, e, f, g: integer) : real; + var test:integer; + begin + test := 2; + a := 2 + end; + function bar4 (a, b, c, d: real; e, f, g: integer) : real; + var test:integer; + begin + test := 2; + a := 2.0; + e := 2 + end; +begin +{ TEST } + + a := 1; + x := 3.14; + b := a + 35 + (* test *) +end. |