]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/GlobalVariables.scl
Code Review / simantics / platform.git / blob
? search:
summary | shortlog | log | commit | commitdiff | review | tree
history | raw | HEAD
Merge commit 'ffdf837'
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / GlobalVariables.scl
1 import "Prelude"
2
3 global :: Ref Integer
4 global = ref 0
5
6 inc :: <Proc> ()
7 inc = global := getRef global + 1
8
9 main = do
10     inc
11     inc
12     getRef global
13 --
14 2
Simantics Platform SDK.