Mercurial > lcfOS

annotate python/tests/code1.ks @ 191:6b2bec5653f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added assembler testset
author Windel Bouwman
date Sun, 26 May 2013 15:28:07 +0200
parents 9e552d34bd60
children
rev   line source
108
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
1 module s;
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
2 var a, b, c:integer;
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
3
110
9e552d34bd60 Work on compiler
Windel Bouwman
parents: 108
diff changeset
4 procedure test(x:integer);
108
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
5 begin
110
9e552d34bd60 Work on compiler
Windel Bouwman
parents: 108
diff changeset
6 a := x * x + 1337;
9e552d34bd60 Work on compiler
Windel Bouwman
parents: 108
diff changeset
7 b := a * x
9e552d34bd60 Work on compiler
Windel Bouwman
parents: 108
diff changeset
8 end test;
108
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
9
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
10 begin
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
11 a := 4 + 6;
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
12 b := a + 2*a - 3;
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
13 c := a + b
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
14 end s.
8267ba1dbce3 Added testcode
Windel Bouwman
parents:
diff changeset
15