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

   1 (*esto deberia de dar erro*)
   2 struct a1 a2 a3 end;
   3
   4 func f(x,y)
   5   var d:=1;
   6
   7   var c:=1;
   8   d:=x.a2;
   9   return d;
  10
  11 (*esto deberia de dar erro g no esta definida*)
  12     var d:=1;
  13     if d = g then
  14     d:=x.a1;
  15     else
  16     d:=x.a2;
  17     end;
  18     return d;
  19
  20
  21 end;
  22
  23
  24 struct b1 b2 b3 end;
  25
  26 (*un comentario*)
  27
  28
  29 func f(x,y)
  30   var a:=1;
  31   a:=x.f1;
  32
  33   return a;
  34 end;
  35
  36 struct c1 c2 c3 end;
  37
  38 func f(z)
  39   var d:=1;
  40   d:=z.b2;
  41
  42
  43   return d;
  44 end;
  45
  46 struct f1 f2 d3 end;
  47
  48 func f(z)
  49   var d:=1;
  50   d:=z.b2;
  51
  52
  53   return d;
  54 end;
  55