From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.66.191.132 with SMTP id gy4mr2375872pac.19.1372290303770;
 Wed, 26 Jun 2013 16:45:03 -0700 (PDT)
X-Received: by 10.50.2.34 with SMTP id 2mr334524igr.8.1372290303280; Wed, 26
 Jun 2013 16:45:03 -0700 (PDT)
Path: 
 border1.nntp.ams3.giganews.com!border1.nntp.ams2.giganews.com!border3.nntp.ams.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!de-l.enfer-du-nord.net!feeder1.enfer-du-nord.net!cs.uu.nl!news0.firedrake.org!usenet-its.stanford.edu!usenet.stanford.edu!ko2no42879075pbb.0!news-out.google.com!b2ni38703pby.1!nntp.google.com!j2no2772611qak.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 26 Jun 2013 16:45:02 -0700 (PDT)
In-Reply-To: <kqfrrv$lsb$1@news2.open-news-network.org>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=69.20.190.126;
 posting-account=lJ3JNwoAAAAQfH3VV9vttJLkThaxtTfC
NNTP-Posting-Host: 69.20.190.126
References: <kqfrrv$lsb$1@news2.open-news-network.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ab1bb922-96ca-45f6-8cf3-9d029ca8f5a3@googlegroups.com>
Subject: Re: "accessibility check failed" on Node
From: Shark8 <onewingedshark@gmail.com>
Injection-Date: Wed, 26 Jun 2013 23:45:03 +0000
Content-Type: text/plain; charset=ISO-8859-1
X-Original-Bytes: 1956
Xref: number.nntp.dca.giganews.com comp.lang.ada:182101
Date: 2013-06-26T16:45:02-07:00
List-Id: <comp.lang.ada>

At first blush, it looks like aNode is Null.
(position : constant NodeSets.Cursor := graph.nodes.Find (aNode.all'Access);)

Try adding "not null" to the parameter... or you could restructure it a bit:
    function findNode2
      (graph : DirectedGraph;
       aNode : access Node'Class)
      return  Node_Class_Access is

    begin
	declare
	    position : constant NodeSets.Cursor :=
	      graph.nodes.Find (aNode.all'Access);
	begin
	    if position /= NodeSets.No_Element then
		return Element (position);
	    else
		raise NoElement;
	    end if;
	exception
	    When PROGRAM_ERROR => raise NoElement;
	end;
    end findNode2;