18   PetscReal pos_one  = PetscRealConstant(+1.0);  in main()  local
20   PetscReal pos_inf  = pos_one / zero;          /* +inf */  in main()
27   CALL(PetscIsCloseAtTol(pos_one, pos_one, 0, 0));  in main()
28   CALL(PetscIsCloseAtTol(pos_one, neg_one, 0, 0));  in main()
29   CALL(PetscIsCloseAtTol(pos_one, neg_one, 0, 2));  in main()
30   CALL(PetscIsCloseAtTol(pos_one, neg_one, 2, 0));  in main()
32   CALL(PetscIsCloseAtTol(pos_one + eps, pos_one, 0, 0));  in main()
33   CALL(PetscIsCloseAtTol(pos_one - eps, pos_one, 0, 0));  in main()
34   CALL(PetscIsCloseAtTol(pos_one + eps, pos_one, 0, 0));  in main()
35   CALL(PetscIsCloseAtTol(pos_one - eps, pos_one, 0, 0));  in main()
37   CALL(PetscIsCloseAtTol(pos_one + eps, pos_one, 0, eps));  in main()
38   CALL(PetscIsCloseAtTol(pos_one - eps, pos_one, 0, eps));  in main()
39   CALL(PetscIsCloseAtTol(pos_one + eps, pos_one, eps, 0));  in main()
40   CALL(PetscIsCloseAtTol(pos_one - eps, pos_one, eps, 0));  in main()
42   CALL(PetscIsCloseAtTol(pos_one + 2 * eps, pos_one, eps, 0));  in main()
43   CALL(PetscIsCloseAtTol(pos_one - 2 * eps, pos_one, eps, 0));  in main()
44   CALL(PetscIsCloseAtTol(pos_one + 2 * eps, pos_one, 0, eps));  in main()
45   CALL(PetscIsCloseAtTol(pos_one - 2 * eps, pos_one, 0, eps));  in main()
50   CALL(PetscIsCloseAtTol(neg_inf, pos_one, 2, 2));  in main()
58   CALL(PetscIsCloseAtTol(pos_inf, pos_one, 2, 2));  in main()
66   CALL(PetscIsCloseAtTol(x_nan, pos_one, 2, 2));  in main()