#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