From 9b2f6b9e2b137b140adca9096dc52f853f39bf60 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sun, 9 Mar 2008 19:23:46 +0000 Subject: [PATCH] Updated a couple of the retypes-sizes tests for the backend --- backends/GenerateCTest.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/backends/GenerateCTest.hs b/backends/GenerateCTest.hs index 7214a00..bf6f5aa 100644 --- a/backends/GenerateCTest.hs +++ b/backends/GenerateCTest.hs @@ -712,10 +712,10 @@ testRetypeSizes = TestList ,test 4 "if(occam_check_retype(#S,#D,#M)!=1){@}" (A.Array [A.Dimension 2,A.Dimension 3,A.Dimension 4] A.Int) (A.Array [A.UnknownDimension] A.Byte) - -- Array types with a free dimension should also act like the free type: - ,test 100 "if(occam_check_retype(#S,#D,#M)!=1){@}" + -- Array types with a free dimension should not check the return: + ,test 100 "occam_check_retype(#S,#D,#M);" (A.Array [A.UnknownDimension] A.Int) (A.Array [A.Dimension 8] A.Byte) - ,test 101 "if(occam_check_retype(#S,#D,#M)!=1){@}" + ,test 101 "occam_check_retype(#S,#D,#M);" (A.Array [A.Dimension 2,A.UnknownDimension,A.Dimension 4] A.Int) (A.Array [A.UnknownDimension] A.Byte) ] where