fork download
  1. procedure Test is
  2. type N is null record;
  3. type T is not null access protected function return
  4. not null access protected function return
  5. not null access protected function return
  6. not null access protected function return
  7. not null access protected function return
  8. not null access protected function return N;
  9. begin
  10. null;
  11. end Test;
Success #stdin #stdout 0s 17016KB
stdin
Standard input is empty
stdout
Standard output is empty