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

   1 import "Prelude"
   2
   3 main = do
   4   a1 = 1
   5   a2 = 1
   6   a3 = 1
   7   a4 = 1
   8   a5 = 1
   9   a6 = 1
  10   a7 = 1
  11   a8 = 1
  12   a9 = 1
  13   a10 = 1
  14   a11 = 1
  15   a12 = 1
  16   a13 = 1
  17   a14 = 1
  18   a15 = 1
  19   a16 = 1
  20   a17 = 1
  21   a18 = 1
  22   a19 = 1
  23   a20 = 1
  24   f x = x + a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 +
  25             a11 + a12 + a13 + a14 + a15 + a16 + a17 + a18 + a19 + a20
  26   f 10
  27 --
  28 30