The node you are looking for is at gnat_rm/implementation_defined_pragmas pragma-contract-cases.