PAPI 7.1.0.0
Loading...
Searching...
No Matches
case2.c File Reference
Include dependency graph for case2.c:

Go to the source code of this file.

Functions

int main (int argc, char **argv)
 

Function Documentation

◆ main()

int main ( int  argc,
char **  argv 
)

Definition at line 20 of file case2.c.

21{
22 double c, a = 0.999, b = 1.001;
23 int n = 1000;
24 int EventSet = PAPI_NULL;
25 int retval;
26 int j = 0, i;
27 long long g1[3];
28
29 tests_quiet( argc, argv ); /* Set TESTS_QUIET variable */
30
31 if ( ( retval =
33 test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
34
36 test_fail( __FILE__, __LINE__, "PAPI_create_eventset", retval );
37
39 j++;
40
41 if ( j == 1 &&
43 if ( retval != PAPI_ECNFLCT )
44 test_fail( __FILE__, __LINE__, "PAPI_add_event", retval );
45 }
46
47 i = j;
49 j++;
50
51 if ( j == ( i + 1 ) &&
53 if ( retval != PAPI_ECNFLCT )
54 test_fail( __FILE__, __LINE__, "PAPI_add_event", retval );
55 }
56
57 i = j;
59 j++;
60
61 if ( j == ( i + 1 ) &&
63 if ( retval != PAPI_ECNFLCT )
64 test_fail( __FILE__, __LINE__, "PAPI_add_event", retval );
65 }
66
67 if ( j ) {
68 if ( ( retval = PAPI_start( EventSet ) ) != PAPI_OK )
69 test_fail( __FILE__, __LINE__, "PAPI_start", retval );
70
71 for ( i = 0; i < n; i++ ) {
72 c = a * b;
73 }
74 if (!TESTS_QUIET) fprintf(stdout,"c=%lf\n",c);
75 if ( ( retval = PAPI_stop( EventSet, g1 ) ) != PAPI_OK )
76 test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
77 }
78
79 test_pass( __FILE__ );
80
81 return 0;
82}
int i
add PAPI preset or native hardware event to an event set
Create a new empty PAPI EventSet.
initialize the PAPI library.
Query if PAPI event exists.
Start counting hardware events in an event set.
Stop counting hardware events in an event set.
#define PAPI_VER_CURRENT
Definition: f90papi.h:54
#define PAPI_OK
Definition: f90papi.h:73
#define PAPI_NULL
Definition: f90papi.h:78
#define PAPI_BR_CN
Definition: f90papi.h:304
#define PAPI_TOT_CYC
Definition: f90papi.h:308
#define PAPI_ECNFLCT
Definition: f90papi.h:234
#define PAPI_TOT_INS
Definition: f90papi.h:317
static int EventSet
Definition: init_fini.c:8
static double a[MATRIX_SIZE][MATRIX_SIZE]
Definition: libmsr_basic.c:38
static double b[MATRIX_SIZE][MATRIX_SIZE]
Definition: libmsr_basic.c:39
static double c[MATRIX_SIZE][MATRIX_SIZE]
Definition: libmsr_basic.c:40
int TESTS_QUIET
Definition: test_utils.c:18
FILE * stdout
int tests_quiet(int argc, char **argv)
Definition: test_utils.c:376
void PAPI_NORETURN test_fail(const char *file, int line, const char *call, int retval)
Definition: test_utils.c:491
void PAPI_NORETURN test_pass(const char *filename)
Definition: test_utils.c:432
int retval
Definition: zero_fork.c:53
Here is the call graph for this function: