Import Upstream version 20180207

[hcoop/debian/mlton.git] / mlyacc / examples / pascal / test / t7.p

program p(input,otput);
begin
  for i := 1 to maxelements do
   y[i] := 0;
end.