Line data Source code
1 : /*
2 : - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3 : SLEPc - Scalable Library for Eigenvalue Problem Computations
4 : Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain
5 :
6 : This file is part of SLEPc.
7 : SLEPc is distributed under a 2-clause BSD license (see LICENSE).
8 : - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
9 : */
10 :
11 : static char help[] = "Tests functions intended to be used from a debugger.\n\n";
12 :
13 : #include <slepcsys.h>
14 :
15 1 : int main(int argc,char **argv)
16 : {
17 : #if defined(PETSC_USE_DEBUG)
18 : #if defined(PETSC_USE_COMPLEX)
19 1 : PetscScalar Xr[]={1.0,-0.5,0.625,1.25,-0.125,-5.5};
20 : #else
21 : PetscScalar Xr[]={1.0,-0.5,0.625,1.25,-0.125,-5.5},Xi[]={0.0,0.0,0.0,0.0,0.0,0.0};
22 : #endif
23 : #endif
24 :
25 1 : PetscFunctionBeginUser;
26 1 : PetscCall(SlepcInitialize(&argc,&argv,NULL,help));
27 :
28 : #if defined(PETSC_USE_DEBUG)
29 : #if defined(PETSC_USE_COMPLEX)
30 1 : PetscCall(SlepcDebugViewMatrix(2,3,Xr,NULL,2,"M",NULL));
31 : #else
32 : PetscCall(SlepcDebugViewMatrix(2,3,Xr,Xi,2,"M",NULL));
33 : #endif
34 : #endif
35 :
36 1 : PetscCall(SlepcFinalize());
37 : return 0;
38 : }
39 :
40 : /*TEST
41 :
42 : build:
43 : requires: debug
44 :
45 : test:
46 : args: -help
47 : filter: sed -e "s/\(Development GIT.*\)/version/" | sed -e "s/\(Release Version.*\)/version/" | sed -e "s/\(linked from.*\)/linked from PATH/"
48 :
49 : TEST*/
|