@@ -4,5 +4,5 @@
 #include <petsc/private/petscimpl.h>
 
-PetscErrorCode testTypes(PetscRandom r, PetscViewer v, PetscObject o, PetscFunctionList f)
+static PetscErrorCode testTypes(PetscRandom r, PetscViewer v, PetscObject o, PetscFunctionList f)
 {
   /* incorrect */
@@ -7,5 +7,5 @@
 {
   /* incorrect */
-  PetscValidType(r, -1);
+  PetscValidType(r, 1);
   PetscCheckSameType(r, -1, v, -1);
   PetscCheckSameComm(o, -2, f, -2);
@@ -8,5 +8,5 @@
   /* incorrect */
   PetscValidType(r, -1);
-  PetscCheckSameType(r, -1, v, -1);
+  PetscCheckSameType(r, 1, v, 2);
   PetscCheckSameComm(o, -2, f, -2);
   PetscCheckSameTypeAndComm(r, -3, f, -3);
@@ -9,5 +9,5 @@
   PetscValidType(r, -1);
   PetscCheckSameType(r, -1, v, -1);
-  PetscCheckSameComm(o, -2, f, -2);
+  PetscCheckSameComm(o, 3, f, 4);
   PetscCheckSameTypeAndComm(r, -3, f, -3);
 
@@ -10,5 +10,5 @@
   PetscCheckSameType(r, -1, v, -1);
   PetscCheckSameComm(o, -2, f, -2);
-  PetscCheckSameTypeAndComm(r, -3, f, -3);
+  PetscCheckSameTypeAndComm(r, 1, f, 4);
 
   /* correct */