test_ar_intrin.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#include <fortran.h>
#include "arith.h"

Include dependency graph for test_ar_intrin.c:

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

void AR_INTRIN1	(	_fcd	func,
		AR_DATA*	opnd,
		AR_DATA*	answer
	)

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.

Here is the call graph for this function:

void AR_INTRIN2	(	_fcd	func,
		AR_DATA*	opnd1,
		AR_DATA*	opnd2,
		AR_DATA*	answer
	)

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.

Here is the call graph for this function:

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.

Here is the call graph for this function:

static void check_ar_result

(

)

[static]

Referenced by AR_INTRIN1(), AR_INTRIN2(), and AR_STRTOD().

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.

Here is the call graph for this function:

int main

(

)

Definition at line 78 of file test_ar_intrin.c.

References exit(), fail, pass, and prevflen.

Here is the call graph for this function:

---

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().

AR_TYPE FLOAT_128 = AR_Float_IEEE_NR_128 [static]

Definition at line 72 of file test_ar_intrin.c.

Referenced by AR_INTRIN1(), and AR_INTRIN2().

AR_TYPE FLOAT_64 = AR_Float_IEEE_NR_64 [static]

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__I(), _MAXVAL0__I1(), _MAXVAL0__I2(), _MAXVAL0__I4(), _MAXVAL0__J(), _MAXVAL0__S(), _MAXVAL0__S4(), _MAXVAL0_I(), _MAXVAL0_I1(), _MAXVAL0_I2(), _MAXVAL0_I4(), _MAXVAL0_J(), _MAXVAL0_S(), _MAXVAL0_S4(), _MINVAL0__I(), _MINVAL0__I1(), _MINVAL0__I2(), _MINVAL0__I4(), _MINVAL0__J(), _MINVAL0__S(), _MINVAL0__S4(), _MINVAL0_I(), _MINVAL0_I1(), _MINVAL0_I2(), _MINVAL0_I4(), _MINVAL0_J(), _MINVAL0_S(), _MINVAL0_S4(), _SELECTED_REAL_KIND_(), _TRANSFER1_0(), _TRANSFER2_0(), _X_PUSH_(), Adjusted_Type_Size(), AR_abs(), AR_add_ptr_int(), 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_1_2_Or_3_And_R(), BS_1_Not_2_Or_3_Minus_4_And_R(), BS_2_1_Minus_3_Or_4_And_5_And_6_And_R(), BS_2_1_Minus_3_Or_4_And_R(), BS_2_1_Minus_3_Or_R(), BS_IntersectionR(), BS_Size(), BS_UnionR(), 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(), store_pvp_word(), 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.