More pointer tests

BalaM314 · Nov 4, 2024 · c1a3080 · c1a3080
1 parent 7870246
commit c1a3080
Showing 1 changed file with 31 additions and 0 deletions.
diff --git a/spec/src/full.spec.ts b/spec/src/full.spec.ts
@@ -847,6 +847,37 @@ z <- y^
 OUTPUT z`,
 ["5"]
 ],
+write_to_pointer: [
+`TYPE pINTEGER = ^INTEGER
+DECLARE x: INTEGER
+DECLARE y: pINTEGER
+x <- 5
+y <- ^x
+y^ <- 6
+OUTPUT x`,
+["6"]
+],
+run_pointer_reference_dereference_complex: [
+`TYPE pINTEGER = ^INTEGER
+TYPE ppINTEGER = ^pINTEGER
+TYPE pppINTEGER = ^ppINTEGER
+DECLARE a, b: INTEGER
+DECLARE y: pINTEGER
+DECLARE z: ppINTEGER
+a <- 2
+b <- 3
+
+z <- ^^b
+OUTPUT z^^
+y <- ^a
+z <- ^y
+OUTPUT z^^
+z^ <- ^b
+OUTPUT z^^
+z^^ <- 4
+OUTPUT b`,
+["3", "2", "3", "4"]
+],
 //#endregion
 //#region record types
 record_type_blank: [