1*1724198aSStefano Zampini static char help[] = "Tests PetscStack.\n\n"; 2*1724198aSStefano Zampini 3*1724198aSStefano Zampini #include <petscsys.h> 4*1724198aSStefano Zampini 5*1724198aSStefano Zampini #if !defined(PETSCSTACKSIZE) 6*1724198aSStefano Zampini #define PETSCSTACKSIZE 64 7*1724198aSStefano Zampini #endif 8*1724198aSStefano Zampini 9*1724198aSStefano Zampini PetscErrorCode correct() 10*1724198aSStefano Zampini { 11*1724198aSStefano Zampini PetscFunctionBegin; 12*1724198aSStefano Zampini PetscFunctionReturn(0); 13*1724198aSStefano Zampini } 14*1724198aSStefano Zampini 15*1724198aSStefano Zampini PetscErrorCode correctu() 16*1724198aSStefano Zampini { 17*1724198aSStefano Zampini PetscFunctionBeginUser; 18*1724198aSStefano Zampini PetscFunctionReturn(0); 19*1724198aSStefano Zampini } 20*1724198aSStefano Zampini 21*1724198aSStefano Zampini PetscErrorCode foo() 22*1724198aSStefano Zampini { 23*1724198aSStefano Zampini PetscFunctionReturn(0); 24*1724198aSStefano Zampini } 25*1724198aSStefano Zampini 26*1724198aSStefano Zampini PetscErrorCode bar() 27*1724198aSStefano Zampini { 28*1724198aSStefano Zampini PetscFunctionBegin; 29*1724198aSStefano Zampini return 0; 30*1724198aSStefano Zampini } 31*1724198aSStefano Zampini 32*1724198aSStefano Zampini PetscErrorCode baru() 33*1724198aSStefano Zampini { 34*1724198aSStefano Zampini PetscFunctionBeginUser; 35*1724198aSStefano Zampini return 0; 36*1724198aSStefano Zampini } 37*1724198aSStefano Zampini 38*1724198aSStefano Zampini int main(int argc,char **argv) 39*1724198aSStefano Zampini { 40*1724198aSStefano Zampini PetscErrorCode ierr; 41*1724198aSStefano Zampini PetscBool flg = PETSC_FALSE; 42*1724198aSStefano Zampini 43*1724198aSStefano Zampini ierr = PetscInitialize(&argc,&argv,(char*)0,help);if (ierr) return ierr; 44*1724198aSStefano Zampini #if defined(PETSC_USE_DEBUG) 45*1724198aSStefano Zampini ierr = PetscOptionsGetBool(NULL,NULL,"-checkstack",&flg,NULL);CHKERRQ(ierr); 46*1724198aSStefano Zampini #endif 47*1724198aSStefano Zampini ierr = PetscPrintf(PETSC_COMM_WORLD,"%s for stack\n",flg ? "Checking" : "Not checking");CHKERRQ(ierr); 48*1724198aSStefano Zampini for (PetscInt i = 0; i < PETSCSTACKSIZE+1; i++) { ierr = correct();CHKERRQ(ierr); } 49*1724198aSStefano Zampini for (PetscInt i = 0; i < PETSCSTACKSIZE+1; i++) { ierr = foo();CHKERRQ(ierr); } 50*1724198aSStefano Zampini for (PetscInt i = 0; i < PETSCSTACKSIZE+1; i++) { ierr = bar();CHKERRQ(ierr); } 51*1724198aSStefano Zampini for (PetscInt i = 0; i < PETSCSTACKSIZE+1; i++) { ierr = foo();CHKERRQ(ierr); } 52*1724198aSStefano Zampini for (PetscInt i = 0; i < PETSCSTACKSIZE+1; i++) { ierr = baru();CHKERRQ(ierr); } 53*1724198aSStefano Zampini for (PetscInt i = 0; i < PETSCSTACKSIZE+1; i++) { ierr = foo();CHKERRQ(ierr); } 54*1724198aSStefano Zampini ierr = PetscFinalize(); 55*1724198aSStefano Zampini return ierr; 56*1724198aSStefano Zampini } 57*1724198aSStefano Zampini 58*1724198aSStefano Zampini /*TEST 59*1724198aSStefano Zampini 60*1724198aSStefano Zampini test: 61*1724198aSStefano Zampini 62*1724198aSStefano Zampini TEST*/ 63