diff options
Diffstat (limited to 'Testing/Semantic')
-rw-r--r-- | Testing/Semantic/t1-2.p | 2 | ||||
-rw-r--r-- | Testing/Semantic/t1-2a.p | 2 | ||||
-rw-r--r-- | Testing/Semantic/t5-4.p | 2 | ||||
-rw-r--r-- | Testing/Semantic/test-semantic.p | 4 |
4 files changed, 5 insertions, 5 deletions
diff --git a/Testing/Semantic/t1-2.p b/Testing/Semantic/t1-2.p index 62f2d94..a81cad2 100644 --- a/Testing/Semantic/t1-2.p +++ b/Testing/Semantic/t1-2.p @@ -4,7 +4,7 @@ program main( input, output ); procedure boo(a: integer); var b: real; begin - b := 1.23 + b := 1.23 end; begin boo(b) diff --git a/Testing/Semantic/t1-2a.p b/Testing/Semantic/t1-2a.p index 62f2d94..a81cad2 100644 --- a/Testing/Semantic/t1-2a.p +++ b/Testing/Semantic/t1-2a.p @@ -4,7 +4,7 @@ program main( input, output ); procedure boo(a: integer); var b: real; begin - b := 1.23 + b := 1.23 end; begin boo(b) diff --git a/Testing/Semantic/t5-4.p b/Testing/Semantic/t5-4.p index 840625a..a31211f 100644 --- a/Testing/Semantic/t5-4.p +++ b/Testing/Semantic/t5-4.p @@ -1,7 +1,7 @@ (* ERROR: function updating non-local variable *) program main( input, output ); var a: integer; - + function foo(b: integer): integer; begin foo := a; diff --git a/Testing/Semantic/test-semantic.p b/Testing/Semantic/test-semantic.p index 2cb9b8a..616b6b9 100644 --- a/Testing/Semantic/test-semantic.p +++ b/Testing/Semantic/test-semantic.p @@ -42,14 +42,14 @@ begin (* FUNCTION call check: recursive and correct arguments *) y := foo( x + foo( y, 0.001, a ) * 1, 2.3, b ); - + (* ARRAY access check: recursive, correct arguments *) y := c[ x + c[y] * 45 ]; (* FUNCTION call and ARRAY access *) y := foo( x + c[y + foo(c[1], d[2], a)] * 1, 2.3 + d[c[foo(c[3],b,d[y])]] ); - (* IF-THEN check *) + (* IF-THEN check *) if ( c[x] * 6 < 7 + moo( y ) and a > d[c[x]] ) then begin c[moo(foo(8,9.10,11.0)) + c[12]] := moo( c[y - 1] ) |