1 2 static char help[] = "Tests deletion of mixed case options"; 3 4 #include <petscsys.h> 5 6 int main(int argc,char **argv) 7 { 8 PetscErrorCode ierr; 9 10 ierr = PetscInitialize(&argc,&argv,NULL,help);if (ierr) return ierr; 11 ierr = PetscOptionsSetValue(NULL,"-abc",NULL);CHKERRQ(ierr); 12 ierr = PetscOptionsSetValue(NULL,"-FOO",NULL);CHKERRQ(ierr); 13 ierr = PetscOptionsClearValue(NULL,"-FOO");CHKERRQ(ierr); 14 ierr = PetscOptionsView(NULL,NULL);CHKERRQ(ierr); 15 ierr = PetscFinalize(); 16 return ierr; 17 } 18 19 /*TEST 20 21 test: 22 args: -skip_petscrc -options_left 0 -use_gpu_aware_mpi 0 23 filter: egrep -v "(malloc|saws_port_auto_select|vecscatter_mpi1|error_output_stdout|check_pointer_intensity|cuda_initialize|nox|use_gpu_aware_mpi)" 24 TEST*/ 25