aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/testcases/test1.3

   1 struct f1 f2 end;\r
   2 \r
   3 func f(p1)\r
   4   var fx:=p1;\r
   5   p1:=1;\r
   6   (* f1 not defined *)\r
   7   f1:=4;\r
   8   (* shoult throw one of\r
   9      - f1 not defined\r
  10      - field access not allowed (var fx exists)\r
  11      - field fx not defined\r
  12   *)\r
  13   f1.fx:=p1;\r
  14   p1.f1:=p1.f2;\r
  15   f(p1,p1.f2).f3:=0AFFEH;\r
  16   var f1:=3;\r
  17 end;\r
  18 \r
  19 struct f3 end;\r