suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix nesting.occ so it has a valid TLP signature.

Browse Source
This commit is contained in:
Adam Sampson 2008-05-15 12:23:44 +00:00
parent 0106e6bbb7
commit 04da66531f
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
testcases/nesting.occ
View File

@ -1,15 +1,18 @@
PROC outer (CHAN OF INT channel)
VAL INT constant IS 42:
INT count:
PROC inner1 ()
count := count + constant
PROC p ()
PROC outer (CHAN OF INT channel)
VAL INT constant IS 42:
INT count:
PROC inner1 ()
count := count + constant
:
PROC inner2 (VAL INT count)
SEQ i = 0 FOR constant
channel ! count + i
:
SEQ
count := 0
inner1 ()
inner2 (count)
:
PROC inner2 (VAL INT count)
SEQ i = 0 FOR constant
channel ! count + i
:
SEQ
count := 0
inner1 ()
inner2 (count)
SKIP
: