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

Add a testcase for pulling up expressions in IF

Browse Source
This commit is contained in:
Adam Sampson 2007-04-27 16:18:18 +00:00
parent d976dedfae
commit 3c8f79b2e8
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fco2/testcases/reprep.occ Normal file
View File

@ -0,0 +1,18 @@
-- This is from cgtest04.
PROC IU50 ()
VAL m IS 10 :
VAL n IS 15 :
[n] [m] INT a, b :
SEQ
IF
IF x = 0 FOR n
IF y = 0 FOR m
a [x] [y] <> b [x] [y]
SKIP
:
PROC P ()
IU50 ()
: