aus_sammelwut/paulchen/ublu/ss08/abgabe/gesamt/testcases/.svn/text-base/malandro07.3.svn-base

   1 (*esto si deberia de dar erro*)
   2 struct a1 a2 a3 end;
   3 struct b1 b2 b3 end;
   4
   5 func f(x,y)
   6  if x = y then
   7    return x;
   8  end;
   9
  10   var a:=0;
  11   var b := (y+8);
  12   var c := y.b2;
  13   if b = c then
  14     a:=x.c1;
  15   else
  16     a:=x.a2;
  17   end;
  18   return a;
  19   var d:=1;
  20   if d = a then
  21   a:=3;
  22   end;
  23   return a;
  24 end;
  25
  26 struct c1 c2  b3 end;