From 31ebf3501c23dcd9d9d4b2452e91b6da5623060d Mon Sep 17 00:00:00 2001
From: torset
Date: Thu, 19 Feb 2009 08:33:22 +0000
Subject: Add SCI2C test

---
 .../Mes_tests/type/mainfunctionReal_Imag.sci         | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 src/Scilab2C/SCI2CTests/Mes_tests/type/mainfunctionReal_Imag.sci

(limited to 'src/Scilab2C/SCI2CTests')

diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/type/mainfunctionReal_Imag.sci b/src/Scilab2C/SCI2CTests/Mes_tests/type/mainfunctionReal_Imag.sci
new file mode 100644
index 00000000..02b5c3a7
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/type/mainfunctionReal_Imag.sci
@@ -0,0 +1,20 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()
+
+disp(real(4));
+disp(imag(4));
+
+disp(real(1+2*%i));
+disp(imag(1+2*%i));
+
+a=[4 2 7 5;4 8 6 1];
+
+disp(real(a));
+disp(imag(a));
+
+b=a+%i*2*a
+disp(real(b));
+disp(imag(b));
+
+endfunction
-- 
cgit