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

   1 (*esto deberia de dar erro*)
   2 struct a1 a2 a3 a4 end;
   3
   4 func f(a1,a2)
   5
   6   var a3:=1;
   7   var a4:=1;
   8   a4:=a2.a2;
   9   return a1;
  10
  11 (*esto deberia de dar error t no visible*)
  12     if a1 = a3 then
  13     a4:=a1.a1;
  14     else
  15     a4:=a2.a2;
  16     end;
  17     return a4;
  18
  19
  20 end;
  21
  22
  23