fork(1) download
copy 
  1. program ideone;
  2. {$mode objfpc}
  3.  
  4. function A:PAnsiString;
  5. var S:String;
  6. begin
  7.   S:='Ala ';
  8.   Result:=@S;
  9. end;
  10.  
  11. function B:PAnsiString;
  12. var S:String;
  13. begin
  14.   S:='ma ';
  15.   Result:=@S;
  16. end;
  17.  
  18. function C:PAnsiString;
  19. var S:String;
  20. begin
  21.   S:='kota.';
  22.   Result:=@S;
  23. end;
  24.  
  25. begin
  26.   WriteLn(A()^+B()^+C()^);
  27. end.
Runtime error #stdin #stdout 0s 296KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Runtime error 216 at $0804FE07
  $0804FE07
  $BFD121A4
https://ideone.com/i4NPyA
language:
Pascal (fpc 3.0.4)
created:
10 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!