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