]> ocean-lang.org Git - ocean/blobdiff - csrc/oceani.mdc
oceani: fix up test program.
[ocean] / csrc / oceani.mdc
index 07606745a481a5b7ec174660a6a17e0c23086db0..97fa31173ea8e55cda1d852f667237723fa81cff 100644 (file)
@@ -3299,12 +3299,12 @@ Fibonacci, and performs a binary search for a number.
                /* If a variable is not used after the 'if', no
                 * merge happens, so types can be different
                 */
-               if A * 2 > B:
+               if A > B * 2:
                        double:string = "yes"
                        print A, "is more than twice", B, "?", double
                else:
-                       double := A*2
-                       print "double", A, "is only", double
+                       double := B*2
+                       print "double", B, "is", double
 
                a : number
                a = A;