|
Packit |
577717 |
#include <stdio.h>
|
|
Packit |
577717 |
#include <stdlib.h>
|
|
Packit |
577717 |
#include <unistd.h>
|
|
Packit |
577717 |
#include <string.h>
|
|
Packit |
577717 |
|
|
Packit |
577717 |
#if defined(_AIX) || defined (__FreeBSD__) || defined (__APPLE__)
|
|
Packit |
577717 |
#include <sys/wait.h> /* ARGH! */
|
|
Packit |
577717 |
#else
|
|
Packit |
577717 |
#include <wait.h>
|
|
Packit |
577717 |
#endif
|
|
Packit |
577717 |
|
|
Packit |
577717 |
#include "papi.h"
|
|
Packit |
577717 |
#include "papi_test.h"
|
|
Packit |
577717 |
|
|
Packit |
577717 |
#include "do_loops.h"
|
|
Packit |
577717 |
|
|
Packit |
577717 |
int
|
|
Packit |
577717 |
main( int argc, char **argv )
|
|
Packit |
577717 |
{
|
|
Packit |
577717 |
int retval, pid, status, EventSet = PAPI_NULL;
|
|
Packit |
577717 |
long long int values[] = {0,0};
|
|
Packit |
577717 |
PAPI_option_t opt;
|
|
Packit |
577717 |
char event_name[BUFSIZ];
|
|
Packit |
577717 |
int quiet;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
quiet=tests_quiet( argc, argv );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( ( retval = PAPI_library_init( PAPI_VER_CURRENT ) ) != PAPI_VER_CURRENT )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( ( retval = PAPI_create_eventset( &EventSet ) ) != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_create_eventset", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( ( retval = PAPI_assign_eventset_component( EventSet, 0 ) ) != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_assign_eventset_component", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
memset( &opt, 0x0, sizeof ( PAPI_option_t ) );
|
|
Packit |
577717 |
opt.inherit.inherit = PAPI_INHERIT_ALL;
|
|
Packit |
577717 |
opt.inherit.eventset = EventSet;
|
|
Packit |
577717 |
if ( ( retval = PAPI_set_opt( PAPI_INHERIT, &opt ) ) != PAPI_OK ) {
|
|
Packit |
577717 |
if ( retval == PAPI_ECMP) {
|
|
Packit |
577717 |
test_skip( __FILE__, __LINE__, "Inherit not supported by current component.\n", retval );
|
|
Packit |
577717 |
} else {
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_set_opt", retval );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( ( retval = PAPI_query_event( PAPI_TOT_CYC ) ) != PAPI_OK ) {
|
|
Packit |
577717 |
if (!quiet) printf("Trouble finding PAPI_TOT_CYC\n");
|
|
Packit |
577717 |
test_skip( __FILE__, __LINE__, "PAPI_query_event", retval );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( ( retval = PAPI_add_event( EventSet, PAPI_TOT_CYC ) ) != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_add_event", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
strcpy(event_name,"PAPI_FP_INS");
|
|
Packit |
577717 |
retval = PAPI_add_named_event( EventSet, event_name );
|
|
Packit |
577717 |
if (retval == PAPI_ENOEVNT) {
|
|
Packit |
577717 |
strcpy(event_name,"PAPI_TOT_INS");
|
|
Packit |
577717 |
retval = PAPI_add_named_event( EventSet, event_name );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( retval != PAPI_OK ) {
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_add_event", retval );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( ( retval = PAPI_start( EventSet ) ) != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_start", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
pid = fork( );
|
|
Packit |
577717 |
if ( pid == 0 ) {
|
|
Packit |
577717 |
do_flops( NUM_FLOPS );
|
|
Packit |
577717 |
exit( 0 );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
if ( waitpid( pid, &status, 0 ) == -1 ) {
|
|
Packit |
577717 |
perror( "waitpid()" );
|
|
Packit |
577717 |
exit( 1 );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( ( retval = PAPI_stop( EventSet, values ) ) != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if (!quiet) {
|
|
Packit |
577717 |
printf( "Test case inherit: parent starts, child works, parent stops.\n" );
|
|
Packit |
577717 |
printf( "------------------------------------------------------------\n" );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
printf( "Test run : \t1\n" );
|
|
Packit |
577717 |
printf( "%s : \t%lld\n", event_name, values[1] );
|
|
Packit |
577717 |
printf( "PAPI_TOT_CYC: \t%lld\n", values[0] );
|
|
Packit |
577717 |
printf( "------------------------------------------------------------\n" );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
printf( "Verification:\n" );
|
|
Packit |
577717 |
printf( "Row 1 at least %d\n", NUM_FLOPS );
|
|
Packit |
577717 |
printf( "Row 2 greater than row 1\n");
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( values[1] < 100 ) {
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, event_name, 1 );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( (!strcmp(event_name,"PAPI_FP_INS")) && (values[1] < NUM_FLOPS)) {
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_FP_INS", 1 );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
test_pass( __FILE__ );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
return 0;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
}
|