examples/pataud/multilvl.log

   1 program M;\r
   2    (* example of multilevel iheritance *)\r
   3    var x: integer;\r
   4    unit A: class;\r
   5       var x: integer;\r
   6    begin\r
   7       x := 3;\r
   8       inner;\r
   9    end A;\r
  10 begin\r
  11    pref A block\r
  12      var y: integer, bb: B;\r
  13      unit B: class;\r
  14      begin\r
  15        x := y;\r
  16        writeln(x);\r
  17        inner;\r
  18      end B;\r
  19    begin\r
  20      y := 2;\r
  21      bb := new B;\r
  22      pref A block\r
  23        var y: integer, cc: C;\r
  24        unit C: B class;\r
  25        begin\r
  26          y := x;\r
  27          writeln(y);\r
  28          inner;\r
  29        end C;\r
  30      begin\r
  31        y := 4;\r
  32        cc := new C;\r
  33      end\r
  34    end;\r
  35    writeln(x);\r
  36 end program;\r
  37