Paar Feldzugriffsbeispiele

[testub10.git] / ag / snafu_08.0

diff --git a/ag/snafu_08.0 b/ag/snafu_08.0
new file mode 100644 (file)
index 0000000..5db9f8e
--- /dev/null
+++ b/ag/snafu_08.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;
+
+       l1.g5.g4 := 0x900d; /* ok */
+end;