The node you are looking for is at gnat-style subprogram-bodies.