]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/DoubleConversion.scl
Automatic execution of SCL tests in Maven
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / DoubleConversion.scl
diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/DoubleConversion.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/DoubleConversion.scl
new file mode 100644 (file)
index 0000000..31e95ed
--- /dev/null
@@ -0,0 +1,17 @@
+import "Prelude"\r
+\r
+f :: Float\r
+f = 1.0\r
+\r
+d :: Double\r
+d = 1.0\r
+\r
+d2f :: Float\r
+d2f = fromDouble d\r
+\r
+f2d :: Double\r
+f2d = toDouble f\r
+\r
+main = show (d+f2d, f+d2f)\r
+--\r
+(2.0, 2.0)
\ No newline at end of file