fork download 
  1. var a: integer;
  2.  
  3. procedure sub1;
  4.     var a: integer = 0;
  5.     procedure sub2;
  6.         var a: integer;
  7.         begin
  8.             Writeln(a); //1    
  9.         end;
  10.  
  11.     begin
  12.       Writeln(a); //undefined
  13.       if a=0 then
  14.           a := 1
  15.       else
  16.           a := 2;
  17.       sub2;
  18.     end;
  19.  
  20.  
  21. begin
  22.     if a=0 then
  23.         a := 1
  24.     else
  25.         a := 2;
  26.     sub1;
  27. end.
  28.  
Success #stdin #stdout 0s 4500KB
comments (?)
stdin 
Standard input is empty
stdout 
0
-10168
https://ideone.com/EDMStp
language:
Pascal (fpc 3.0.4)
created:
7 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!