aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/testcases/.svn/text-base/malandro03.3.svn-base

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