diagnose 16_800F

begin
   integer a, b

   a = 0
   b = 0

   routine incA
      a = 7
   end

   routine incB
      b = 9
   end

   incA
   incB
   write(a, 0);  newline
   write(b, 0);  newline
endofprogram