test_ar_intrin.c File Reference
#include <stdio.h>#include <stdlib.h>#include <ctype.h>#include <string.h>#include <fortran.h>#include "arith.h"
Go to the source code of this file.
Defines | |
| #define | HAVE_FORTRAN_H |
Functions | |
| static void | check_ar_result () |
| int | main () |
| void | AR_STRTOD (double *answer) |
| void | AR_INTRIN1 (_fcd func, AR_DATA *opnd, AR_DATA *answer) |
| void | AR_INTRIN2 (_fcd func, AR_DATA *opnd1, AR_DATA *opnd2, AR_DATA *answer) |
| static void | check_ar_result (char *fname, int flen, AR_HOST_SINT64 *ar_result, int ar_error, AR_HOST_SINT64 *answer, int rsize) |
Variables | |
| static int | pass = 0 |
| static int | fail = 0 |
| static AR_HOST_SINT64 | result [4] |
| static char | prevfname [8] |
| static int | prevflen |
| static AR_TYPE | INT_TYPE = AR_Int_64_S |
| static AR_TYPE | FLOAT_64 = AR_Float_IEEE_NR_64 |
| static AR_TYPE | FLOAT_128 = AR_Float_IEEE_NR_128 |
| static AR_TYPE | COMPLEX_64 = AR_Complex_IEEE_NR_64 |
| static AR_TYPE | COMPLEX_128 = AR_Complex_IEEE_NR_128 |
| static char | USMID [] = "\n%Z%%M% %I% %G% %U%\n" |
| static char | rcsid [] = "$Id: test_ar_intrin.c,v 1.4 2003-12-11 22:08:33 eraxxon Exp $" |
Define Documentation
| #define HAVE_FORTRAN_H |
Definition at line 41 of file test_ar_intrin.c.
Function Documentation
Definition at line 177 of file test_ar_intrin.c.
References _fcdlen, _fcdtocp, AR_cabs(), AR_exp(), AR_log(), AR_sqrt(), check_ar_result(), COMPLEX_128, COMPLEX_64, FLOAT_128, FLOAT_64, and result.
Definition at line 275 of file test_ar_intrin.c.
References _fcdlen, _fcdtocp, AR_Int_32_S, AR_Int_64_S, AR_power(), check_ar_result(), COMPLEX_128, COMPLEX_64, FLOAT_128, FLOAT_64, and result.
| void AR_STRTOD | ( | double* | answer | ) |
Definition at line 95 of file test_ar_intrin.c.
References AR_convert_str_to_float(), check_ar_result(), FLOAT_64, and result.
| static void check_ar_result | ( | char * | fname, | |
| int | flen, | |||
| AR_HOST_SINT64 * | ar_result, | |||
| int | ar_error, | |||
| AR_HOST_SINT64 * | answer, | |||
| int | rsize | |||
| ) | [static] |
Definition at line 394 of file test_ar_intrin.c.
References AR_STAT_INVALID_TYPE, AR_STAT_OVERFLOW, AR_STAT_UNDEFINED, fail, fprintf(), NULL, pass, prevflen, and prevfname.
| static void check_ar_result | ( | ) | [static] |
Referenced by AR_INTRIN1(), AR_INTRIN2(), and AR_STRTOD().
| int main | ( | ) |
Variable Documentation
AR_TYPE COMPLEX_128 = AR_Complex_IEEE_NR_128 [static] |
Definition at line 74 of file test_ar_intrin.c.
Referenced by AR_INTRIN1(), and AR_INTRIN2().
AR_TYPE COMPLEX_64 = AR_Complex_IEEE_NR_64 [static] |
Definition at line 73 of file test_ar_intrin.c.
Referenced by AR_INTRIN1(), and AR_INTRIN2().
int fail = 0 [static] |
Definition at line 48 of file test_ar_intrin.c.
Referenced by check_ar_result(), and main().
Definition at line 72 of file test_ar_intrin.c.
Referenced by AR_INTRIN1(), and AR_INTRIN2().
Definition at line 71 of file test_ar_intrin.c.
Referenced by AR_INTRIN1(), AR_INTRIN2(), and AR_STRTOD().
AR_TYPE INT_TYPE = AR_Int_64_S [static] |
Definition at line 70 of file test_ar_intrin.c.
int pass = 0 [static] |
Definition at line 47 of file test_ar_intrin.c.
Referenced by _fcleanup(), _flushall(), check_ar_result(), and main().
int prevflen [static] |
Definition at line 55 of file test_ar_intrin.c.
Referenced by check_ar_result(), and main().
char prevfname[8] [static] |
Definition at line 54 of file test_ar_intrin.c.
Referenced by check_ar_result().
char rcsid[] = "$Id: test_ar_intrin.c,v 1.4 2003-12-11 22:08:33 eraxxon Exp $" [static] |
Definition at line 457 of file test_ar_intrin.c.
AR_HOST_SINT64 result[4] [static] |
Definition at line 50 of file test_ar_intrin.c.
Referenced by __cq_int(), __cqcos(), __cqdiv(), __cqexp(), __cqlog(), __cqsin(), __cqsqrt(), __csqrt(), __dcis(), __iiqnnt(), __j_qmax1(), __j_qmin1(), __jiqnnt(), __kiqnnt(), __pow_qi(), __pow_ql(), __q_acosd(), __q_asind(), __q_atand(), __q_cosd(), __q_max1(), __q_min1(), __q_sind(), __q_tand(), __qatan2d(), __qconjg(), __qdim(), __qint(), __qldexp(), __qnint(), __qsign(), __rcis(), __zsqrt(), _ALL0(), _ALL0_1(), _ALL0_2(), _ALL0_4(), _ALL0_8(), _ANY0(), _ANY0_1(), _ANY0_2(), _ANY0_4(), _ANY0_8(), _COUNT0(), _COUNT0_1(), _COUNT0_2(), _COUNT0_4(), _COUNT0_8(), _MAXVAL0__D(), _MAXVAL0__I(), _MAXVAL0__I1(), _MAXVAL0__I2(), _MAXVAL0__I4(), _MAXVAL0__J(), _MAXVAL0__S(), _MAXVAL0__S4(), _MAXVAL0_D(), _MAXVAL0_I(), _MAXVAL0_I1(), _MAXVAL0_I2(), _MAXVAL0_I4(), _MAXVAL0_J(), _MAXVAL0_S(), _MAXVAL0_S4(), _MINVAL0__D(), _MINVAL0__I(), _MINVAL0__I1(), _MINVAL0__I2(), _MINVAL0__I4(), _MINVAL0__J(), _MINVAL0__S(), _MINVAL0__S4(), _MINVAL0_D(), _MINVAL0_I(), _MINVAL0_I1(), _MINVAL0_I2(), _MINVAL0_I4(), _MINVAL0_J(), _MINVAL0_S(), _MINVAL0_S4(), _SELECTED_REAL_KIND_(), _SELECTED_REAL_KIND_4_(), _SELECTED_REAL_KIND_8_(), _TRANSFER1_0(), _TRANSFER1_0_4(), _TRANSFER2_0(), _TRANSFER4_0(), _X_PUSH_(), ARRAY_DIRECTED_GRAPH16::Add_Edge(), ARRAY_DIRECTED_GRAPH16::Add_Vertex(), Adjusted_Type_Size(), WB_BROWSER::Alias_Walk(), AR_abs(), AR_conj(), AR_convert_str_to_int(), AR_dshiftl(), AR_dshiftr(), AR_ibits(), AR_INTRIN1(), AR_INTRIN2(), AR_ishft(), AR_ishftc(), AR_leadz(), AR_mask(), AR_one(), AR_popcnt(), AR_poppar(), AR_shiftl(), AR_shiftr(), AR_STRTOD(), assign_offset(), assign_offsets_for_equiv_groups(), Begin_ABI(), bitoper(), BS_Size(), c_atoq(), c_ji_qint(), c_ji_quint(), c_q_div(), c_q_ext(), c_q_extd(), c_q_flotj(), c_q_flotju(), c_q_flotk(), c_q_flotku(), c_q_neg(), c_q_trunc(), check_actual_and_dummy(), check_and_allocate_common_storage(), check_target_and_value(), cif_named_constant_rec(), cif_send_sytb(), PROJECTED_REGION::Compare(), compare_cn_and_value(), compare_message_recs(), compare_target_consts(), compare_value_to_cn(), convert_binary_literal(), convert_hex_literal(), convert_octal_literal(), Create_Operand_Use(), Create_Reg_Property(), cvrt_exp_to_pdg(), DEPV_Copy(), determine_tmp_size(), do_loop_expr_semantics(), Dot_To_Line(), Em_Begin_File(), Em_Dwarf_Write_Scns(), end_function_semantics(), equivalence_semantics(), ErrMsg_Report_Nonuser(), ErrMsg_Report_User(), f_int_to_cval(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), Find_Ty_Pointer(), fold_cc_expr(), gen_common_dv_init(), gen_dv_whole_def_init(), gen_init_stmt(), gen_sf_dv_whole_def(), get_operand_digit(), get_operand_dot(), get_operand_letter(), get_operand_quote(), get_operator(), get_operator_dot(), get_program_str(), get_temp_file(), get_token(), Get_Trace(), Get_Type_Block_Size(), Get_Type_From_ArrayOp(), good_data_imp_do_expr(), Hash(), Hazard_Create(), init_whole_array(), SEGMENTED_ARRAY< T, block_size >::Insert(), RELATED_SEGMENTED_ARRAY< T, block_size >::Insert(), INTRINSIC_LIST_lookup(), is_local_forall_index(), is_normal(), ISA_Enum_Opnd_Type_Create(), ISA_Lit_Opnd_Type_Create(), ISA_Pack_Type_Create(), ISA_Print_Type_Create(), ISA_Property_Create(), ISA_Reg_Opnd_Type_Create(), ISA_Register_Class_Create(), ISA_Register_Subclass_Create(), ISA_Subset_Create(), kai_mhalloc(), linearize_list_for_equiv(), load_pvp_word(), main(), MEM_POOL_Realloc_P(), merge_equivalence_groups2(), misc_tests(), Need_StoP_Cvt(), open_include_file(), STR_TAB< STR >::EqStringHashKey::operator()(), parse_id_directive(), parse_var_name_list(), PROC_Property_Create(), pvp_isnormal(), Raw_Allocate(), read_line(), ANL_FILE_MNGR::Read_Uint64(), Realloc_Clear(), return_stmt_semantics(), s_cat_kai(), set_stride_for_first_dim(), sign_bit(), SIMPNODE_SimplifyCvtl(), SIMPNODE_SimplifyExp1(), SIMPNODE_SimplifyExp2(), SIMPNODE_SimplifyExp2_h(), Spill_And_Take_Address(), stmt_is_DATA_stmt(), stmt_is_DO_stmt(), stor_bit_size_of(), storage_blk_resolution(), t_index(), t_scan(), t_verify(), TARG_INT_Pop_Count(), SEGMENTED_ARRAY< T, block_size >::Transfer(), RELATED_SEGMENTED_ARRAY< T, block_size >::Transfer(), TY_log_base2(), TY_pointer(), wait_send_semantics(), WN_Simplify_Rebuild_Expr_Tree(), and WN_Simplify_Tree().
char USMID[] = "\n%Z%%M% %I% %G% %U%\n" [static] |
Definition at line 456 of file test_ar_intrin.c.
