bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/DoubleConversion.scl

   1 import "Prelude"\r
   2 \r
   3 f :: Float\r
   4 f = 1.0\r
   5 \r
   6 d :: Double\r
   7 d = 1.0\r
   8 \r
   9 d2f :: Float\r
  10 d2f = fromDouble d\r
  11 \r
  12 f2d :: Double\r
  13 f2d = toDouble f\r
  14 \r
  15 main = show (d+f2d, f+d2f)\r
  16 --\r
  17 (2.0, 2.0)