bug0017.pp 336 B

123456789101112131415161718192021222324252627
  1. procedure init;
  2. var
  3. endofparas : boolean;
  4. procedure getparastring;
  5. procedure nextopt;
  6. begin
  7. getparastring;
  8. init;
  9. endofparas:=false;
  10. end;
  11. begin
  12. nextopt;
  13. end;
  14. begin
  15. getparastring;
  16. end;
  17. begin
  18. init;
  19. end.