lama_byterun/regression/test040.expr

local x;

fun f (x) {
  case x of
    A -> write (1)
  | B -> write (2)
  | C -> write (3)
  | _  -> write (4)
  esac
}

x := read ();

f (A);
f (B);
f (C);
f (D)
Generalized state 2019-09-29 02:47:07 +03:00			`local x;`
Global definitions; regression tests fixed 2019-09-19 18:37:08 +03:00
Pattern matching in X86 2018-05-16 16:50:36 +03:00			`fun f (x) {`
			`case x of`
Constructors capitalized 2019-03-07 19:06:04 +03:00			`A -> write (1)`
			`\| B -> write (2)`
			`\| C -> write (3)`
Pattern matching in X86 2018-05-16 16:50:36 +03:00			`\| _ -> write (4)`
			`esac`
			`}`

			`x := read ();`

Constructors capitalized 2019-03-07 19:06:04 +03:00			`f (A);`
			`f (B);`
			`f (C);`
			`f (D)`