codeb/codea_ag_adrixan_00.3

   1 struct a d end;
   2 method f(b c s)
   3         var t := 0;
   4         /* lesender feldzugriff */
   5         b := c*(s.a - 1);
   6         b := c*(s.d - 1);
   7         b := c*(t.a - 1);
   8         /* Zusatz zu lewurm_05.0: ungültig, da c keine Feldvariable ist */
   9         b := c*(t.c - 1);
  10 end;