1 #include <petsc/private/petscimpl.h>
2
testValidPointers(void * a,char * b,PetscInt * c,PetscMPIInt * d,PetscInt * e,PetscBool * f,PetscScalar * g,PetscReal * h)3 PetscErrorCode testValidPointers(void *a, char *b, PetscInt *c, PetscMPIInt *d, PetscInt *e, PetscBool *f, PetscScalar *g, PetscReal *h)
4 {
5 /* incorrect */
6 PetscAssertPointer(a, 2);
7 PetscAssertPointer(b, 3);
8 PetscAssertPointer(c, 4);
9 PetscAssertPointer(d, 5);
10 PetscAssertPointer(e, 6);
11 PetscAssertPointer(f, 7);
12 PetscAssertPointer(g, 8);
13 PetscAssertPointer(h, 9);
14
15 /* correct */
16 PetscAssertPointer(a, 1);
17 PetscAssertPointer(b, 2);
18 PetscAssertPointer(c, 3);
19 PetscAssertPointer(d, 4);
20 PetscAssertPointer(e, 5);
21 PetscAssertPointer(f, 6);
22 PetscAssertPointer(g, 7);
23 PetscAssertPointer(h, 8);
24 return 0;
25 }
26
testValidPointers2(void * a,char * b,PetscInt * c,PetscMPIInt * d,PetscInt * e,PetscBool * f,PetscScalar * g,PetscReal * h)27 void testValidPointers2(void *a, char *b, PetscInt *c, PetscMPIInt *d, PetscInt *e, PetscBool *f, PetscScalar *g, PetscReal *h)
28 {
29 /* incorrect */
30 PetscAssertPointer(a, 2);
31 PetscAssertPointer(b, 3);
32 PetscAssertPointer(c, 4);
33 PetscAssertPointer(d, 5);
34 PetscAssertPointer(e, 6);
35 PetscAssertPointer(f, 7);
36 PetscAssertPointer(g, 8);
37 PetscAssertPointer(h, 9);
38
39 /* correct */
40 PetscAssertPointer(a, 1);
41 PetscAssertPointer(b, 2);
42 PetscAssertPointer(c, 3);
43 PetscAssertPointer(d, 4);
44 PetscAssertPointer(e, 5);
45 PetscAssertPointer(f, 6);
46 PetscAssertPointer(g, 7);
47 PetscAssertPointer(h, 8);
48 return;
49 }
50
testValidPointers3(void ** a,char ** b,PetscInt ** c,PetscMPIInt ** d,PetscInt ** e,PetscBool ** f,PetscScalar ** g,PetscReal ** h)51 void testValidPointers3(void **a, char **b, PetscInt **c, PetscMPIInt **d, PetscInt **e, PetscBool **f, PetscScalar **g, PetscReal **h)
52 {
53 /* incorrect */
54 PetscAssertPointer(a, 1);
55 PetscAssertPointer(b, 2);
56 PetscAssertPointer(c, 3);
57 PetscAssertPointer(d, 4);
58 PetscAssertPointer(e, 5);
59 PetscAssertPointer(f, 6);
60 PetscAssertPointer(g, 7);
61 PetscAssertPointer(h, 8);
62
63 /* correct */
64 PetscAssertPointer(a, 1);
65 PetscAssertPointer(b, 2);
66 PetscAssertPointer(c, 3);
67 PetscAssertPointer(d, 4);
68 PetscAssertPointer(e, 5);
69 PetscAssertPointer(f, 6);
70 PetscAssertPointer(g, 7);
71 PetscAssertPointer(h, 8);
72 return;
73 }
74