tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/RepeatedVariableDefinitionBug.scl

   1 import "Prelude"
   2
   3 test1 :: ()
   4 test1 = do
   5   (problem, foo) = (1, 2)
   6   problem = 1
   7   (problem, bar) = (3, 4)
   8   ()
   9
  10 test2 :: ()
  11 test2 = do
  12   (problem, foo) = (1, 2)
  13   (problem, bar) = (3, 4)
  14   ()
  15
  16 main = ()
  17 --
  18 ()