PAPI 7.1.0.0
Loading...
Searching...
No Matches
Macros | Functions
tenth.c File Reference
Include dependency graph for tenth.c:

Go to the source code of this file.

Macros

#define ITERS   100
 
#define CACHE_LEVEL   "PAPI_L1_TCM"
 
#define EVT1   PAPI_L1_TCM
 
#define EVT2   PAPI_L1_ICM
 
#define EVT3   PAPI_L1_DCM
 
#define EVT1_STR   "PAPI_L1_TCM"
 
#define EVT2_STR   "PAPI_L1_ICM"
 
#define EVT3_STR   "PAPI_L1_DCM"
 
#define MASK1   MASK_L1_TCM
 
#define MASK2   MASK_L1_ICM
 
#define MASK3   MASK_L1_DCM
 

Functions

int main (int argc, char **argv)
 

Macro Definition Documentation

◆ CACHE_LEVEL

#define CACHE_LEVEL   "PAPI_L1_TCM"

Definition at line 55 of file tenth.c.

◆ EVT1

#define EVT1   PAPI_L1_TCM

Definition at line 56 of file tenth.c.

◆ EVT1_STR

#define EVT1_STR   "PAPI_L1_TCM"

Definition at line 59 of file tenth.c.

◆ EVT2

#define EVT2   PAPI_L1_ICM

Definition at line 57 of file tenth.c.

◆ EVT2_STR

#define EVT2_STR   "PAPI_L1_ICM"

Definition at line 60 of file tenth.c.

◆ EVT3

#define EVT3   PAPI_L1_DCM

Definition at line 58 of file tenth.c.

◆ EVT3_STR

#define EVT3_STR   "PAPI_L1_DCM"

Definition at line 61 of file tenth.c.

◆ ITERS

#define ITERS   100

Definition at line 15 of file tenth.c.

◆ MASK1

#define MASK1   MASK_L1_TCM

Definition at line 62 of file tenth.c.

◆ MASK2

#define MASK2   MASK_L1_ICM

Definition at line 63 of file tenth.c.

◆ MASK3

#define MASK3   MASK_L1_DCM

Definition at line 64 of file tenth.c.

Function Documentation

◆ main()

int main ( int  argc,
char **  argv 
)

Definition at line 70 of file tenth.c.

