/usr/share/doc/papi-examples/ftests/eventname.F 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 | #include "fpapi_test.h"
program eventname
IMPLICIT integer (p)
INTEGER retval, handle
INTEGER preset
integer tests_quiet, get_quiet
external get_quiet
tests_quiet = get_quiet()
handle = 0
retval = PAPI_VER_CURRENT
call PAPIf_library_init( retval )
if ( retval.NE.PAPI_VER_CURRENT) then
call ftest_fail(__FILE__, __LINE__,
. 'PAPI_library_init', retval)
end if
call PAPIf_event_name_to_code( 'PAPI_FP_INS',preset,retval )
if ( retval .NE. PAPI_OK ) then
call ftest_fail(__FILE__, __LINE__,
. 'PAPIf_event_name_to_code',
*retval)
end if
if (tests_quiet .EQ. 0) then
write (*, 100) preset
100 format ('PAPI_FP_INS code is', Z10)
end if
call ftests_pass(__FILE__)
end
|