fork download 
  1. {$J-}
  2. type
  3.   Rooster = record
  4.    id: integer;
  5.   end;
  6.   RoosterArray = array[0..2] of Rooster;
  7.  
  8. procedure asshole(const roosters: array of Rooster);
  9.   var
  10.     r: ^RoosterArray;
  11.     i: integer;
  12.   begin
  13.     r := @roosters;
  14.     for i := 0 to 2 do r^[i].id := i + 1
  15.   end;
  16.  
  17. const
  18.   roosters: RoosterArray = ((id: 0), (id: 0), (id: 0));
  19. var
  20.   i: integer;
  21. begin
  22.   asshole(roosters);
  23.   for i := 0 to 2 do Writeln(roosters[i].id)
  24. end.
  25.  
Success #stdin #stdout 0s 4380KB
comments (?)
stdin 
Standard input is empty
stdout 
1
2
3
https://ideone.com/pvoMYf
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!