From db464f35f5a10b58d9ed1085e0b462689adee583 Mon Sep 17 00:00:00 2001
From: Siddhesh Wani
Date: Mon, 25 May 2015 14:46:31 +0530
Subject: Original Version

---
 .../test600_SimpleFindDouble/launchConversion.sci       |  5 +++++
 .../scilabcode/mainfunction.sci                         | 17 +++++++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 tests/unit_tests/test600_SimpleFindDouble/launchConversion.sci
 create mode 100644 tests/unit_tests/test600_SimpleFindDouble/scilabcode/mainfunction.sci

(limited to 'tests/unit_tests/test600_SimpleFindDouble')

diff --git a/tests/unit_tests/test600_SimpleFindDouble/launchConversion.sci b/tests/unit_tests/test600_SimpleFindDouble/launchConversion.sci
new file mode 100644
index 00000000..41be0f04
--- /dev/null
+++ b/tests/unit_tests/test600_SimpleFindDouble/launchConversion.sci
@@ -0,0 +1,5 @@
+lines(0)
+clear all
+tmpPWD = pwd;
+
+scilab2c(pwd()+"/scilabcode/mainfunction.sci", pwd(), pwd()+"/scilabcode/");
diff --git a/tests/unit_tests/test600_SimpleFindDouble/scilabcode/mainfunction.sci b/tests/unit_tests/test600_SimpleFindDouble/scilabcode/mainfunction.sci
new file mode 100644
index 00000000..8455ac70
--- /dev/null
+++ b/tests/unit_tests/test600_SimpleFindDouble/scilabcode/mainfunction.sci
@@ -0,0 +1,17 @@
+//SCi0C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()
+
+s1 = [1 -3.56 4 -50.20 -7 -8 9 -3 4];
+disp('s1');
+disp(s1);
+
+i0 = find(s1<0.5);
+disp('i0');
+disp(i0);
+
+disp('s1(i0)');
+disp(s1(i0));
+
+endfunction
+
-- 
cgit