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

   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 error t no visible*)
  12     var d:=1;
  13     if d = g then
  14     var t:=5;
  15     t:=x.a1;
  16     else
  17     d:=x.a2;
  18     end;
  19     return t;
  20
  21
  22 end;
  23
  24
  25 struct b1 b2 b3 end;
  26
  27 (*un comentario*)
  28
  29
  30 func f(x,y)
  31   var a:=1;
  32   a:=x.f1;
  33
  34   return a;
  35 end;
  36
  37 struct c1 c2 c3 end;
  38
  39 func f(z)
  40   var d:=1;
  41   d:=z.b2;
  42
  43
  44   return d;
  45 end;
  46
  47 struct f1 f2 d3 end;
  48
  49 func f(z)
  50   var d:=1;
  51   d:=z.b2;
  52
  53
  54   return d;
  55 end;
  56