71{
72 int retval, num_tests = 30, tmp;
73 int EventSet1 = PAPI_NULL;
74 int EventSet2 = PAPI_NULL;
75 int EventSet3 = PAPI_NULL;
76 int mask1 = MASK1;
77 int mask2 = MASK2;
78 int mask3 = MASK3;
79 int num_events1;
80 int num_events2;
81 int num_events3;
82 long long **values;
83 int i, j;
84 long long min[3];
85 long long max[3];
86 long long sum[3];
87 int quiet;
88
89 /* Set TESTS_QUIET variable */
90 quiet = tests_quiet( argc, argv );
91
92 retval = PAPI_library_init( PAPI_VER_CURRENT );
93 if ( retval != PAPI_VER_CURRENT ) {
94 test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
95 }
96
97 /* Make sure that required resources are available */
98 /* Skip (don't fail!) if they are not */
99 retval = PAPI_query_event( EVT1 );
100 if ( retval != PAPI_OK ) {
101 test_skip( __FILE__, __LINE__, EVT1_STR, retval );
102 }
103
104 retval = PAPI_query_event( EVT2 );
105 if ( retval != PAPI_OK ) {
106 test_skip( __FILE__, __LINE__, EVT2_STR, retval );
107 }
108
109 retval = PAPI_query_event( EVT3 );
110 if ( retval != PAPI_OK ) {
111 test_skip( __FILE__, __LINE__, EVT3_STR, retval );
112 }
113
114 EventSet1 = add_test_events( &num_events1, &mask1, 1 );
115 EventSet2 = add_test_events( &num_events2, &mask2, 1 );
116 EventSet3 = add_test_events( &num_events3, &mask3, 1 );
117
118 values = allocate_test_space( num_tests, 1 );
119
120 /* Warm me up */
121 do_l1misses( ITERS );
122 do_misses( 1, 1024 * 1024 * 4 );
123
124 for ( i = 0; i < 10; i++ ) {
125 retval = PAPI_start( EventSet1 );
126 if ( retval != PAPI_OK )
127 test_fail( __FILE__, __LINE__, "PAPI_start", retval );
128
129 do_l1misses( ITERS );
130 do_misses( 1, 1024 * 1024 * 4 );
131
132 retval = PAPI_stop( EventSet1, values[( i * 3 ) + 0] );
133 if ( retval != PAPI_OK )
134 test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
135
136 retval = PAPI_start( EventSet2 );
137 if ( retval != PAPI_OK )
138 test_fail( __FILE__, __LINE__, "PAPI_start", retval );
139
140 do_l1misses( ITERS );
141 do_misses( 1, 1024 * 1024 * 4 );
142
143 retval = PAPI_stop( EventSet2, values[( i * 3 ) + 1] );
144 if ( retval != PAPI_OK )
145 test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
146
147 retval = PAPI_start( EventSet3 );
148 if ( retval != PAPI_OK )
149 test_fail( __FILE__, __LINE__, "PAPI_start", retval );
150
151 do_l1misses( ITERS );
152 do_misses( 1, 1024 * 1024 * 4 );
153
154 retval = PAPI_stop( EventSet3, values[( i * 3 ) + 2] );
155 if ( retval != PAPI_OK )
156 test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
157 }
158
159 remove_test_events( &EventSet1, mask1 );
160 remove_test_events( &EventSet2, mask2 );
161 remove_test_events( &EventSet3, mask3 );
162
163 for ( j = 0; j < 3; j++ ) {
164 min[j] = 65535;
165 max[j] = sum[j] = 0;
166 }
167 for ( i = 0; i < 10; i++ ) {
168 for ( j = 0; j < 3; j++ ) {
169 if ( min[j] > values[( i * 3 ) + j][0] )
170 min[j] = values[( i * 3 ) + j][0];
171 if ( max[j] < values[( i * 3 ) + j][0] )
172 max[j] = values[( i * 3 ) + j][0];
173 sum[j] += values[( i * 3 ) + j][0];
174 }
175 }
176
177 if ( !quiet ) {
178 printf( "Test case 10: start, stop for derived event %s.\n",
179 CACHE_LEVEL );
180 printf( "--------------------------------------------------------\n" );
181 tmp = PAPI_get_opt( PAPI_DEFDOM, NULL );
182 printf( "Default domain is: %d (%s)\n", tmp,
183 stringify_all_domains( tmp ) );
184 tmp = PAPI_get_opt( PAPI_DEFGRN, NULL );
185 printf( "Default granularity is: %d (%s)\n", tmp,
186 stringify_granularity( tmp ) );
187 printf( "Using %d iterations of c += a*b\n", ITERS );
188 printf( "Repeated 10 times\n" );
189 printf
190 ( "-------------------------------------------------------------------------\n" );
191/*
192 for (i=0;i<10;i++) {
193 printf("Test type : %12s%13s%13s\n", "1", "2", "3");
194 printf(TAB3, EVT1_STR, values[(i*3)+0][0], (long long)0, (long long)0);
195 printf(TAB3, EVT2_STR, (long long)0, values[(i*3)+1][0], (long long)0);
196 printf(TAB3, EVT3_STR, (long long)0, (long long)0, values[(i*3)+2][0]);
197 printf
198 ("-------------------------------------------------------------------------\n");
199 }
200*/
201 printf( "Test type : %12s%13s%13s\n", "min", "max", "sum" );
202 printf( TAB3, EVT1_STR, min[0], max[0], sum[0] );
203 printf( TAB3, EVT2_STR, min[1], max[1], sum[1] );
204 printf( TAB3, EVT3_STR, min[2], max[2], sum[2] );
205 printf
206 ( "-------------------------------------------------------------------------\n" );
207 printf( "Verification:\n" );
208#if defined(sun) && defined(sparc)
209 printf( TAB1, "Sum 1 approximately equals sum 2 - sum 3 or",
210 ( sum[1] - sum[2] ) );
211#else
212 printf( TAB1, "Sum 1 approximately equals sum 2 + sum 3 or",
213 ( sum[1] + sum[2] ) );
214#endif
215 }
216
217 {
218 long long tmin, tmax;
219
220#if defined(sun) && defined(sparc)
221 tmax = ( long long ) ( sum[1] - sum[2] );
222#else
223 tmax = ( long long ) ( sum[1] + sum[2] );
224#endif
225
226 if (!quiet) {
227 printf( "percent error: %f\n",
228 (( float ) abs( ( int ) ( tmax - sum[0] ) ) /
229 (float) sum[0] ) * 100.0 );
230 }
231 tmin = ( long long ) ( ( double ) tmax * 0.8 );
232 tmax = ( long long ) ( ( double ) tmax * 1.2 );
233 if ( sum[0] > tmax || sum[0] < tmin ) {
234 test_fail( __FILE__, __LINE__, CACHE_LEVEL, 1 );
235 }
236 }
237
238 test_pass( __FILE__ );
239
240 return 0;
241}
tmp
double tmp
Definition: PAPI_get_virt_cyc.c:11
i
int i
Definition: PAPI_get_virt_cyc.c:10
PAPI_get_opt
Get PAPI library or event set options.
PAPI_library_init
initialize the PAPI library.
PAPI_query_event
Query if PAPI event exists.
PAPI_start
Start counting hardware events in an event set.
PAPI_stop
Stop counting hardware events in an event set.
min
#define min(x, y)
Definition: darwin-common.h:4
do_l1misses
void do_l1misses(int n)
Definition: do_loops.c:220
do_misses
void do_misses(int n, int bytes)
Definition: do_loops.c:120
PAPI_VER_CURRENT
#define PAPI_VER_CURRENT
Definition: f90papi.h:54
PAPI_OK
#define PAPI_OK
Definition: f90papi.h:73
PAPI_NULL
#define PAPI_NULL
Definition: f90papi.h:78
PAPI_DEFGRN
#define PAPI_DEFGRN
Definition: f90papi.h:26
PAPI_DEFDOM
#define PAPI_DEFDOM
Definition: f90papi.h:188
values
static long long values[NUM_EVENTS]
Definition: init_fini.c:10
tests_quiet
int tests_quiet(int argc, char **argv)
Definition: test_utils.c:376
add_test_events
int add_test_events(int *number, int *mask, int allow_derived)
Definition: test_utils.c:152
stringify_all_domains
char * stringify_all_domains(int domains)
Definition: test_utils.c:293
stringify_granularity
char * stringify_granularity(int granularity)
Definition: test_utils.c:353
TAB3
#define TAB3
Definition: papi_test.h:100
TAB1
#define TAB1
Definition: papi_test.h:98
test_fail
void PAPI_NORETURN test_fail(const char *file, int line, const char *call, int retval)
Definition: test_utils.c:491
allocate_test_space
long long ** allocate_test_space(int num_tests, int num_events)
Definition: test_utils.c:46
test_pass
void PAPI_NORETURN test_pass(const char *filename)
Definition: test_utils.c:432
test_skip
void PAPI_NORETURN test_skip(const char *file, int line, const char *call, int retval)
Definition: test_utils.c:584
remove_test_events
int remove_test_events(int *EventSet, int mask)
Definition: test_utils.c:201
quiet
int quiet
Definition: rapl_overflow.c:19
EventSet2
int EventSet2
Definition: rapl_overflow.c:17
long
long long int long long
Definition: sde_internal.h:85
EVT2_STR
#define EVT2_STR
Definition: tenth.c:60
MASK3
#define MASK3
Definition: tenth.c:64
EVT3_STR
#define EVT3_STR
Definition: tenth.c:61
ITERS
#define ITERS
Definition: tenth.c:15
MASK2
#define MASK2
Definition: tenth.c:63
EVT2
#define EVT2
Definition: tenth.c:57
EVT1_STR
#define EVT1_STR
Definition: tenth.c:59
EVT1
#define EVT1
Definition: tenth.c:56
EVT3
#define EVT3
Definition: tenth.c:58
MASK1
#define MASK1
Definition: tenth.c:62
CACHE_LEVEL
#define CACHE_LEVEL
Definition: tenth.c:55
EventSet1
int EventSet1
Definition: zero_fork.c:47
num_events1
int num_events1
Definition: zero_fork.c:49
mask1
int mask1
Definition: zero_fork.c:48
num_tests
int num_tests
Definition: zero_fork.c:53
retval
int retval
Definition: zero_fork.c:53
Here is the call graph for this function: