Paar Feldzugriffsbeispiele

[testub10.git] / ag / snafu_12.0

diff --git a/ag/snafu_12.0 b/ag/snafu_12.0
new file mode 100644 (file)
index 0000000..72d7f98
--- /dev/null
+++ b/ag/snafu_12.0
@@ -0,0 +1,9 @@
+struct g1 g2 g3 g4 end;
+struct g5 g6 end;
+
+method foo(p1 p2 p3)
+       var l1 := 0;
+       var l2 := g6;
+
+       (not g2).g3.g6:= 0x900d; /* ok */
+end;