Tunnels

/usr/bin/ld.bfd: warning: output/link.res contains output sections; did you forget -T?

  const MAX_N = 100000 + 123;
  
  type tEdge = record  
    next , dest : LongInt;
  end;
  
  var E : array [ 1 .. MAX_N * 2 ] of tEdge;
      ee : LongInt = 0;
	  Link : array [ 1 .. MAX_N ] of LongInt;
 
  
  var InPower , OutPower : array [ 1 .. MAX_N ] of LongInt;
  
  procedure addEdge ( u , v : LongInt ) ;
  begin
    inc ( ee ) ;
	E[ee].dest := v;
	E[ee].next := Link[u];
	Link[u] := ee;
	inc ( OutPower[u] );
	inc ( InPower[v] );
  end;
  
  var N , M : LongInt;
  
  
  var Q : array [ 1 .. MAX_N ] of LongInt;
      qq : LongInt;
	  
  procedure Push ( v : LongInt ) ; 
  begin 
    inc ( qq ) ;
	Q[qq] := v;
  end;
  
  procedure DFS ( v, p: LongInt ) ;
    var tmp : LongInt;
  begin 
    //write ( v  , ' ' );
	if ( OutPower[v] = 0 ) then exit();
	
	if ( p <> -1 ) then
	begin
	  dec ( InPower[v] );
	  if ( InPower[v] = 0 ) then
	    Push ( v );
	end;
	
	tmp := Link[v];
	DFS ( E[tmp].dest , v );
	dec ( OutPower[v] );
	Link[v] := E [ Link[v] ].next;
	 
	
  end;
  
  
  var i : LongInt;
      a , b , ans : LongInt;
 
begin
  
  readLn ( N , M ) ;
  for i := 1 to M do
  begin
	readLn ( a , b ) ;
	addEdge ( a , b );
  end;
  
  for i := 1 to N do
  begin
	if ( InPower[i] = 0 ) then
	  Push ( i );
  end;
  
  ans := 0;
  
  i := 1;
  while ( i <= qq ) do
  begin
    while ( OutPower[ Q[i] ] > 0 ) do
	begin
	  DFS ( Q[i] , -1 );
	  //writeLn();
	  inc ( ans );
	end;
	inc ( i );
  end;
  
  writeln ( ans );
  
end.

Test 1

Group: 1

Verdict: ACCEPTED

Test 2

Group: 1

Verdict: ACCEPTED

Test 3

Group: 1

Verdict: ACCEPTED

Test 4

Group: 1

Verdict: ACCEPTED

Test 5

Group: 1

Verdict: ACCEPTED

Test 6

Group: 2

Verdict: ACCEPTED

Test 7

Group: 2

Verdict: ACCEPTED

Test 8

Group: 2

Verdict: ACCEPTED

Test 9

Group: 2

Verdict: ACCEPTED

Test 10

Group: 2

Verdict: ACCEPTED

Test 11

Group: 3

Verdict: ACCEPTED

Test 12

Group: 3

Verdict: ACCEPTED

Test 13

Group: 3

Verdict: ACCEPTED

Test 14

Group: 3

Verdict: ACCEPTED

Test 15

Group: 3

Verdict: ACCEPTED