fork download
copy 
  1. Type PData = ^TData;
  2.      TData = Array of Integer;
  3.  
  4. Var Pnt: PData;
  5.  
  6. Procedure TryToAssign;
  7. Begin
  8.  Pnt^[1] := 20;
  9. End;
  10.  
  11. Procedure SetPointer(var X: Array of Integer);
  12. Begin
  13.  Pnt := @X;
  14. End;
  15.  
  16. Var Tab: Array[0..9] of Array[0..1024] of Integer;
  17. Begin
  18.  Tab[2, 1] := 1024;
  19.  
  20.  Writeln(Tab[2, 1]);
  21.  
  22.  SetPointer(Tab[2]);
  23.  TryToAssign;
  24.  
  25.  Writeln(Tab[2, 1]);
  26.  
  27.  Readln;
  28. End.
Runtime error #stdin #stdout 0s 252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1024
Runtime error 216 at $080480AA
  $080480AA
  $08048136
  $08063753
https://ideone.com/z0ldpQ
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
secret

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!