aboutsummaryrefslogtreecommitdiff
path: root/check/main.p
diff options
context:
space:
mode:
authorTucker Evans <tuckerevans24@gmail.com>2019-10-09 01:01:57 -0400
committerTucker Evans <tuckerevans24@gmail.com>2019-10-09 01:01:57 -0400
commitdfd4c9b09885fef5dff326925cceae44e49455b0 (patch)
treed09bae8528a80c0ac509b683f548f07f0e1c8814 /check/main.p
parent64fbe9da1ab872b27b5f4dd3b46eb1a7b69d8245 (diff)
Update check files
Diffstat (limited to 'check/main.p')
-rw-r--r--check/main.p14
1 files changed, 9 insertions, 5 deletions
diff --git a/check/main.p b/check/main.p
index e9c7441..777c9da 100644
--- a/check/main.p
+++ b/check/main.p
@@ -12,7 +12,8 @@ program main ( input, output );
var test:integer;
begin
test := 2;
- a := 2
+ a := 2;
+ bar := 2.1
end;
procedure foo;
begin
@@ -23,11 +24,14 @@ program main ( input, output );
end;
function order (a, b, c: integer) : real;
begin
- a := 2
+ a := 2;
+ order := 2.1
+
end;
- function order2 (a, b, c, d, e: integer) : real;
+ function order2 (a, b, c, d, e: integer; f, g, h, i,j :real) : real;
begin
- a := 2
+ a := 2;
+ order2 := 2.1
end;
begin
{ TEST }
@@ -35,7 +39,7 @@ begin
a := 1;
x := 3.14;
x := order(a, b, c);
- x := order2(a, b, c, d, e);
+ x := order2(a, b, c, d, e, 1.0, 1.0, 1.0, 1.0, 1.0);
x := bar(a);
foo;
boo(a);