/* This test checks that mixing PAPI_flips and the other high

 * level calls does the right thing.

 * by Kevin London

 */

#include <stdio.h>

#include <stdlib.h>

#include "papi.h"

#include "papi_test.h"

int

main( int argc, char **argv )

{

	int retval;

	int Events, fip = 0;

	long long values, flpins;

	float real_time, proc_time, mflops;

	int quiet;

	/* Set TESTS_QUIET variable */

	quiet=tests_quiet( argc, argv );

	/* Initialize PAPI library */

	retval = PAPI_library_init( PAPI_VER_CURRENT );

	if ( retval != PAPI_VER_CURRENT ) {

		test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );

	}

	/* First see if we have PAPI_FP_INS event */

	if ( PAPI_query_event( PAPI_FP_INS ) == PAPI_OK ) {

		fip = 1;

		Events = PAPI_FP_INS;

	/* If not, look for PAPI_FP_OPS */

	} else if ( PAPI_query_event( PAPI_FP_OPS ) == PAPI_OK ) {

		fip = 2;

		Events = PAPI_FP_OPS;

	} else {

		if ( !quiet ) {

			printf( "PAPI_FP_INS and PAPI_FP_OPS are not defined for this platform.\n" );

		}

		test_skip( __FILE__, __LINE__, "FLOPS event not supported", 1);

	}

	/* Start counting flips or flops event */

	if ( fip == 1 ) {

		retval = PAPI_flips( &real_time, &proc_time, &flpins, &mflops );

		if (retval != PAPI_OK ) {

			test_fail( __FILE__, __LINE__, "PAPI_flips", retval );

		}

	} else {

		retval = PAPI_flops( &real_time, &proc_time, &flpins, &mflops );

		if (retval != PAPI_OK ) {

			test_fail( __FILE__, __LINE__, "PAPI_flops", retval );

		}

	}

	/* If we are flipsing/flopsing, then start_counters should fail */

	retval = PAPI_start_counters( &Events, 1 );

	if (retval == PAPI_OK) {

		test_fail( __FILE__, __LINE__, "PAPI_start_counters", retval );

	}

	/* Try flipsing/flopsing again, should work */

	if ( fip == 1 ) {

		retval = PAPI_flips( &real_time, &proc_time, &flpins, &mflops );

		if (retval != PAPI_OK ) {

			test_fail( __FILE__, __LINE__, "PAPI_flips", retval );

		}

	} else {

		retval = PAPI_flops( &real_time, &proc_time, &flpins, &mflops );

		if (retval != PAPI_OK) {

			test_fail( __FILE__, __LINE__, "PAPI_flops", retval );

		}

	}

	/* If we are flipsing/flopsing, then read should fail */

	if ( ( retval = PAPI_read_counters( &values, 1 ) ) == PAPI_OK ) {

		test_fail( __FILE__, __LINE__, "PAPI_read_counters", retval );

	}

	/* Stop should still work then */

	if ( ( retval = PAPI_stop_counters( &values, 1 ) ) != PAPI_OK ) {

		test_fail( __FILE__, __LINE__, "PAPI_stop_counters", retval );

	}

	/* Restart flips/flops */

	if ( fip == 1 ) {

		retval = PAPI_flips( &real_time, &proc_time, &flpins, &mflops );

		if (retval != PAPI_OK) {

			test_fail( __FILE__, __LINE__, "PAPI_flips", retval );

		}

	} else {

		retval = PAPI_flops( &real_time, &proc_time, &flpins, &mflops );

		if (retval != PAPI_OK) {

			test_fail( __FILE__, __LINE__, "PAPI_flops", retval );

		}

	}

	/* Try reading again, should fail */

	if ( ( retval = PAPI_read_counters( &values, 1 ) ) == PAPI_OK ) {

		test_fail( __FILE__, __LINE__, "PAPI_read_counters", retval );

	}

	/* Stop */

	if ( ( retval = PAPI_stop_counters( &values, 1 ) ) != PAPI_OK ) {

		test_fail( __FILE__, __LINE__, "PAPI_stop_counters", retval );

	}

	/* Now try starting, should work */

	if ( ( retval = PAPI_start_counters( &Events, 1 ) ) != PAPI_OK ) {

		test_fail( __FILE__, __LINE__, "PAPI_start_counters", retval );

	}

	/* Read should work too */

	if ( ( retval = PAPI_read_counters( &values, 1 ) ) != PAPI_OK ) {

		test_fail( __FILE__, __LINE__, "PAPI_read_counters", retval );

	}

	/* flipsing/flopsing should fail */

	if ( fip == 1 ) {

		retval = PAPI_flips( &real_time, &proc_time, &flpins, &mflops );

		if (retval == PAPI_OK ) {

			test_fail( __FILE__, __LINE__, "PAPI_flips", retval );

		}

	} else {

		retval = PAPI_flops( &real_time, &proc_time, &flpins, &mflops );

		if (retval == PAPI_OK ) {

			test_fail( __FILE__, __LINE__, "PAPI_flops", retval );

		}

	}

	/* Stop everything */

	if ( ( retval = PAPI_stop_counters( &values, 1 ) ) != PAPI_OK ) {

		test_fail( __FILE__, __LINE__, "PAPI_stop_counters", retval );

	}

	test_pass( __FILE__ );

	return 0;

}