[arrayfire] 28/61: TEST: Adding test for GFOR assign bug

[Ghislain Vaillant]

This is an automated email from the git hooks/post-receive script.

ghisvail-guest pushed a commit to branch dfsg-clean
in repository arrayfire.

commit d7b9f9a35d0b8375db5b29b027f65a4b365e4763
Author: Pavan Yalamanchili <pavan at arrayfire.com>
Date:   Mon Nov 30 15:14:40 2015 -0500

    TEST: Adding test for GFOR assign bug
---
 test/gfor.cpp | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/test/gfor.cpp b/test/gfor.cpp
index adf936b..3aa1d14 100644
--- a/test/gfor.cpp
+++ b/test/gfor.cpp
@@ -468,3 +468,37 @@ TEST(BatchFunc, 4D_2_3)
 
     gforSet(false);
 }
+
+TEST(ASSIGN, ISSUE_1127)
+{
+    using namespace af;
+    array orig = randu(512, 768, 3);
+    array vert = randu(512, 768, 3);
+    array horiz = randu(512, 768, 3);
+    array diag = randu(512, 768, 3);
+
+    array out0 = constant(0, orig.dims(0) * 2, orig.dims(1) * 2, orig.dims(2));
+    array out1 = constant(0, orig.dims(0) * 2, orig.dims(1) * 2, orig.dims(2));
+    int rows = out0.dims(0), cols = out0.dims(1);
+
+    gfor(seq chan, 3) {
+        out0(seq(0,rows-1,2), seq(0,cols-1,2), chan) = orig(span,span,chan);
+        out0(seq(1,rows-1,2), seq(0,cols-1,2), chan) = vert(span,span,chan);
+        out0(seq(0,rows-1,2), seq(1,cols-1,2), chan) = horiz(span,span,chan);
+        out0(seq(1,rows-1,2), seq(1,cols-1,2), chan) = diag(span,span,chan);
+    }
+    out1(seq(0,rows-1,2), seq(0,cols-1,2), span) = orig;
+    out1(seq(1,rows-1,2), seq(0,cols-1,2), span) = vert;
+    out1(seq(0,rows-1,2), seq(1,cols-1,2), span) = horiz;
+    out1(seq(1,rows-1,2), seq(1,cols-1,2), span) = diag;
+
+    std::vector<float> hout0(out0.elements());
+    std::vector<float> hout1(out1.elements());
+
+    out0.host(&hout0[0]);
+    out1.host(&hout1[0]);
+
+    for (int i = 0; i < out0.elements(); i++) {
+        ASSERT_EQ(hout0[i], hout1[i]);
+    }
+}

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/arrayfire.git