/usr/share/doc/papi-examples/ctests/nineth.c is in papi-examples 5.3.2-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 | /* This file performs the following test: start, stop and timer functionality for derived events
NOTE: This test becomes useless when rate events like PAPI_FLOPS are removed.
- It tests the derived metric FLOPS using the following two counters.
They are counted in the default counting domain and default
granularity, depending on the platform. Usually this is
the user domain (PAPI_DOM_USER) and thread context (PAPI_GRN_THR).
+ PAPI_FP_INS
+ PAPI_TOT_CYC
- Get us.
- Start counters
- Do flops
- Stop and read counters
- Get us.
*/
#include "papi_test.h"
extern int TESTS_QUIET; /* Declared in test_utils.c */
int
main( int argc, char **argv )
{
int retval, num_tests = 2, tmp;
int EventSet1 = PAPI_NULL;
int EventSet2 = PAPI_NULL;
int mask1 = 0x80001; /* FP_OPS and TOT_CYC */
int mask2 = 0x8; /* FLOPS */
int num_events1;
int num_events2;
long long **values;
int clockrate;
double test_flops;
tests_quiet( argc, argv ); /* Set TESTS_QUIET variable */
retval = PAPI_library_init( PAPI_VER_CURRENT );
if ( retval != PAPI_VER_CURRENT )
test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
/* gotta count flops to run this test */
if ( ( retval = PAPI_query_event( PAPI_FP_OPS ) ) != PAPI_OK )
test_skip( __FILE__, __LINE__, "PAPI_query_event", retval );
EventSet1 = add_test_events( &num_events1, &mask1 );
/* EventSet2 = add_test_events(&num_events2, &mask2); */
if ( num_events1 == 0 || num_events2 == 0 )
test_skip( __FILE__, __LINE__, "add_test_events", PAPI_ENOEVNT );
/* num_events1 is greater than num_events2 so don't worry. */
values = allocate_test_space( num_tests, num_events1 );
clockrate = PAPI_get_opt( PAPI_CLOCKRATE, NULL );
if ( clockrate < 1 )
test_fail( __FILE__, __LINE__, "PAPI_get_opt", retval );
retval = PAPI_start( EventSet1 );
if ( retval != PAPI_OK )
test_fail( __FILE__, __LINE__, "PAPI_start", retval );
do_flops( NUM_FLOPS );
retval = PAPI_stop( EventSet1, values[0] );
if ( retval != PAPI_OK )
test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
/*
retval = PAPI_start(EventSet2);
if (retval != PAPI_OK)
test_fail(__FILE__, __LINE__, "PAPI_start", retval);
do_flops(NUM_FLOPS);
retval = PAPI_stop(EventSet2, values[1]);
if (retval != PAPI_OK)
test_fail(__FILE__, __LINE__, "PAPI_stop", retval);
*/
remove_test_events( &EventSet1, mask1 );
/* remove_test_events(&EventSet2, mask2); */
test_flops =
( double ) ( values[0] )[0] *
( double ) clockrate *( double ) 1000000.0;
test_flops = test_flops / ( double ) ( values[0] )[1];
if ( !TESTS_QUIET ) {
printf( "Test case 9: start, stop for derived event PAPI_FLOPS.\n" );
printf( "------------------------------------------------------\n" );
tmp = PAPI_get_opt( PAPI_DEFDOM, NULL );
printf( "Default domain is: %d (%s)\n", tmp,
stringify_all_domains( tmp ) );
tmp = PAPI_get_opt( PAPI_DEFGRN, NULL );
printf( "Default granularity is: %d (%s)\n", tmp,
stringify_granularity( tmp ) );
printf( "Using %d iterations of c += a*b\n", NUM_FLOPS );
printf
( "-------------------------------------------------------------------------\n" );
printf( "Test type : %12s%12s\n", "1", "2" );
printf( TAB2, "PAPI_FP_OPS : ", ( values[0] )[0], ( long long ) 0 );
printf( TAB2, "PAPI_TOT_CYC: ", ( values[0] )[1], ( long long ) 0 );
printf( TAB2, "PAPI_FLOPS : ", ( long long ) 0, ( values[1] )[0] );
printf
( "-------------------------------------------------------------------------\n" );
printf( "Verification:\n" );
printf( "Last number in row 3 approximately equals %f\n", test_flops );
printf( "This test is no longer valid: PAPI_FLOPS is deprecated.\n" );
}
/* {
double min, max;
min = values[1][0] * .9;
max = values[1][0] * 1.1;
if (test_flops > max || test_flops < min)
test_fail(__FILE__, __LINE__, "PAPI_FLOPS", 1);
}
*/
test_pass( __FILE__, values, num_tests );
exit( 1 );
}
|