fork download 
  1. type
  2.   Rooster = record
  3.    id: integer;
  4.   end;
  5.   RoosterArray = array[0..2] of Rooster;
  6.  
  7. procedure asshole(const roosters: array of Rooster);
  8.   var
  9.     r: ^RoosterArray;
  10.     i: integer;
  11.   begin
  12.     r := @roosters;
  13.     for i := 0 to 2 do r^[i].id := i + 1
  14.   end;
  15.  
  16. var
  17.   roosters: RoosterArray;
  18.   i: integer;
  19. begin
  20.   for i := 0 to 2 do roosters[i].id := 0;
  21.   asshole(roosters);
  22.   for i := 0 to 2 do Writeln(roosters[i].id)
  23. end.
  24.  
Success #stdin #stdout 0s 4392KB
comments (?)
stdin 
Standard input is empty
stdout 
1
2
3
https://ideone.com/SWpK67
language:
Pascal (fpc 3.0.4)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!