From 3c8f79b2e86a008d07509d215967145252046f0b Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Fri, 27 Apr 2007 16:18:18 +0000
Subject: [PATCH] Add a testcase for pulling up expressions in IF

---
 fco2/testcases/reprep.occ | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 fco2/testcases/reprep.occ

diff --git a/fco2/testcases/reprep.occ b/fco2/testcases/reprep.occ
new file mode 100644
index 0000000..ee3dd67
--- /dev/null
+++ b/fco2/testcases/reprep.occ
@@ -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 ()
+:
+