From dd14f6b62ac445e0a5859b7980b1582008674bda Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sun, 9 Mar 2008 16:57:38 +0000
Subject: [PATCH] Fixed one of the tests for declareSizesArray that had not
 been updated

---
 backends/BackendPassesTest.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/backends/BackendPassesTest.hs b/backends/BackendPassesTest.hs
index c90ce41..b76516d 100644
--- a/backends/BackendPassesTest.hs
+++ b/backends/BackendPassesTest.hs
@@ -239,7 +239,10 @@ qcTestDeclareSizes =
         ,specSizes, defSrc)
       where
         specSizes = A.Is emptyMeta A.ValAbbrev (A.Array [A.Dimension $ length destDims] A.Int) $
-          A.SubscriptedVariable emptyMeta (A.SubscriptFrom emptyMeta (intLiteral $ toInteger $ length srcDims - length destDims)) (variable "src_sizes")
+          A.SubscriptedVariable emptyMeta (A.SubscriptFromFor emptyMeta
+            (intLiteral $ toInteger $ length srcDims - length destDims)
+            (intLiteral $ toInteger $ length destDims)
+            ) (variable "src_sizes")
         defSrc = do defineTestName "src" (A.Declaration emptyMeta (A.Array srcDims A.Byte)) A.Original
                     defineTestName "src_sizes" (A.IsExpr emptyMeta A.ValAbbrev (A.Array srcDims A.Byte) dummyExpr) A.ValAbbrev
         dummyExpr = A.True emptyMeta