This graph shows which files directly or indirectly include this file:

Defines
#define	AT_WORK_IDX NULL_IDX /* Attr table work area */
#define	BD_FREE_LIST_IDX NULL_IDX /* Bounds table free list */
#define	BD_DEFERRED_1_IDX 1 /* Deferred shape - rank 1 */
#define	BD_DEFERRED_2_IDX 2 /* Deferred shape - rank 2 */
#define	BD_DEFERRED_3_IDX 3 /* Deferred shape - rank 3 */
#define	BD_DEFERRED_4_IDX 4 /* Deferred shape - rank 4 */
#define	BD_DEFERRED_5_IDX 5 /* Deferred shape - rank 5 */
#define	BD_DEFERRED_6_IDX 6 /* Deferred shape - rank 6 */
#define	BD_DEFERRED_7_IDX 7 /* Deferred shape - rank 7 */
#define	MAX_NUM_DIMS 7 /* Max # of dimensions we allow. */
#define	CN_INTEGER_ZERO_IDX 1
#define	CN_INTEGER_ONE_IDX 2
#define	CN_INTEGER_TWO_IDX 3
#define	CN_INTEGER_THREE_IDX 4
#define	CN_INTEGER_NEG_ONE_IDX 5
#define	CN_INTEGER_BITS_PER_WORD_IDX 6
#define	CN_INTEGER_CHAR_BIT_IDX 7 /* CHAR_BIT from limits.h */
#define	CN_INTEGER_MIN_IDX 8
#define	INTRINSIC_SCP_IDX NULL_IDX /* Intrinsic scope. */
#define	MAIN_SCP_IDX 1 /* Scope index of outer program */
#define	NAME_POOL_ZERO_IDX 1 /* The all zero entry - for LN */
#define	NAME_POOL_ONES_IDX 2 /* The all ones entry - for LN */
#define	TYP_WORK_IDX 0 /* Enter type table work area */
#define	DOUBLE_PRECISION_TYPE_IDX Num_Linear_Types
#define	DOUBLE_COMPLEX_TYPE_IDX Num_Linear_Types + 1
#define	NUM_AA_WDS 6
#define	NUM_AL_WDS 2
#define	NUM_AT_WDS 16
#define	NUM_BD_WDS 4
#define	NUM_BLK_STK_WDS 16
#define	NUM_CN_WDS 4
#define	OLD_NUM_CN_WDS 2
#define	NUM_CP_WDS 1
#define	NUM_CS_WDS 2
#define	NUM_EQ_WDS 8
#define	NUM_FP_WDS 6
#define	NUM_GA_WDS 8
#define	NUM_GB_WDS 2
#define	NUM_GL_WDS 10
#define	NUM_GN_WDS 2
#define	NUM_HN_WDS 2
#define	NUM_IL_WDS 4
#define	NUM_IR_WDS 8
#define	NUM_LN_WDS 2
#define	NUM_ML_WDS 12
#define	NUM_NP_WDS 1
#define	NUM_PDG_WDS 4
#define	NUM_RO_WDS 6
#define	NUM_SB_WDS 10
#define	NUM_SCP_WDS 52
#define	NUM_SH_WDS 6
#define	NUM_SN_WDS 4
#define	NUM_TYP_WDS 4
#define	SET_POINTER_SIZE (cmd_line_flags.s_pointer8)
#define	DV_DIM_WORD_SIZE 3 /* Size of dope vector dimen */
#define	DV_HD_WORD_SIZE 6 /* Size of dope vector header */
#define	DV_BASE_ADDR(DOPE) (DOPE).base_addr
#define	DV_EL_LEN(DOPE) (DOPE).el_len
#define	DV_ASSOC(DOPE) (DOPE).assoc
#define	DV_PTR_ALLOC(DOPE) (DOPE).ptr_alloc
#define	DV_P_OR_A(DOPE) (DOPE).p_or_a
#define	DV_A_CONTIG(DOPE) (DOPE).a_contig
#define	DV_NUM_DIMS(DOPE) (DOPE).num_dims
#define	DV_TYPE_CODE(DOPE) (DOPE).type_code
#define	DV_UNUSED_1(DOPE) (DOPE).unused_1
#define	DV_UNUSED_2(DOPE) (DOPE).unused_2
#define	DV_UNUSED_3(DOPE) (DOPE).unused_3
#define	DV_ORIG_BASE(DOPE) (DOPE).orig_base
#define	DV_ORIG_SIZE(DOPE) (DOPE).orig_size
#define	DV_LOW_BOUND(DOPE, IDX) (DOPE).dim[IDX].low_bound
#define	DV_EXTENT(DOPE, IDX) (DOPE).dim[IDX].extent
#define	DV_STRIDE_MULT(DOPE, IDX) (DOPE).dim[IDX].stride_mult
#define	DV_SET_BASE_ADDR(DOPE, RHS) (DOPE).base_addr = (RHS)
#define	DV_SET_EL_LEN(DOPE, RHS) (DOPE).el_len = (RHS)
#define	DV_SET_ASSOC(DOPE, RHS) (DOPE).assoc = (RHS)
#define	DV_SET_PTR_ALLOC(DOPE, RHS) (DOPE).ptr_alloc = (RHS)
#define	DV_SET_P_OR_A(DOPE, RHS) (DOPE).p_or_a = (RHS)
#define	DV_SET_A_CONTIG(DOPE, RHS) (DOPE).a_contig = (RHS)
#define	DV_SET_NUM_DIMS(DOPE, RHS) (DOPE).num_dims = (RHS)
#define	DV_SET_TYPE_CODE(DOPE, RHS) (DOPE).type_code = (RHS)
#define	DV_SET_UNUSED_1(DOPE, RHS) (DOPE).unused_1 = (RHS)
#define	DV_SET_UNUSED_2(DOPE, RHS) (DOPE).unused_2 = (RHS)
#define	DV_SET_UNUSED_3(DOPE, RHS) (DOPE).unused_3 = (RHS)
#define	DV_SET_ORIG_BASE(DOPE, RHS) (DOPE).orig_base = (RHS)
#define	DV_SET_ORIG_SIZE(DOPE, RHS) (DOPE).orig_size = (RHS)
#define	DV_SET_LOW_BOUND(DOPE, IDX, RHS) (DOPE).dim[IDX].low_bound = (RHS)
#define	DV_SET_EXTENT(DOPE, IDX, RHS) (DOPE).dim[IDX].extent = (RHS)
#define	DV_SET_STRIDE_MULT(DOPE, IDX, RHS) (DOPE).dim[IDX].stride_mult = (RHS)
#define	MAX_GENERATED_LABELS 99999 /* Max num compiler gen'd lbls*/
#define	MAX_IMPL_CHS 26 /* number of ASCII characters */
#define	MAX_ALTERNATE_ENTRIES 65535 /* Max num alt entries. */
#define	BD_LAST_USED_IDX 7 /* last reserved index */
#define	CN_LAST_USED_IDX 8
#define	CP_LAST_USED_IDX 7 /* last reserved index */
#define	CS_LAST_USED_IDX 1000 /* Must be the same as the initial */
#define	NP_LAST_USED_IDX 2 /* last reserved index */
#define	TYP_LAST_USED_IDX Num_Linear_Types + 1 /* 2 extra entries */
#define	MAX_INTRIN_TBL_SIZE 13400 /* max entries in intrinsic table */
#define	MAX_INTRIN_MAP_SIZE 59 /* max entries in intrinsic map */
#define	MAX_INLINE_ARGS 256 /* max actual args allowed on a */
#define	MAX_INLINE_LABELS 1000 /* max number of labels allowed in */
#define	MAX_INLINE_IR 100000 /* max number of IR entries allowed */
#define	MAX_INLINED_ROUTINES 1000 /* max number of distinct routines */
#define	STORAGE_WORD_SIZE(BIT_SIZE) (TARGET_BITS_TO_WORDS((BIT_SIZE)))
#define	AT_ACCESS_SET(IDX) attr_aux_tbl[IDX].fld.access_set
#define	AT_ACTUAL_ARG(IDX) attr_tbl[IDX].fld.passed_as_arg
#define	AT_ALT_DARG(IDX) attr_tbl[IDX].fld.alt_darg
#define	AT_ARG_TO_KIND(IDX) attr_aux_tbl[IDX].fld.arg_to_kind
#define	AT_ATTR_LINK(IDX) attr_tbl[IDX].fld.attr_link
#define	AT_CIF_DONE(IDX) attr_aux_tbl[IDX].fld.cif_done
#define	AT_CIF_IN_USAGE_REC(IDX) attr_aux_tbl[IDX].fld.cif_usage_rec
#define	AT_CIF_SYMBOL_ID(IDX) attr_aux_tbl[IDX].fld.cif_sym_id
#define	AT_CIF_USE_IN_BND(IDX) attr_aux_tbl[IDX].fld.cif_use_in_bnd
#define	AT_COMPILER_GEND(IDX) attr_tbl[IDX].fld.compiler_gend
#define	AT_DCL_ERR(IDX) attr_tbl[IDX].fld.dcl_err
#define	AT_DEF_LINE(IDX) attr_aux_tbl[IDX].fld.def_line
#define	AT_DEF_COLUMN(IDX) attr_aux_tbl[IDX].fld.def_column
#define	AT_DEF_IN_CHILD(IDX) attr_tbl[IDX].fld.def_in_child
#define	AT_DEFINED(IDX) attr_tbl[IDX].fld.defined
#define	AT_ELEMENTAL_INTRIN(IDX) attr_tbl[IDX].fld.elemental_intrin
#define	AT_HOST_ASSOCIATED(IDX) attr_tbl[IDX].fld.host_associated
#define	AT_IGNORE_ATTR_LINK(IDX) attr_tbl[IDX].fld.ignore_attr_link
#define	AT_IS_DARG(IDX) attr_tbl[IDX].fld.is_darg
#define	AT_IS_INTRIN(IDX) attr_tbl[IDX].fld.is_intrin
#define	AT_LOCKED_IN(IDX) attr_aux_tbl[IDX].fld.locked_in
#define	AT_MODULE_IDX(IDX) attr_tbl[IDX].fld.module_idx
#define	AT_MODULE_OBJECT(IDX) attr_tbl[IDX].fld.module_object
#define	AT_NAME_IDX(IDX) attr_tbl[IDX].fld.name_idx
#define	AT_NAME_LEN(IDX) attr_tbl[IDX].fld.length
#define	AT_NAMELIST_OBJ(IDX) attr_tbl[IDX].fld.namelist_obj
#define	AT_NOT_VISIBLE(IDX) attr_tbl[IDX].fld.not_visible
#define	AT_OBJ_CLASS(IDX) attr_tbl[IDX].fld.object_class
#define	AT_OBJ_NAME(IDX) name_pool[AT_NAME_IDX(IDX)].name_char
#define	AT_OBJ_NAME_LONG(IDX) &(name_pool[AT_NAME_IDX(IDX)].name_long)
#define	AT_OBJ_NAME_PTR(IDX) &name_pool[AT_NAME_IDX(IDX)].name_char
#define	AT_OPTIONAL(IDX) attr_tbl[IDX].fld.optional
#define	AT_ORIG_MODULE_IDX(IDX) attr_tbl[IDX].fld.orig_module_idx
#define	AT_ORIG_NAME_IDX(IDX) attr_tbl[IDX].fld.orig_name_idx
#define	AT_ORIG_NAME_LEN(IDX) attr_tbl[IDX].fld.orig_name_len
#define	AT_ORIG_NAME_PTR(IDX) &name_pool[AT_ORIG_NAME_IDX(IDX)].name_char
#define	AT_ORIG_NAME(IDX) name_pool[AT_ORIG_NAME_IDX(IDX)].name_char
#define	AT_ORIG_NAME_LONG(IDX) &(name_pool[AT_ORIG_NAME_IDX(IDX)].name_long)
#define	AT_PRIVATE(IDX) attr_tbl[IDX].fld.private_access
#define	AT_REF_IN_CHILD(IDX) attr_tbl[IDX].fld.ref_in_child
#define	AT_REFERENCED(IDX) attr_tbl[IDX].fld.referenced
#define	AT_SEMANTICS_DONE(IDX) attr_aux_tbl[IDX].fld.semantics_done
#define	AT_TYPED(IDX) attr_tbl[IDX].fld.typed
#define	AT_USE_ASSOCIATED(IDX) attr_tbl[IDX].fld.use_associated
#define	OLD_AT_HOST_ASSOCIATED(IDX) attr_tbl[IDX].old.host_associated
#define	OLD_AT_MODULE_IDX(IDX) attr_tbl[IDX].old.module_idx
#define	OLD_AT_MODULE_OBJECT(IDX) attr_tbl[IDX].old.module_object
#define	OLD_AT_NOT_VISIBLE(IDX) attr_tbl[IDX].old.not_visible
#define	OLD_AT_OBJ_CLASS(IDX) attr_tbl[IDX].old.object_class
#define	OLD_AT_USE_ASSOCIATED(IDX) attr_tbl[IDX].old.use_associated
#define	OLD_ATD_ALIGN_SYMBOL(IDX) attr_tbl[IDX].old.flag13
#define	OLD_ATD_ARRAY_IDX(IDX) attr_tbl[IDX].old.field5
#define	OLD_ATD_DISTRIBUTION_IDX(IDX) attr_tbl[IDX].old.field14
#define	OLD_ATD_FILL_SYMBOL(IDX) attr_tbl[IDX].old.flag14
#define	OLD_ATD_OFFSET_ASSIGNED(IDX) attr_tbl[IDX].old.flag16
#define	OLD_ATD_PE_ARRAY_IDX(IDX) attr_tbl[IDX].old.field15
#define	OLD_ATD_TYPE_IDX(IDX) attr_tbl[IDX].old.field1
#define	OLD_ATI_NUM_SPECIFICS(IDX) attr_tbl[IDX].old.field5
#define	OLD_ATL_CYCLE_LBL(IDX) attr_tbl[IDX].old.flag15
#define	OLD_ATL_DIRECTIVE_LIST(IDX) attr_tbl[IDX].fld2.field23
#define	OLD_ATL_NOTASK(IDX) attr_tbl[IDX].old.flag14
#define	OLD_ATL_PREFERVECTOR(IDX) attr_tbl[IDX].old.flag16
#define	OLD_ATL_TOP_OF_LOOP(IDX) attr_tbl[IDX].old.flag13
#define	OLD_ATP_EXPL_ITRFC(IDX) attr_tbl[IDX].old.flag14
#define	OLD_ATP_EXTERNAL_INTRIN(IDX) attr_tbl[IDX].old.flag16
#define	OLD_ATP_EXTRA_DARG(IDX) attr_tbl[IDX].old.flag15
#define	OLD_ATP_NUM_DARGS(IDX) attr_tbl[IDX].old.field5
#define	OLD_ATP_MOD_PATH_LEN(IDX) attr_tbl[IDX].old.field6
#define	OLD_ATP_SAVE_ALL(IDX) attr_tbl[IDX].old.flag13
#define	ATD_ALIGN_SYMBOL(IDX)
#define	ATD_ALIGNMENT(IDX)
#define	ATD_ALLOCATABLE(IDX)
#define	ATD_ARRAY_IDX(IDX) attr_tbl[IDX].fld.field1
#define	ATD_ASG_TMP(IDX)
#define	ATD_ASSIGN_TMP_IDX(IDX)
#define	ATD_AUTO_BASE_IDX(IDX)
#define	ATD_AUTOMATIC(IDX)
#define	ATD_AUXILIARY(IDX)
#define	ATD_BOUNDS_CHECK(IDX)
#define	ATD_CACHE_ALIGN(IDX)
#define	ATD_CACHE_BYPASS_ARRAY(IDX)
#define	ATD_CACHE_NOALLOC(IDX)
#define	ATD_CHAR_LEN_IN_DV(IDX)
#define	ATD_CLASS(IDX)
#define	ATD_CONST_IDX(IDX)
#define	ATD_COPY_ASSUMED_SHAPE(IDX)
#define	ATD_CPNT_INIT_IDX(IDX)
#define	ATD_CPNT_OFFSET_IDX(IDX)
#define	ATD_DATA_INIT(IDX)
#define	ATD_DCL_EQUIV(IDX)
#define	ATD_DEFINING_ATTR_IDX(IDX)
#define	ATD_DERIVED_TYPE_IDX(IDX)
#define	ATD_DISTRIBUTION_IDX(IDX)
#define	ATD_WAS_SCOPED(IDX)
#define	ATD_DV_ALIAS(IDX)
#define	ATD_DYNAMIC(IDX)
#define	ATD_ELEMENTAL_CALL_TMP(IDX)
#define	ATD_EQUIV(IDX)
#define	ATD_EQUIV_IN_BNDS_EXPR(IDX)
#define	ATD_EQUIV_LIST(IDX)
#define	ATD_EXPR_EVAL_TMP(IDX)
#define	ATD_FILL_SYMBOL(IDX)
#define	ATD_FIRST_SEEN_IL_IDX(IDX)
#define	ATD_FLD(IDX)
#define	ATD_FORALL_INDEX(IDX)
#define	ATD_FUNC_IDX(IDX)
#define	ATD_IGNORE_TKR(IDX)
#define	ATD_IM_A_DOPE(IDX)
#define	ATD_IMP_DO_LCV(IDX)
#define	ATD_IN_ASSIGN(IDX)
#define	ATD_IN_COMMON(IDX)
#define	ATD_INTENT(IDX)
#define	ATD_INTRIN_DARG(IDX)
#define	ATD_INTRIN_DARG_TYPE(IDX)
#define	ATD_LCV_IS_CONST(IDX)
#define	ATD_LIVE_DO_VAR(IDX)
#define	ATD_NEXT_MEMBER_IDX(IDX)
#define	ATD_NO_ENTRY_LIST(IDX)
#define	ATD_NOBOUNDS_CHECK(IDX)
#define	ATD_NOT_PT_UNIQUE_MEM(IDX) attr_tbl[IDX].fld.flag51
#define	ATD_OFFSET_ASSIGNED(IDX)
#define	ATD_OFFSET_FLD(IDX)
#define	ATD_OFFSET_IDX(IDX)
#define	ATD_PARENT_OBJECT(IDX)
#define	ATD_PE_ARRAY_IDX(IDX)
#define	ATD_PERMUTATION(IDX)
#define	ATD_POINTER(IDX)
#define	ATD_PTR_ASSIGNED(IDX)
#define	ATD_PTR_HALF_WORD(IDX)
#define	ATD_PTR_IDX(IDX)
#define	ATD_PTR_TYPE_SET(IDX)
#define	ATD_PURE(IDX)
#define	ATD_READ_ONLY_VAR(IDX)
#define	ATD_SAVED(IDX)
#define	ATD_SECTION_GP(IDX)
#define	ATD_SECTION_NON_GP(IDX)
#define	ATD_SF_ARG_IDX(IDX)
#define	ATD_SF_DARG(IDX)
#define	ATD_SF_LINK(IDX)
#define	ATD_STACK(IDX)
#define	ATD_STOR_BLK_IDX(IDX)
#define	ATD_RESHAPE_ARRAY_IDX(IDX)
#define	ATD_SYMMETRIC(IDX)
#define	ATD_RESHAPE_ARRAY_OPT(IDX)
#define	ATD_SEEN_AS_IO_LCV(IDX)
#define	ATD_SEEN_AS_LCV(IDX)
#define	ATD_SEEN_IN_IMP_DO(IDX)
#define	ATD_SEEN_OUTSIDE_IMP_DO(IDX)
#define	ATD_SYMBOLIC_CONSTANT(IDX)
#define	ATD_TARGET(IDX)
#define	ATD_TASK_COPYIN(IDX)
#define	ATD_TASK_GETFIRST(IDX)
#define	ATD_TASK_COPYPRIVATE(IDX)
#define	ATD_TASK_FIRSTPRIVATE(IDX)
#define	ATD_TASK_FLUSH(IDX)
#define	ATD_TASK_LASTLOCAL(IDX)
#define	ATD_TASK_LASTPRIVATE(IDX)
#define	ATD_TASK_LASTTHREAD(IDX)
#define	ATD_TASK_PRIVATE(IDX)
#define	ATD_TASK_REDUCTION(IDX)
#define	ATD_TASK_SHARED(IDX)
#define	ATD_TMP_GEN_ZERO(IDX)
#define	ATD_TMP_HAS_CVRT_OPR(IDX)
#define	ATD_TMP_IDX(IDX) attr_tbl[IDX].fld.field4
#define	ATD_TMP_INIT_NOT_DONE(IDX)
#define	ATD_TMP_NEEDS_CIF(IDX)
#define	ATD_TMP_SEMANTICS_DONE(IDX)
#define	ATD_TOO_BIG_FOR_DV(IDX)
#define	ATD_TYPE_IDX(IDX) attr_tbl[IDX].fld.field5
#define	ATD_VARIABLE_TMP_IDX(IDX)
#define	ATD_VOLATILE(IDX)
#define	ATI_CIF_SCOPE_ID(IDX)
#define	ATI_CIF_SEEN_IN_CALL(IDX)
#define	ATI_DCL_INTRINSIC(IDX)
#define	ATI_DEFINED_OPR(IDX)
#define	ATI_FIRST_SPECIFIC_IDX(IDX)
#define	ATI_GENERIC_INTRINSIC(IDX)
#define	ATI_HAS_NON_MOD_PROC(IDX)
#define	ATI_INLINE_ALWAYS(IDX)
#define	ATI_INLINE_NEVER(IDX)
#define	ATI_IPA_DIR_SPECIFIED(IDX)
#define	ATI_INTERFACE_CLASS(IDX)
#define	ATI_INTRIN_PASSABLE(IDX)
#define	ATI_INTRIN_TBL_IDX(IDX)
#define	ATI_NUM_SPECIFICS(IDX)
#define	ATI_PROC_IDX(IDX)
#define	ATI_SGI_ROUTINE_INLINE(IDX)
#define	ATI_SGI_ROUTINE_NOINLINE(IDX)
#define	ATI_UNNAMED_INTERFACE(IDX)
#define	ATI_USER_SPECIFIED(IDX)
#define	ATL_AGGRESSIVEINNERLOOPFISSION(IDX)
#define	ATL_ALIGN(IDX)
#define	ATL_ASG_LBL_CHAIN_START(IDX)
#define	ATL_BL(IDX)
#define	ATL_BLK_STMT_IDX(IDX)
#define	ATL_CLASS(IDX)
#define	ATL_CMIC_BLK_STMT_IDX(IDX)
#define	ATL_CONCURRENT(IDX)
#define	ATL_CONSTRUCTOR_LOOP(IDX)
#define	ATL_CNCALL(IDX)
#define	ATL_CYCLE_LBL(IDX)
#define	ATL_DEBUG_CLASS(IDX)
#define	ATL_DEF_STMT_IDX(IDX)
#define	ATL_CASE_LABEL(IDX)
#define	ATL_DIRECTIVE_LIST(IDX)
#define	ATL_EXECUTABLE(IDX)
#define	ATL_FISSIONABLE(IDX)
#define	ATL_FORMAT_TMP(IDX) attr_tbl[IDX].fld.field10
#define	ATL_FUSABLE(IDX)
#define	ATL_FUSION(IDX)
#define	ATL_FWD_REF_IDX(IDX)
#define	ATL_IN_ASSIGN(IDX)
#define	ATL_IN_ASSIGN_LBL_CHAIN(IDX)
#define	ATL_IVDEP(IDX)
#define	ATL_MAXCPUS(IDX)
#define	ATL_NEW_LBL_IDX(IDX)
#define	ATL_NEXT_ASG_LBL_IDX(IDX)
#define	ATL_NEXTSCALAR(IDX)
#define	ATL_NOBLOCKING(IDX)
#define	ATL_NOFISSION(IDX)
#define	ATL_NOFUSION(IDX)
#define	ATL_NOINTERCHANGE(IDX)
#define	ATL_NORECURRENCE(IDX)
#define	ATL_NOTASK(IDX)
#define	ATL_NOVECTOR(IDX)
#define	ATL_NOVSEARCH(IDX)
#define	ATL_PATTERN(IDX)
#define	ATL_PERMUTATION(IDX)
#define	ATL_PP_FORMAT_TMP(IDX)
#define	ATL_PREFERSTREAM(IDX)
#define	ATL_PREFERSTREAM_NOCINV(IDX)
#define	ATL_PREFERTASK(IDX)
#define	ATL_PREFERVECTOR(IDX)
#define	ATL_SHORTLOOP(IDX)
#define	ATL_SHORTLOOP128(IDX)
#define	ATL_SPLIT(IDX)
#define	ATL_STREAM(IDX)
#define	ATL_INFORM_ONLY(IDX)
#define	ATL_TOP_OF_LOOP(IDX)
#define	ATL_UNROLL_DIR(IDX)
#define	ATN_FIRST_NAMELIST_IDX(IDX)
#define	ATN_LAST_NAMELIST_IDX(IDX)
#define	ATN_NAMELIST_DESC(IDX)
#define	ATN_NUM_NAMELIST(IDX)
#define	ATP_ALIGN(IDX)
#define	ATP_ALL_INTENT_IN(IDX)
#define	ATP_ALT_ENTRY(IDX)
#define	ATP_ARGCHCK_CALL(IDX)
#define	ATP_ARGCHCK_ENTRY(IDX)
#define	ATP_CIF_DARG_PROC(IDX)
#define	ATP_DCL_EXTERNAL(IDX)
#define	ATP_DOES_NOT_RETURN(IDX)
#define	ATP_DUMMY_PROC_LINK(IDX)
#define	ATP_DUPLICATE_INTERFACE_IDX(IDX)
#define	ATP_ELEMENTAL(IDX) attr_tbl[IDX].fld.flag31
#define	ATP_ENTRY_LABEL_SH_IDX(IDX)
#define	ATP_EXT_NAME_IDX(IDX)
#define	ATP_EXT_NAME(IDX) name_pool[ATP_EXT_NAME_IDX(IDX)].name_char
#define	ATP_EXT_NAME_LONG(IDX) &(name_pool[ATP_EXT_NAME_IDX(IDX)].name_long)
#define	ATP_EXT_NAME_PTR(IDX) &name_pool[ATP_EXT_NAME_IDX(IDX)].name_char
#define	ATP_EXT_NAME_LEN(IDX)
#define	ATP_EXPL_ITRFC(IDX) attr_tbl[IDX].fld.flag41
#define	ATP_EXTERNAL_INTRIN(IDX)
#define	ATP_EXTRA_DARG(IDX) attr_tbl[IDX].fld.flag42
#define	ATP_FIRST_IDX(IDX)
#define	ATP_FIRST_SH_IDX(IDX)
#define	ATP_GLOBAL_ATTR_IDX(IDX)
#define	ATP_HAS_ALT_RETURN(IDX)
#define	ATP_HAS_OVER_INDEXING(IDX)
#define	ATP_HAS_TASK_DIRS(IDX)
#define	ATP_IMPLICIT_USE_MODULE(IDX)
#define	ATP_IN_INTERFACE_BLK(IDX)
#define	ATP_IN_UNNAMED_INTERFACE(IDX)
#define	ATP_INDIRECT_MODULE(IDX)
#define	ATP_INLINE_ALWAYS(IDX)
#define	ATP_INLINE_NEVER(IDX)
#define	ATP_INTERFACE_IDX(IDX) attr_tbl[IDX].fld.field4
#define	ATP_INTRIN_ENUM(IDX) attr_tbl[IDX].fld.field10
#define	ATP_IN_CURRENT_COMPILE(IDX)
#define	ATP_MAY_INLINE(IDX)
#define	ATP_MOD_PATH_IDX(IDX)
#define	ATP_MOD_PATH_NAME_PTR(IDX) &name_pool[ATP_MOD_PATH_IDX(IDX)].name_char
#define	ATP_MOD_PATH_LEN(IDX)
#define	ATP_MODULE_STR_IDX(IDX)
#define	ATP_NAME_IN_STONE(IDX) attr_tbl[IDX].fld.flag20
#define	ATP_NO_ENTRY_LIST(IDX)
#define	ATP_NON_ANSI_INTRIN(IDX)
#define	ATP_NOSIDE_EFFECTS(IDX)
#define	ATP_NUM_DARGS(IDX)
#define	ATP_PARENT_IDX(IDX)
#define	ATP_PGM_UNIT(IDX)
#define	ATP_OPTIONAL_DIR(IDX)
#define	ATP_PROC(IDX) attr_tbl[IDX].fld.field2
#define	ATP_PURE(IDX)
#define	ATP_RECURSIVE(IDX)
#define	ATP_RSLT_IDX(IDX) attr_tbl[IDX].fld.field8
#define	ATP_RSLT_NAME(IDX)
#define	ATP_SAVE_ALL(IDX)
#define	ATP_SCP_ALIVE(IDX)
#define	ATP_SCP_IDX(IDX)
#define	ATP_SGI_LOCAL_INLINE(IDX)
#define	ATP_SGI_LOCAL_NOINLINE(IDX)
#define	ATP_SGI_GLOBAL_INLINE(IDX)
#define	ATP_SGI_GLOBAL_NOINLINE(IDX)
#define	ATP_SGI_ROUTINE_INLINE(IDX)
#define	ATP_SGI_ROUTINE_NOINLINE(IDX)
#define	ATP_STACK_DIR(IDX)
#define	ATP_SYMMETRIC(IDX)
#define	ATP_SYSTEM_MODULE(IDX)
#define	ATP_TASK_SHARED(IDX)
#define	ATP_USE_LIST(IDX)
#define	ATP_USE_TYPE(IDX)
#define	ATP_USES_EREGS(IDX)
#define	ATP_VFUNCTION(IDX)
#define	ATP_COARRAY_CONCURRENT(IDX)
#define	ATS_SF_ACTIVE(IDX)
#define	ATS_SF_FLD(IDX)
#define	ATS_SF_IDX(IDX)
#define	ATS_SF_SEMANTICS_DONE(IDX)
#define	OLD_ATT_16_BIT_ALIGN(IDX)
#define	OLD_ATT_8_BIT_ALIGN(IDX)
#define	OLD_ATT_HALF_WORD_ALIGN(IDX)
#define	ATT_TY_IDX(IDX)
#define	ATT_ALIGNMENT(IDX)
#define	ATT_CHAR_CPNT(IDX)
#define	ATT_CHAR_SEQ(IDX)
#define	ATT_CIF_DT_ID(IDX)
#define	ATT_DALIGN_ME(IDX)
#define	ATT_DCL_NUMERIC_SEQ(IDX)
#define	ATT_DEFAULT_INITIALIZED(IDX)
#define	ATT_FIRST_CPNT_IDX(IDX)
#define	ATT_GLOBAL_TYPE_IDX(IDX)
#define	ATT_LABEL_LIST_IDX(IDX)
#define	ATT_NON_DEFAULT_CPNT(IDX)
#define	ATT_NUM_CPNTS(IDX)
#define	ATT_NUMERIC_CPNT(IDX)
#define	ATT_POINTER_CPNT(IDX)
#define	ATT_PRIVATE_CPNT(IDX)
#define	ATT_SCP_IDX(IDX)
#define	ATT_SEQUENCE_SET(IDX)
#define	ATT_STRUCT_BIT_LEN_FLD(IDX)
#define	ATT_STRUCT_BIT_LEN_IDX(IDX)
#define	ATT_UNIQUE_ID(IDX)
#define	AL_ATTR_IDX(IDX) attr_list_tbl[IDX].attr_idx
#define	AL_EQ_IDX(IDX) attr_list_tbl[IDX].attr_idx
#define	AL_NEXT_IDX(IDX) attr_list_tbl[IDX].next_idx
#define	AL_IDX_IS_EQ(IDX) attr_list_tbl[IDX].flag1
#define	AL_FREE(IDX) attr_list_tbl[IDX].flag2
#define	AL_ENTRY_COUNT(IDX) attr_list_tbl[IDX].prev_idx
#define	AL_PREV_MODULE_IDX(IDX) attr_list_tbl[IDX].prev_idx
#define	BD_ARRAY_CLASS(IDX) bounds_tbl[IDX].hdr.array_class
#define	BD_ARRAY_SIZE(IDX) bounds_tbl[IDX].hdr.array_size
#define	BD_COLUMN_NUM(IDX) bounds_tbl[IDX].hdr.column_num
#define	BD_DCL_ERR(IDX) bounds_tbl[IDX].hdr.error
#define	BD_DIST_NTRY(IDX) bounds_tbl[IDX].hdr.dist_ntry
#define	BD_DISTRIBUTE_RESHAPE(IDX) bounds_tbl[IDX].hdr.dist_reshape
#define	BD_GLOBAL_IDX(IDX) bounds_tbl[IDX].hdr.global_idx
#define	BD_LEN_FLD(IDX) bounds_tbl[IDX].hdr.len_fld
#define	BD_LEN_IDX(IDX) bounds_tbl[IDX].hdr.len_idx
#define	BD_LINE_NUM(IDX) bounds_tbl[IDX].hdr.line_num
#define	BD_NEXT_FREE_NTRY(IDX) bounds_tbl[IDX].hdr.next_free_ntry
#define	BD_NTRY_SIZE(IDX) bounds_tbl[IDX].hdr.ntry_size
#define	BD_RANK(IDX) bounds_tbl[IDX].hdr.rank
#define	BD_RESOLVED(IDX) bounds_tbl[IDX].hdr.resolved
#define	BD_USED_NTRY(IDX) bounds_tbl[IDX].hdr.used_ntry
#define	BD_FLOW_DEPENDENT(IDX) bounds_tbl[IDX].hdr.flow_dep
#define	BD_LB_FLD(IDX, DIM)
#define	BD_LB_IDX(IDX, DIM)
#define	BD_SM_IDX(IDX, DIM)
#define	BD_SM_FLD(IDX, DIM)
#define	BD_UB_FLD(IDX, DIM)
#define	BD_UB_IDX(IDX, DIM)
#define	BD_XT_FLD(IDX, DIM)
#define	BD_XT_IDX(IDX, DIM)
#define	BD_CYCLIC_FLD(IDX, DIM)
#define	BD_CYCLIC_IDX(IDX, DIM)
#define	BD_ONTO_FLD(IDX, DIM)
#define	BD_ONTO_IDX(IDX, DIM)
#define	BD_DISTRIBUTION(IDX, DIM)
#define	CS_CN_IDX(IDX) const_search_tbl[IDX].const_tbl_idx
#define	CN_BOZ_CONSTANT(IDX) const_tbl[IDX].boz_constant
#define	CN_BOOLEAN_CONSTANT(IDX) const_tbl[IDX].boolean_constant
#define	CN_HOLLERITH_ENDIAN(IDX) const_tbl[IDX].hollerith_endian
#define	CN_HOLLERITH_TYPE(IDX) const_tbl[IDX].hollerith_fld
#define	CN_EXTRA_ZERO_WORD(IDX) const_tbl[IDX].extra_zero_word
#define	CN_POOL_IDX(IDX) const_tbl[IDX].const_pool_idx
#define	CN_CONST(IDX) const_pool[CN_POOL_IDX(IDX)]
#define	CN_TYPE_IDX(IDX) const_tbl[IDX].type_idx
#define	CN_LEFT_CHILD(IDX) const_tbl[IDX].left_child
#define	CN_RIGHT_CHILD(IDX) const_tbl[IDX].right_child
#define	CN_BALANCE_FACTOR(IDX) const_tbl[IDX].balance_factor
#define	CP_CONSTANT(IDX) const_pool[IDX]
#define	EQ_ATTR_IDX(IDX) equiv_tbl[IDX].attr_idx
#define	EQ_COLUMN_NUM(IDX) equiv_tbl[IDX].column_num
#define	EQ_DALIGN_ME(IDX) equiv_tbl[IDX].dalign_me
#define	EQ_DALIGN_SHIFT(IDX) equiv_tbl[IDX].dalign_shift
#define	EQ_DO_NOT_DALIGN(IDX) equiv_tbl[IDX].do_not_dalign
#define	EQ_ERROR(IDX) equiv_tbl[IDX].error
#define	EQ_GRP_END_IDX(IDX) equiv_tbl[IDX].grp_end_idx
#define	EQ_GRP_IDX(IDX) equiv_tbl[IDX].grp_idx
#define	EQ_LINE_NUM(IDX) equiv_tbl[IDX].line_num
#define	EQ_LIST_IDX(IDX) equiv_tbl[IDX].list_idx
#define	EQ_MERGED(IDX) equiv_tbl[IDX].merged
#define	EQ_NEXT_EQUIV_GRP(IDX) equiv_tbl[IDX].next_equiv_grp
#define	EQ_NEXT_EQUIV_OBJ(IDX) equiv_tbl[IDX].next_equiv_obj
#define	EQ_OFFSET_FLD(IDX) equiv_tbl[IDX].fld
#define	EQ_OFFSET_IDX(IDX) equiv_tbl[IDX].offset_idx
#define	EQ_OPND_FLD(IDX) equiv_tbl[IDX].opnd_fld
#define	EQ_OPND_IDX(IDX) equiv_tbl[IDX].opnd_idx
#define	EQ_SEARCH_DONE(IDX) equiv_tbl[IDX].search_done
#define	EQ_SEMANTICS_DONE(IDX) equiv_tbl[IDX].semantics_done
#define	EQ_SUBSTRINGED(IDX) equiv_tbl[IDX].substring
#define	FP_CIF_ID(IDX) file_path_tbl[IDX].cif_id
#define	FP_CLASS(IDX) file_path_tbl[IDX].file_class
#define	FP_TMP_FILE(IDX) file_path_tbl[IDX].tmp_file
#define	FP_FILE_IDX(IDX) file_path_tbl[IDX].file_idx
#define	FP_MODULE_IDX(IDX) file_path_tbl[IDX].next_idx
#define	FP_MODULE_INLINE_IDX(IDX) file_path_tbl[IDX].module_inline_idx
#define	FP_NAME_IDX(IDX) file_path_tbl[IDX].name_idx
#define	FP_NAME_LEN(IDX) file_path_tbl[IDX].name_len
#define	FP_NAME(IDX) (str_pool[FP_NAME_IDX(IDX)].name_char)
#define	FP_NAME_LONG(IDX) &(str_pool[FP_NAME_IDX(IDX)].name_long)
#define	FP_NAME_PTR(IDX) &str_pool[FP_NAME_IDX(IDX)].name_char
#define	FP_NEXT_FILE_IDX(IDX) file_path_tbl[IDX].next_file_idx
#define	FP_OFFSET(IDX) file_path_tbl[IDX].offset
#define	FP_OUTPUT_TO_O(IDX) file_path_tbl[IDX].output_to_o
#define	FP_SRCH_THE_FILE(IDX) file_path_tbl[IDX].srch_the_file
#define	FP_SYSTEM_FILE(IDX) file_path_tbl[IDX].system_file
#define	GA_COMPILER_GEND(IDX) global_attr_tbl[IDX].fld.compiler_gend
#define	GA_DEF_LINE(IDX) global_attr_tbl[IDX].fld.def_line
#define	GA_DEF_COLUMN(IDX) global_attr_tbl[IDX].fld.def_column
#define	GA_DEFINED(IDX) global_attr_tbl[IDX].fld.defined
#define	GA_MODULE_IDX(IDX) global_attr_tbl[IDX].fld.module_idx
#define	GA_NAME_IDX(IDX) global_attr_tbl[IDX].fld.name_idx
#define	GA_NAME_LEN(IDX) global_attr_tbl[IDX].fld.length
#define	GA_OBJ_CLASS(IDX) global_attr_tbl[IDX].fld.object_class
#define	GA_OBJ_NAME_LONG(IDX) &(str_pool[GA_NAME_IDX(IDX)].name_long)
#define	GA_OBJ_NAME_PTR(IDX) &str_pool[GA_NAME_IDX(IDX)].name_char
#define	GA_OPTIONAL(IDX) global_attr_tbl[IDX].fld.optional
#define	GA_ORIG_NAME_LEN(IDX) global_attr_tbl[IDX].fld.orig_name_len
#define	GA_ORIG_NAME_IDX(IDX) global_attr_tbl[IDX].fld.orig_name_idx
#define	GA_ORIG_NAME_PTR(IDX) &str_pool[GA_ORIG_NAME_IDX(IDX)].name_char
#define	GA_ORIG_NAME_LONG(IDX) &(str_pool[GA_ORIG_NAME_IDX(IDX)].name_long)
#define	GA_REFERENCED(IDX) global_attr_tbl[IDX].fld.referenced
#define	GA_USE_ASSOCIATED(IDX) global_attr_tbl[IDX].fld.use_associated
#define	GAD_ARRAY_ELEMENT_REF(IDX)
#define	GAD_ARRAY_IDX(IDX)
#define	GAD_ASSUMED_SHAPE_ARRAY(IDX)
#define	GAD_CLASS(IDX)
#define	GAD_HOLLERITH(IDX)
#define	GAD_IGNORE_TKR(IDX)
#define	GAD_INTENT(IDX)
#define	GAD_NEXT_IDX(IDX)
#define	GAD_POINTER(IDX)
#define	GAD_RANK(IDX)
#define	GAD_TARGET(IDX)
#define	GAD_TYPE_IDX(IDX)
#define	GAC_ALIGN_SYMBOL(IDX)
#define	GAC_AUXILIARY(IDX)
#define	GAC_CACHE_ALIGN(IDX)
#define	GAC_EQUIVALENCED(IDX)
#define	GAC_FILL_SYMBOL(IDX)
#define	GAC_FIRST_MEMBER_IDX(IDX)
#define	GAC_FOUND_DIFFS(IDX)
#define	GAC_PGM_UNIT_IDX(IDX)
#define	GAC_SECTION_GP(IDX)
#define	GAC_SECTION_NON_GP(IDX)
#define	GAC_TASK_COMMON(IDX)
#define	GAP_ELEMENTAL(IDX)
#define	GAP_FIRST_IDX(IDX)
#define	GAP_FP_IDX(IDX)
#define	GAP_GLOBAL_DIR(IDX)
#define	GAP_IN_INTERFACE_BLK(IDX)
#define	GAP_NEEDS_EXPL_ITRFC(IDX) global_attr_tbl[IDX].fld.flag1
#define	GAP_NEXT_PGM_UNIT_IDX(IDX)
#define	GAP_NOSIDE_EFFECTS(IDX)
#define	GAP_NUM_DARGS(IDX)
#define	GAP_PGM_UNIT(IDX)
#define	GAP_PGM_UNIT_DEFINED(IDX)
#define	GAP_PURE(IDX)
#define	GAP_RECURSIVE(IDX)
#define	GAP_RSLT_IDX(IDX)
#define	GAP_INLINE_STATE(IDX)
#define	GAP_VFUNCTION(IDX)
#define	GAT_FIRST_CPNT_IDX(IDX)
#define	GAT_NUM_CPNTS(IDX)
#define	GAT_PRIVATE_CPNT(IDX)
#define	GAT_SEQUENCE_SET(IDX)
#define	GAT_STRUCT_LIN_TYPE(IDX)
#define	GAT_STRUCT_BIT_LEN(IDX)
#define	GB_ARRAY_CLASS(IDX) global_bounds_tbl[IDX].hdr.array_class
#define	GB_ARRAY_SIZE(IDX) global_bounds_tbl[IDX].hdr.array_size
#define	GB_RANK(IDX) global_bounds_tbl[IDX].hdr.rank
#define	GB_LOWER_BOUND(IDX, DIM) global_bounds_tbl[(IDX)+(DIM*3)-2].len
#define	GB_UPPER_BOUND(IDX, DIM) global_bounds_tbl[(IDX)+(DIM*3)-1].len
#define	GB_LB_TYPE(IDX, DIM) global_bounds_tbl[(IDX)+(DIM*3)].type.lb_type
#define	GB_UB_TYPE(IDX, DIM) global_bounds_tbl[(IDX)+(DIM*3)].type.ub_type
#define	GL_CIF_FILE_ID(IDX) global_line_tbl[IDX].cif_file_id
#define	GL_FILE_LINE(IDX) global_line_tbl[IDX].file_line
#define	GL_FILE_NAME_IDX(IDX) global_line_tbl[IDX].file_name_idx
#define	GL_FILE_NAME_LEN(IDX) global_line_tbl[IDX].file_name_len
#define	GL_GLOBAL_LINE(IDX) global_line_tbl[IDX].global_line
#define	GL_INCLUDE_FILE_COL(IDX) global_line_tbl[IDX].incld_file_col
#define	GL_INCLUDE_FILE_LINE(IDX) global_line_tbl[IDX].incld_file_line
#define	GL_PATH_NAME_IDX(IDX) global_line_tbl[IDX].path_name_idx
#define	GL_PATH_NAME_LEN(IDX) global_line_tbl[IDX].path_name_len
#define	GL_SOURCE_LINES(IDX) global_line_tbl[IDX].source_lines
#define	GL_FILE_NAME_LONG(IDX) &(str_pool[GL_FILE_NAME_IDX(IDX)].name_long)
#define	GL_FILE_NAME_PTR(IDX) &str_pool[GL_FILE_NAME_IDX(IDX)].name_char
#define	GL_PATH_NAME_LONG(IDX) &(str_pool[GL_PATH_NAME_IDX(IDX)].name_long)
#define	GL_PATH_NAME_PTR(IDX) &str_pool[GL_PATH_NAME_IDX(IDX)].name_char
#define	GN_ATTR_IDX(IDX) global_name_tbl[IDX].attr_idx
#define	GN_NAME_IDX(IDX) global_name_tbl[IDX].name_idx
#define	GN_NAME_LEN(IDX) global_name_tbl[IDX].name_len
#define	GN_NAME_LONG(IDX) &(str_pool[GN_NAME_IDX(IDX)].name_long)
#define	GN_NAME_PTR(IDX) &str_pool[GN_NAME_IDX(IDX)].name_char
#define	GT_BIT_LEN(IDX) global_type_tbl[IDX].fld.bit_len
#define	GT_CHAR_CLASS(IDX) global_type_tbl[IDX].fld.char_class
#define	GT_DCL_VALUE(IDX) global_type_tbl[IDX].fld.dcl_value
#define	GT_DESC(IDX) global_type_tbl[IDX].fld.desc
#define	GT_STRUCT_IDX(IDX) global_type_tbl[IDX].fld.type_idx
#define	GT_LENGTH(IDX) global_type_tbl[IDX].wd.length
#define	GT_LENGTH_LIN_TYPE(IDX) global_type_tbl[IDX].fld.len_lin_type
#define	GT_LINEAR_TYPE(IDX) global_type_tbl[IDX].fld.linear_type
#define	GT_PTR_INCREMENT(IDX) global_type_tbl[IDX].wd.length[MAX_WORDS_FOR_INTEGER]
#define	GT_TYPE(IDX) global_type_tbl[IDX].fld.type
#define	HN_ATTR_IDX(IDX) hidden_name_tbl[IDX].attr_idx
#define	HN_NAME_IDX(IDX) hidden_name_tbl[IDX].name_idx
#define	HN_NAME_LEN(IDX) hidden_name_tbl[IDX].name_len
#define	SCP_ATTR_IDX(IDX) scp_tbl[IDX].wd[0].fld1.field2
#define	SCP_LN_FW_IDX(IDX) scp_tbl[IDX].wd[1].fld1.field2
#define	SCP_LN_LW_IDX(IDX) scp_tbl[IDX].wd[2].fld1.field2
#define	SCP_FIRST_SH_IDX(IDX) scp_tbl[IDX].wd[3].fld1.field2
#define	SCP_LAST_SH_IDX(IDX) scp_tbl[IDX].wd[4].fld1.field2
#define	SCP_EXIT_IR_SH_IDX(IDX) scp_tbl[IDX].wd[5].fld1.field2
#define	SCP_ASSIGN_LBL_CHAIN(IDX) scp_tbl[IDX].wd[6].fld1.field2
#define	SCP_CIF_ID(IDX) scp_tbl[IDX].wd[7].fld1.field2
#define	SCP_HN_FW_IDX(IDX) scp_tbl[IDX].wd[8].fld1.field2
#define	SCP_HN_LW_IDX(IDX) scp_tbl[IDX].wd[9].fld1.field2
#define	SCP_OPTIONAL_CHAR_TMP(IDX) scp_tbl[IDX].wd[10].fld1.field2
#define	SCP_RETURN_LABEL(IDX) scp_tbl[IDX].wd[11].fld1.field2
#define	SCP_COPY_ASSUMED_LIST(IDX) scp_tbl[IDX].wd[12].fld1.field2
#define	SCP_WHICH_ENTRY_TMP(IDX) scp_tbl[IDX].wd[13].fld1.field2
#define	SCP_RESHAPE_ARRAY_LIST(IDX) scp_tbl[IDX].wd[14].fld1.field2
#define	SCP_DEFAULT_STORAGE(IDX) scp_tbl[IDX].wd[24].fld2.field4
#define	SCP_LEVEL(IDX) scp_tbl[IDX].wd[23].fld2.field4
#define	SCP_CIF_ERR_LIST(IDX) scp_tbl[IDX].wd[23].fld2.field5
#define	SCP_IS_INTERFACE(IDX) scp_tbl[IDX].wd[0].fld1.flag1
#define	SCP_IN_ERR(IDX) scp_tbl[IDX].wd[0].fld1.flag2
#define	SCP_IS_USED_PROC(IDX) scp_tbl[IDX].wd[0].fld1.flag3
#define	SCP_IMPL_NONE(IDX) scp_tbl[IDX].wd[1].fld1.flag1
#define	SCP_PARENT_NONE(IDX) scp_tbl[IDX].wd[1].fld1.flag2
#define	SCP_COPY_ASSUMED_SHAPE(IDX) scp_tbl[IDX].wd[1].fld1.flag3
#define	SCP_IGNORE_TKR(IDX) scp_tbl[IDX].wd[2].fld1.flag1
#define	SCP_HAS_CALLS(IDX) scp_tbl[IDX].wd[2].fld1.flag2
#define	SCP_DOES_IO(IDX) scp_tbl[IDX].wd[2].fld1.flag3
#define	SCP_INLINE_SGI(IDX) scp_tbl[IDX].wd[3].fld1.flag2
#define	SCP_NOINLINE_SGI(IDX) scp_tbl[IDX].wd[3].fld1.flag3
#define	SCP_DBG_PRINT_SYTB(IDX) scp_tbl[IDX].wd[25].fld1.flag1
#define	SCP_DBG_PRINT_STMT(IDX) scp_tbl[IDX].wd[25].fld1.flag2
#define	SCP_SIBLING_IDX(IDX) scp_tbl[IDX].wd[0].fld1.field3
#define	SCP_LAST_CHILD_IDX(IDX) scp_tbl[IDX].wd[1].fld1.field3
#define	SCP_TMP_FW_IDX2(IDX) scp_tbl[IDX].wd[2].fld1.field3
#define	SCP_PARENT_IDX(IDX) scp_tbl[IDX].wd[3].fld1.field3
#define	SCP_FIRST_CHILD_IDX(IDX) scp_tbl[IDX].wd[4].fld1.field3
#define	SCP_NUM_CHILDREN(IDX) scp_tbl[IDX].wd[5].fld1.field3
#define	SCP_DARG_LIST(IDX) scp_tbl[IDX].wd[6].fld1.field3
#define	SCP_ENTRY_IDX(IDX) scp_tbl[IDX].wd[7].fld1.field3
#define	SCP_USED_MODULE_LIST(IDX) scp_tbl[IDX].wd[8].fld1.field3
#define	SCP_FIRST_EQUIV_GRP(IDX) scp_tbl[IDX].wd[9].fld1.field3
#define	SCP_TMP_LIST(IDX) scp_tbl[IDX].wd[10].fld1.field3
#define	SCP_TMP_FW_IDX(IDX) scp_tbl[IDX].wd[11].fld1.field3
#define	SCP_SB_HOSTED_STACK_IDX(IDX) scp_tbl[IDX].wd[12].fld1.field3
#define	SCP_SB_STACK_IDX(IDX) scp_tbl[IDX].wd[13].fld1.field3
#define	SCP_SB_BASED_IDX(IDX) scp_tbl[IDX].wd[14].fld1.field3
#define	SCP_SB_DARG_IDX(IDX) scp_tbl[IDX].wd[15].fld1.field3
#define	SCP_SB_STATIC_IDX(IDX) scp_tbl[IDX].wd[16].fld1.field3
#define	SCP_SB_SYMMETRIC_IDX(IDX) scp_tbl[IDX].wd[17].fld1.field3
#define	SCP_ATTR_LIST_END(IDX) scp_tbl[IDX].wd[18].fld1.field3
#define	SCP_SB_HOSTED_STATIC_IDX(IDX) scp_tbl[IDX].wd[19].fld1.field3
#define	SCP_SB_STATIC_INIT_IDX(IDX) scp_tbl[IDX].wd[20].fld1.field3
#define	SCP_ATTR_LIST(IDX) scp_tbl[IDX].wd[21].fld1.field3
#define	SCP_ALT_ENTRY_CNT(IDX) scp_tbl[IDX].wd[22].fld1.field3
#define	SCP_SB_STATIC_UNINIT_IDX(IDX) scp_tbl[IDX].wd[23].fld1.field3
#define	SCP_SB_HOSTED_DATA_IDX(IDX) scp_tbl[IDX].wd[24].fld1.field3
#define	SCP_FILE_PATH_IDX(IDX) scp_tbl[IDX].wd[25].fld1.field3
#define	IMPL_IDX(CH) CH - 'A'
#define	IM_SET(SIDX, IDX) scp_tbl[SIDX].wd[IDX].fld1.typed
#define	IM_STORAGE(SIDX, IDX) scp_tbl[SIDX].wd[IDX].fld1.storage
#define	IM_TYPE_IDX(SIDX, IDX) scp_tbl[SIDX].wd[IDX].fld1.type_idx
#define	OLD_IR_OPR(IDX) old_ir_tbl[IDX].opr.the_operator
#define	OLD_IR_RANK(IDX) old_ir_tbl[IDX].opr.rank
#define	OLD_IR_DV_DIM(IDX) old_ir_tbl[IDX].opr.dim
#define	IR_COL_NUM(IDX) ir_tbl[IDX].opr.col_num
#define	IR_LINE_NUM(IDX) ir_tbl[IDX].opr.line_num
#define	IR_NEXT_IDX(IDX) ir_tbl[IDX].opr.line_num
#define	IR_OPR(IDX) ir_tbl[IDX].opr.the_operator
#define	IR_TYPE_IDX(IDX) ir_tbl[IDX].opr.type_idx
#define	IR_RANK(IDX) ir_tbl[IDX].opr.rank
#define	IR_DV_DIM(IDX) ir_tbl[IDX].opr.dim
#define	IR_CONTIG_ARRAY(IDX) ir_tbl[IDX].opr.dim
#define	IR_WHOLE_ARRAY(IDX) ir_tbl[IDX].opr.dim
#define	IR_INLINE_STATE(IDX) ir_tbl[IDX].opr.dim
#define	IR_COL_NUM_L(IDX) ir_tbl[IDX].op_l.col_num
#define	IR_FLD_L(IDX) ir_tbl[IDX].op_l.fld
#define	IR_IDX_L(IDX) ir_tbl[IDX].op_l.idx
#define	IR_LINE_NUM_L(IDX) ir_tbl[IDX].op_l.line_num
#define	IR_LIST_CNT_L(IDX) ir_tbl[IDX].op_l.line_num
#define	IR_SHORT_CIRCUIT_L(IDX) ir_tbl[IDX].op_l.flag_1
#define	IR_ARRAY_SYNTAX(IDX) ir_tbl[IDX].op_l.flag_2
#define	IR_COL_NUM_R(IDX) ir_tbl[IDX].op_r.col_num
#define	IR_FLD_R(IDX) ir_tbl[IDX].op_r.fld
#define	IR_IDX_R(IDX) ir_tbl[IDX].op_r.idx
#define	IR_LINE_NUM_R(IDX) ir_tbl[IDX].op_r.line_num
#define	IR_LIST_CNT_R(IDX) ir_tbl[IDX].op_r.line_num
#define	IR_SHORT_CIRCUIT_R(IDX) ir_tbl[IDX].op_r.flag_1
#define	IR_BOUNDS_DONE(IDX) ir_tbl[IDX].op_r.flag_2
#define	IR_OPND_L(IDX) ir_tbl[IDX].op_l
#define	IR_OPND_R(IDX) ir_tbl[IDX].op_r
#define	IL_NEXT_LIST_IDX(IDX) ir_list_tbl[IDX].il.link.nxt_idx
#define	IL_IDX(IDX) ir_list_tbl[IDX].il.op.idx
#define	IL_LINE_NUM(IDX) ir_list_tbl[IDX].il.op.line_num
#define	IL_COL_NUM(IDX) ir_list_tbl[IDX].il.op.col_num
#define	IL_LIST_CNT(IDX) ir_list_tbl[IDX].il.op.line_num
#define	IL_FLD(IDX) ir_list_tbl[IDX].il.op.fld
#define	IL_ARG_DESC_VARIANT(IDX) ir_list_tbl[IDX].il.link.arg_desc
#define	IL_ARG_MULTI_FLAGS(IDX) ir_list_tbl[IDX].il.link.multi_flags
#define	IL_PREV_LIST_IDX(IDX)
#define	IL_ARG_DESC_IDX(IDX)
#define	IL_VECTOR_SUBSCRIPT(IDX) ir_list_tbl[IDX].il.link.flag_1
#define	IL_CONSTANT_SUBSCRIPT(IDX) ir_list_tbl[IDX].il.link.flag_2
#define	IL_PE_SUBSCRIPT(IDX) ir_list_tbl[IDX].il.link.flag_3
#define	IL_NAMELIST_EXPECTED(IDX) ir_list_tbl[IDX].il.link.flag_1
#define	IL_FORMAT_EXPECTED(IDX) ir_list_tbl[IDX].il.link.flag_2
#define	IL_HAS_FUNCTIONS(IDX) ir_list_tbl[IDX].il.link.flag_1
#define	IL_MUST_BE_LOOP(IDX) ir_list_tbl[IDX].il.link.flag_2
#define	IL_MUST_FLATTEN(IDX) ir_list_tbl[IDX].il.link.flag_3
#define	IL_HAS_CONSTRUCTOR(IDX) ir_list_tbl[IDX].il.link.flag_4
#define	IL_STRUCT_REF(IDX) ir_list_tbl[IDX].il.link.flag_5
#define	IL_INTRIN_PLACE_HOLDER(IDX) ir_list_tbl[IDX].il.link.flag_6
#define	IL_NONDEFAULT_IMP_DO_LCV(IDX) ir_list_tbl[IDX].il.link.flag_7
#define	IL_DISTRIBUTION_VARIANT(IDX) ir_list_tbl[IDX].il.link.flag_8
#define	IL_FORWARD_REF(IDX) ir_list_tbl[IDX].il.link.for_ref
#define	IL_DISTRIBUTION(IDX) ir_list_tbl[IDX].il.link.for_ref
#define	IL_WORD(IDX, WD) ir_list_tbl[IDX].words[WD]
#define	IL_ELEMENT(IDX) ir_list_tbl[IDX].il_long64.lwd2
#define	IL_OPND(IDX) ir_list_tbl[IDX].il.op
#define	SH_CIF_SKIP_ME(IDX) sh_tbl[IDX].cif_skip_me
#define	SH_COL_NUM(IDX) sh_tbl[IDX].col_num
#define	SH_COMPILER_GEN(IDX) sh_tbl[IDX].compiler_gen
#define	SH_DOALL_LOOP_END(IDX) sh_tbl[IDX].doall_loop_end
#define	SH_ERR_FLG(IDX) sh_tbl[IDX].stmt_parse_err
#define	SH_GLB_LINE(IDX) sh_tbl[IDX].glb_line_num
#define	SH_ACTION_STMT(IDX) sh_tbl[IDX].action_stmt
#define	SH_INLINING_ATTEMPTED(IDX) sh_tbl[IDX].inlining_attempted
#define	SH_IR_IDX(IDX) sh_tbl[IDX].ir_idx
#define	SH_LABELED(IDX) sh_tbl[IDX].labeled
#define	SH_LOOP_END(IDX) sh_tbl[IDX].loop_end
#define	SH_NEXT_IDX(IDX) sh_tbl[IDX].next_sh_idx
#define	SH_P2_SKIP_ME(IDX) sh_tbl[IDX].skip_pass_2
#define	SH_PARENT_BLK_IDX(IDX) sh_tbl[IDX].parent_blk_idx
#define	SH_PREV_IDX(IDX) sh_tbl[IDX].prev_sh_idx
#define	OLD_SH_STMT_TYPE(IDX) sh_tbl[IDX].old_stmt_type
#define	SH_STMT_TYPE(IDX) sh_tbl[IDX].stmt_type
#define	GL_IR_COL_NUM(IDX) global_ir_tbl[IDX].opr.col_num
#define	GL_IR_LINE_NUM(IDX) global_ir_tbl[IDX].opr.line_num
#define	GL_IR_NEXT_IDX(IDX) global_ir_tbl[IDX].opr.line_num
#define	GL_IR_OPR(IDX) global_ir_tbl[IDX].opr.the_operator
#define	GL_IR_TYPE_IDX(IDX) global_ir_tbl[IDX].opr.type_idx
#define	GL_IR_RANK(IDX) global_ir_tbl[IDX].opr.rank
#define	GL_IR_DV_DIM(IDX) global_ir_tbl[IDX].opr.dim
#define	GL_IR_CONTIG_ARRAY(IDX) global_ir_tbl[IDX].opr.dim
#define	GL_IR_WHOLE_ARRAY(IDX) global_ir_tbl[IDX].opr.dim
#define	GL_IR_INLINE_STATE(IDX) global_ir_tbl[IDX].opr.dim
#define	GL_IR_COL_NUM_L(IDX) global_ir_tbl[IDX].op_l.col_num
#define	GL_IR_FLD_L(IDX) global_ir_tbl[IDX].op_l.fld
#define	GL_IR_IDX_L(IDX) global_ir_tbl[IDX].op_l.idx
#define	GL_IR_LINE_NUM_L(IDX) global_ir_tbl[IDX].op_l.line_num
#define	GL_IR_LIST_CNT_L(IDX) global_ir_tbl[IDX].op_l.line_num
#define	GL_IR_SHORT_CIRCUIT_L(IDX) global_ir_tbl[IDX].op_l.flag_1
#define	GL_IR_ARRAY_SYNTAX(IDX) global_ir_tbl[IDX].op_l.flag_2
#define	GL_IR_COL_NUM_R(IDX) global_ir_tbl[IDX].op_r.col_num
#define	GL_IR_FLD_R(IDX) global_ir_tbl[IDX].op_r.fld
#define	GL_IR_IDX_R(IDX) global_ir_tbl[IDX].op_r.idx
#define	GL_IR_LINE_NUM_R(IDX) global_ir_tbl[IDX].op_r.line_num
#define	GL_IR_LIST_CNT_R(IDX) global_ir_tbl[IDX].op_r.line_num
#define	GL_IR_SHORT_CIRCUIT_R(IDX) global_ir_tbl[IDX].op_r.flag_1
#define	GL_IR_OPND_L(IDX) global_ir_tbl[IDX].op_l
#define	GL_IR_OPND_R(IDX) global_ir_tbl[IDX].op_r
#define	GL_IL_NEXT_LIST_IDX(IDX) global_ir_list_tbl[IDX].il.link.nxt_idx
#define	GL_IL_IDX(IDX) global_ir_list_tbl[IDX].il.op.idx
#define	GL_IL_LINE_NUM(IDX) global_ir_list_tbl[IDX].il.op.line_num
#define	GL_IL_COL_NUM(IDX) global_ir_list_tbl[IDX].il.op.col_num
#define	GL_IL_LIST_CNT(IDX) global_ir_list_tbl[IDX].il.op.line_num
#define	GL_IL_FLD(IDX) global_ir_list_tbl[IDX].il.op.fld
#define	GL_IL_ARG_DESC_VARIANT(IDX) global_ir_list_tbl[IDX].il.link.arg_desc
#define	GL_IL_PREV_LIST_IDX(IDX) global_ir_list_tbl[IDX].il.link.prev_idx
#define	GL_IL_ARG_DESC_IDX(IDX) global_ir_list_tbl[IDX].il.link.prev_idx
#define	GL_IL_VECTOR_SUBSCRIPT(IDX) global_ir_list_tbl[IDX].il.link.flag_1
#define	GL_IL_CONSTANT_SUBSCRIPT(IDX) global_ir_list_tbl[IDX].il.link.flag_2
#define	GL_IL_PE_SUBSCRIPT(IDX) global_ir_list_tbl[IDX].il.link.flag_3
#define	GL_IL_NAMELIST_EXPECTED(IDX) global_ir_list_tbl[IDX].il.link.flag_1
#define	GL_IL_FORMAT_EXPECTED(IDX) global_ir_list_tbl[IDX].il.link.flag_2
#define	GL_IL_HAS_FUNCTIONS(IDX) global_ir_list_tbl[IDX].il.link.flag_1
#define	GL_IL_MUST_BE_LOOP(IDX) global_ir_list_tbl[IDX].il.link.flag_2
#define	GL_IL_MUST_FLATTEN(IDX) global_ir_list_tbl[IDX].il.link.flag_3
#define	GL_IL_HAS_CONSTRUCTOR(IDX) global_ir_list_tbl[IDX].il.link.flag_4
#define	GL_IL_STRUCT_REF(IDX) global_ir_list_tbl[IDX].il.link.flag_5
#define	GL_IL_INTRIN_PLACE_HOLDER(IDX) global_ir_list_tbl[IDX].il.link.flag_6
#define	GL_IL_NONDEFAULT_IMP_DO_LCV(IDX) global_ir_list_tbl[IDX].il.link.flag_7
#define	GL_IL_DISTRIBUTION_VARIANT(IDX) global_ir_list_tbl[IDX].il.link.flag_8
#define	GL_IL_FORWARD_REF(IDX) global_ir_list_tbl[IDX].il.link.for_ref
#define	GL_IL_DISTRIBUTION(IDX) global_ir_list_tbl[IDX].il.link.for_ref
#define	GL_IL_WORD(IDX, WD) global_ir_list_tbl[IDX].words[WD]
#define	GL_IL_OPND(IDX) global_ir_list_tbl[IDX].il.op
#define	GL_SH_CIF_SKIP_ME(IDX) global_sh_tbl[IDX].cif_skip_me
#define	GL_SH_COL_NUM(IDX) global_sh_tbl[IDX].col_num
#define	GL_SH_COMPILER_GEN(IDX) global_sh_tbl[IDX].compiler_gen
#define	GL_SH_DOALL_LOOP_END(IDX) global_sh_tbl[IDX].doall_loop_end
#define	GL_SH_ERR_FLG(IDX) global_sh_tbl[IDX].stmt_parse_err
#define	GL_SH_GLB_LINE(IDX) global_sh_tbl[IDX].glb_line_num
#define	GL_SH_INLINING_ATTEMPTED(IDX) global_sh_tbl[IDX].inlining_attempted
#define	GL_SH_IR_IDX(IDX) global_sh_tbl[IDX].ir_idx
#define	GL_SH_LABELED(IDX) global_sh_tbl[IDX].labeled
#define	GL_SH_LOOP_END(IDX) global_sh_tbl[IDX].loop_end
#define	GL_SH_NEXT_IDX(IDX) global_sh_tbl[IDX].next_sh_idx
#define	GL_SH_P2_SKIP_ME(IDX) global_sh_tbl[IDX].skip_pass_2
#define	GL_SH_PARENT_BLK_IDX(IDX) global_sh_tbl[IDX].parent_blk_idx
#define	GL_SH_PREV_IDX(IDX) global_sh_tbl[IDX].prev_sh_idx
#define	GL_SH_STMT_TYPE(IDX) global_sh_tbl[IDX].stmt_type
#define	ML_AT_IDX(IDX) mod_link_tbl[IDX].at_idx
#define	ML_AT_COMPRESSED_IDX(IDX) mod_link_tbl[IDX].at_compressed
#define	ML_AT_KEEP_ME(IDX) mod_link_tbl[IDX].at_keep_me
#define	ML_AT_LN_NAME(IDX) mod_link_tbl[IDX].at_ln_name
#define	ML_AT_SEARCHED(IDX) mod_link_tbl[IDX].at_searched
#define	ML_AT_SEARCH_ME(IDX) mod_link_tbl[IDX].at_search_me
#define	ML_BD_IDX(IDX) mod_link_tbl[IDX].bd_idx
#define	ML_BD_KEEP_ME(IDX) mod_link_tbl[IDX].bd_keep_me
#define	ML_CN_IDX(IDX) mod_link_tbl[IDX].cn_idx
#define	ML_CN_KEEP_ME(IDX) mod_link_tbl[IDX].cn_keep_me
#define	ML_CP_DALIGN_ME(IDX) mod_link_tbl[IDX].cp_dalign_me
#define	ML_CP_IDX(IDX) mod_link_tbl[IDX].cp_idx
#define	ML_CP_KEEP_ME(IDX) mod_link_tbl[IDX].cp_keep_me
#define	ML_CP_LEN(IDX) mod_link_tbl[IDX].cp_len
#define	ML_IL_IDX(IDX) mod_link_tbl[IDX].il_idx
#define	ML_IL_KEEP_ME(IDX) mod_link_tbl[IDX].il_keep_me
#define	ML_IR_IDX(IDX) mod_link_tbl[IDX].ir_idx
#define	ML_IR_KEEP_ME(IDX) mod_link_tbl[IDX].ir_keep_me
#define	ML_LN_IDX(IDX) mod_link_tbl[IDX].ln_idx
#define	ML_LN_KEEP_ME(IDX) mod_link_tbl[IDX].ln_keep_me
#define	ML_NP_IDX(IDX) mod_link_tbl[IDX].np_idx
#define	ML_NP_KEEP_ME(IDX) mod_link_tbl[IDX].np_keep_me
#define	ML_NP_LEN(IDX) mod_link_tbl[IDX].np_len
#define	ML_SB_IDX(IDX) mod_link_tbl[IDX].sb_idx
#define	ML_SB_KEEP_ME(IDX) mod_link_tbl[IDX].sb_keep_me
#define	ML_SH_IDX(IDX) mod_link_tbl[IDX].sh_idx
#define	ML_SH_KEEP_ME(IDX) mod_link_tbl[IDX].sh_keep_me
#define	ML_SN_IDX(IDX) mod_link_tbl[IDX].sn_idx
#define	ML_SN_KEEP_ME(IDX) mod_link_tbl[IDX].sn_keep_me
#define	ML_TYP_IDX(IDX) mod_link_tbl[IDX].typ_idx
#define	ML_TYP_KEEP_ME(IDX) mod_link_tbl[IDX].typ_keep_me
#define	LN_ATTR_IDX(IDX) loc_name_tbl[IDX].attr_idx
#define	LN_DEF_LOC(IDX) loc_name_tbl[IDX].def_locally
#define	LN_IN_ONLY_LIST(IDX) loc_name_tbl[IDX].in_only_list
#define	LN_NAME_IDX(IDX) loc_name_tbl[IDX].name_idx
#define	LN_NAME_LEN(IDX) loc_name_tbl[IDX].name_len
#define	LN_NAME_LONG(IDX) &(name_pool[LN_NAME_IDX(IDX)].name_long)
#define	LN_NEW_NAME(IDX) loc_name_tbl[IDX].new_name
#define	LN_RENAMED(IDX) loc_name_tbl[IDX].renamed
#define	PDG_AT_IDX(IDX) pdg_link_tbl[IDX].at_idx
#define	PDG_AT_TYP_IDX(IDX) pdg_link_tbl[IDX].at_typ_idx
#define	PDG_CN_IDX(IDX) pdg_link_tbl[IDX].cn_idx
#define	PDG_SB_IDX(IDX) pdg_link_tbl[IDX].sb_idx
#define	RO_COLUMN_NUM(IDX) rename_only_tbl[IDX].column_num
#define	RO_DUPLICATE_RENAME(IDX) rename_only_tbl[IDX].duplicate_rename
#define	RO_LINE_NUM(IDX) rename_only_tbl[IDX].line_num
#define	RO_NAME_IDX(IDX) rename_only_tbl[IDX].name_idx
#define	RO_NAME_LEN(IDX) rename_only_tbl[IDX].name_len
#define	RO_NAME_LONG(IDX) &(name_pool[RO_NAME_IDX(IDX)].name_long)
#define	RO_NAME_PTR(IDX) &name_pool[RO_NAME_IDX(IDX)].name_char
#define	RO_NEXT_IDX(IDX) rename_only_tbl[IDX].next_idx
#define	RO_RENAME_IDX(IDX) rename_only_tbl[IDX].rename_idx
#define	RO_RENAME_NAME(IDX) rename_only_tbl[IDX].rename_name
#define	RO_NAME_ATTR(IDX) rename_only_tbl[IDX].attr_idx
#define	SN_ATTR_IDX(IDX) sec_name_tbl[IDX].attr_idx
#define	SN_COLUMN_NUM(IDX) sec_name_tbl[IDX].column_num
#define	SN_LINE_NUM(IDX) sec_name_tbl[IDX].line_num
#define	SN_MATCHED_DARG(IDX) sec_name_tbl[IDX].matched
#define	SN_NAME_IDX(IDX) sec_name_tbl[IDX].name_idx
#define	SN_NAME_LEN(IDX) sec_name_tbl[IDX].length
#define	SN_SIBLING_LINK(IDX) sec_name_tbl[IDX].sibling_link
#define	SB_ALIGN_SYMBOL(IDX) stor_blk_tbl[IDX].fld.align_symbol
#define	SB_AUXILIARY(IDX) stor_blk_tbl[IDX].fld.auxiliary
#define	SB_BLANK_COMMON(IDX) stor_blk_tbl[IDX].fld.blank_common
#define	SB_BLK_HAS_NPES(IDX) stor_blk_tbl[IDX].fld.blk_has_npes
#define	SB_BLK_TYPE(IDX) stor_blk_tbl[IDX].fld.sb_type
#define	OLD_SB_BLK_TYPE(IDX) stor_blk_tbl[IDX].fld.old_sb_type
#define	SB_CACHE_ALIGN(IDX) stor_blk_tbl[IDX].fld.cache_align
#define	SB_CIF_SYMBOL_ID(IDX) stor_blk_tbl[IDX].fld.cif_idx
#define	SB_COMMON_NEEDS_OFFSET(IDX) stor_blk_tbl[IDX].fld.needs_offset
#define	SB_DCL_ERR(IDX) stor_blk_tbl[IDX].fld.dcl_err
#define	SB_DCL_COMMON_DIR(IDX) stor_blk_tbl[IDX].fld.dcl_common_dir
#define	SB_DEF_COLUMN(IDX) stor_blk_tbl[IDX].fld.def_column
#define	SB_DEF_MULT_SCPS(IDX) stor_blk_tbl[IDX].fld.def_mult_scps
#define	SB_DEF_LINE(IDX) stor_blk_tbl[IDX].fld.def_line
#define	SB_DUPLICATE_COMMON(IDX) stor_blk_tbl[IDX].fld.duplicate_common
#define	SB_EQUIVALENCED(IDX) stor_blk_tbl[IDX].fld.equivalenced
#define	SB_FILL_SYMBOL(IDX) stor_blk_tbl[IDX].fld.fill_symbol
#define	SB_FIRST_ATTR_IDX(IDX) stor_blk_tbl[IDX].fld.first_attr_idx
#define	SB_HAS_RENAMES(IDX) stor_blk_tbl[IDX].fld.has_renames
#define	SB_HIDDEN(IDX) stor_blk_tbl[IDX].fld.hidden
#define	SB_HOST_ASSOCIATED(IDX) stor_blk_tbl[IDX].fld.host_associated
#define	SB_HOSTED_STACK(IDX) stor_blk_tbl[IDX].fld.hosted_stack
#define	SB_HOSTED_STATIC(IDX) stor_blk_tbl[IDX].fld.hosted_static
#define	SB_IS_COMMON(IDX) stor_blk_tbl[IDX].fld.is_common
#define	SB_LAST_ATTR_LIST(IDX) stor_blk_tbl[IDX].fld.last_attr_list
#define	SB_LEN_FLD(IDX) stor_blk_tbl[IDX].fld.len_fld
#define	SB_LEN_IDX(IDX) stor_blk_tbl[IDX].fld.len_idx
#define	SB_MERGED_BLK_IDX(IDX) stor_blk_tbl[IDX].fld.merged_blk_idx
#define	SB_MODULE_IDX(IDX) stor_blk_tbl[IDX].fld.module_idx
#define	SB_MODULE(IDX) stor_blk_tbl[IDX].fld.module
#define	SB_NAME_IDX(IDX) stor_blk_tbl[IDX].fld.name_idx
#define	SB_NAME_PTR(IDX) &name_pool[SB_NAME_IDX(IDX)].name_char
#define	SB_NAME_LONG(IDX) &(name_pool[SB_NAME_IDX(IDX)].name_long)
#define	SB_NAME(IDX) name_pool[SB_NAME_IDX(IDX)].name_char
#define	SB_NAME_IN_STONE(IDX) stor_blk_tbl[IDX].fld.name_in_stone
#define	SB_NAME_LEN(IDX) stor_blk_tbl[IDX].fld.name_len
#define	SB_ORIG_SCP_IDX(IDX) stor_blk_tbl[IDX].fld.orig_scp_idx
#define	SB_PAD_AMOUNT(IDX) stor_blk_tbl[IDX].fld.pad_amount
#define	SB_PAD_AMOUNT_SET(IDX) stor_blk_tbl[IDX].fld.pad_amount_set
#define	SB_PAD_BLK(IDX) stor_blk_tbl[IDX].fld.pad_blk
#define	SB_RUNTIME_INIT(IDX) stor_blk_tbl[IDX].fld.runtime_init
#define	SB_SAVED(IDX) stor_blk_tbl[IDX].fld.saved
#define	SB_SCP_IDX(IDX) stor_blk_tbl[IDX].fld.scp_idx
#define	SB_SECTION_GP(IDX) stor_blk_tbl[IDX].fld.section_gp
#define	SB_SECTION_NON_GP(IDX) stor_blk_tbl[IDX].fld.section_non_gp
#define	SB_SYMMETRIC(IDX) stor_blk_tbl[IDX].fld.symmetric
#define	SB_USE_ASSOCIATED(IDX) stor_blk_tbl[IDX].fld.use_associated
#define	SB_VOLATILE(IDX) stor_blk_tbl[IDX].fld.x_volatile
#define	TYP_BIT_LEN(IDX) type_tbl[IDX].fld.bit_len
#define	TYP_BIT_LEN_F(IDX) type_tbl[IDX].wd.length
#define	TYP_CHAR_CLASS(IDX) type_tbl[IDX].fld.char_class
#define	TYP_DCL_VALUE(IDX) type_tbl[IDX].fld.dcl_value
#define	TYP_DECLARED_DBL(IDX) type_tbl[IDX].fld.declared_dbl
#define	TYP_DESC(IDX) type_tbl[IDX].fld.desc
#define	TYP_DP_HIT_ME(IDX) type_tbl[IDX].fld.dp_hit_me
#define	TYP_FLD(IDX) type_tbl[IDX].fld.type_fld
#define	TYP_IDX(IDX) type_tbl[IDX].fld.type_idx
#define	TYP_IS_BYTE(IDX) type_tbl[IDX].fld.type_is_byte
#define	TYP_LINEAR(IDX) type_tbl[IDX].fld.linear_type
#define	TYP_ORIG_LEN_IDX(IDX) type_tbl[IDX].fld.bit_len
#define	TYP_PTR_INCREMENT(IDX) type_tbl[IDX].fld.bit_len
#define	TYP_RESOLVED(IDX) type_tbl[IDX].fld.resolved
#define	TYP_TYPE(IDX) type_tbl[IDX].fld.type
#define	TYP_KIND_CONST(IDX) type_tbl[IDX].fld.kind_const
#define	TYP_KIND_DOUBLE(IDX) type_tbl[IDX].fld.kind_double
#define	OLD_TYP_DP_HIT_ME(IDX) type_tbl[IDX].wd.old_dp_hit_me
#define	OLD_TYP_FLD(IDX) type_tbl[IDX].fld.old_type_fld
#define	OLD_TYP_RESOLVED(IDX) type_tbl[IDX].wd.old_resolved
#define	OLD_TYP_TYPE(IDX) type_tbl[IDX].wd.old_type
#define	MSK_NAME_IDX 0000000000000077777777
#define	MSK_NAME_LEN 0000000000000000000377
#define	SN_NP_IDX(IDX) SN_NAME_IDX(IDX)
#define	SN_LEN(IDX) SN_NAME_LEN(IDX)
#define	RIGHT_JUSTIFY_SIGN_BIT(I) ((unsigned long) (I) >> (8 * sizeof(long)-1))
#define	STRIDE_CALC(SEG_LEN) (((SEG_LEN) + _MAXVL - 1) / _MAXVL)
#define	WORD_LEN(ID_LEN) ((ID_LEN) + sizeof(long)) / sizeof(long)
#define	CLEAR_ATTR_NTRY(IDX)
#define	CLEAR_TBL_NTRY(TBL, IDX)
#define	COPY_ATTR_NTRY(TO, FROM)
#define	COPY_TBL_NTRY(TBL, TO, FROM)
#define	COPY_GL_TBL_NTRY(TBL1, TBL2, TO, FROM)
#define	COPY_BD_NTRY(TO, FROM)
#define	CREATE_ERR_ATTR(IDX, LINE, COL, CLASS)
#define	COPY_COMMON_ATTR_INFO(FROM, TO, CLASS)
#define	COPY_VARIANT_ATTR_INFO(FROM, TO, CLASS)
#define	CLEAR_VARIANT_ATTR_INFO(IDX, CLASS)
#define	CREATE_FUNC_RSLT(AT_IDX, RSLT_IDX)
#define	FREE_IR_LIST_NODE(IDX)
#define	FREE_IR_NODE(IDX)
#define	FREE_SH_NODE(IDX)
#define	FREE_GL_IR_LIST_NODE(IDX)
#define	FREE_GL_IR_NODE(IDX)
#define	FREE_GL_SH_NODE(IDX)
#define	GEN_COMPILER_TMP_ASG(IR_IDX, ATTR_IDX, SEM_DONE, LINE, COL, TYPE_IDX, SCOPE)
#define	IS_STMT_ENTITY(ATTR_IDX)
#define	NTR_ATTR_TBL(ATTR_IDX)
#define	NTR_ATTR_LIST_TBL(ATTR_LIST_IDX)
#define	ADD_ATTR_TO_LOCAL_LIST(AT_IDX) add_attr_to_local_list(AT_IDX);
#define	NTR_EQ_TBL(EQ_IDX)
#define	EXTRA_WORD 0
#define	NTR_NAME_POOL(NAME, LEN, NP_IDX)
#define	NTR_IR_LIST_TBL(IR_LIST_IDX)
#define	NTR_IR_TBL(IR_IDX)
#define	NTR_GL_IR_LIST_TBL(IR_LIST_IDX)
#define	NTR_GL_IR_TBL(IR_IDX)
#define	NTR_SCP_TBL(SCP_IDX)
#define	NTR_SN_TBL(SN_IDX)
#define	NTR_INTERFACE_IN_SN_TBL(SN_IDX, AT_IDX, PARENT_IDX, LINE, COLUMN)
#define	NTR_NAME_IN_LN_TBL(ENTER_NAME_IDX, NEW_NAME_IDX)
#define	SET_IMPL_TYPE(AT_IDX)
#define	SET_IMPL_TYPE_IN_SCP(AT_IDX, SCP_IDX)
#define	BITS_TO_WORDS(BIT_SIZE, ALIGN_TO)
#define	BYTES_TO_WORDS(BIT_SIZE, ALIGN_TO)
#define	THIS_IS_TRUE(THE_CONSTANT, TYPE_IDX) ((THE_CONSTANT)[0] == TRUE_VALUE)
#define	CONVERT_CVAL_TO_STR(CONSTANT, TYPE_IDX, RESULT) convert_cval_to_string(CONSTANT, TYPE_IDX, RESULT)
#define	F_INT_TO_C(ARRAY, LIN_TYPE) f_int_to_cval(ARRAY, LIN_TYPE)
#define	CN_INT_TO_C(IDX) F_INT_TO_C(&CN_CONST(IDX), TYP_LINEAR(CN_TYPE_IDX(IDX)))
#define	C_INT_TO_CN(TYPE_IDX, CONST) ntr_int_const_tbl(TYPE_IDX, (long64) (CONST))
#define	C_TO_F_INT(ARRAY, CONST, LIN_TYPE)

Define Documentation

#define ADD_ATTR_TO_LOCAL_LIST ( AT_IDX ) add_attr_to_local_list(AT_IDX);

Definition at line 4448 of file sytb.m.

Referenced by allocate_stmt_semantics(), assign_new_idxs_after_input(), call_list_semantics(), copy_sbtree(), create_runtime_array_constructor(), deallocate_local_allocatables(), deallocate_stmt_semantics(), end_program_unit(), final_attr_semantics(), flatten_function_call(), gen_bounds_check_call(), gen_conform_check_call(), gen_end_prologue_debug_label(), gen_internal_call_stmt(), gen_ptr_chk_call(), gen_rbounds_check_call(), gen_sbounds_check_call(), host_associated_attr_semantics(), insert_argchck_calls(), namelist_resolution(), ntr_local_attr_list(), parse_backspace_stmt(), parse_buffer_stmt(), parse_close_stmt(), parse_dir_directives(), parse_endfile_stmt(), parse_inquire_stmt(), parse_mic_directives(), parse_open_stmt(), parse_rewind_stmt(), print_stmt_semantics(), read_stmt_semantics(), resolve_ext_opr(), stop_pause_stmt_semantics(), storage_blk_resolution(), test_size_stmts(), use_stmt_semantics(), and write_stmt_semantics().

#define AL_ATTR_IDX ( IDX ) attr_list_tbl[IDX].attr_idx

Definition at line 2982 of file sytb.m.

Referenced by add_attr_to_local_list(), assign_new_idxs_after_input(), attr_semantics(), bound_semantics(), call_list_semantics(), check_for_dup_derived_type_lbl(), check_multiple_entry_func(), cif_scope_info_rec(), cif_send_sytb(), collapse_interface_blk(), complete_intrinsic_definition(), compress_tbls(), copy_entry_exit_sh_list(), copy_subtree(), cvrt_sytb_to_pdg(), decl_semantics(), decl_semantics_driver(), dim_reshape_pass_driver(), dump_al_ntry(), end_function(), end_function_semantics(), end_module_proc(), end_subroutine(), final_attr_semantics(), final_decl_semantics(), gen_assumed_shape_copy(), gen_darg_branch_test(), gen_ir_at_this_entry(), gen_tmp_eq_zero_ir(), gen_user_code_start_opr(), implicit_use_semantics(), insert_sh_after_entries(), insert_sh_chain_after_entries(), merge_entry_list_count(), merge_entry_lists(), namelist_resolution(), ntr_bnds_sh_tmp_list(), ntr_bnds_tmp_list(), output_mod_info_file(), parse_dummy_args(), parse_entry_stmt(), parse_implicit_stmt(), parse_type_spec(), parse_use_stmt(), pgm_unit_semantics(), print_sytb(), process_attr_list(), process_procs_for_inlining(), reshape_array_semantics(), resolve_used_modules(), return_stmt_semantics(), send_attr_ntry(), send_procedure(), set_up_which_entry_tmp(), srch_for_calls(), and use_stmt_semantics().

#define AL_ENTRY_COUNT ( IDX ) attr_list_tbl[IDX].prev_idx

Definition at line 2992 of file sytb.m.

Referenced by array_dim_resolution(), char_len_resolution(), decl_semantics(), dump_al_ntry(), merge_entry_list_count(), merge_entry_lists(), and pe_array_dim_resolution().

#define AL_EQ_IDX ( IDX ) attr_list_tbl[IDX].attr_idx

Definition at line 2983 of file sytb.m.

Referenced by dump_al_ntry(), equivalence_semantics(), merge_equivalence_groups1(), merge_equivalence_groups2(), and parse_equivalence_stmt().

#define AL_FREE ( IDX ) attr_list_tbl[IDX].flag2

Definition at line 2986 of file sytb.m.

Referenced by compress_tbls(), dump_al_ntry(), and free_attr_list().

#define AL_IDX_IS_EQ ( IDX ) attr_list_tbl[IDX].flag1

Definition at line 2985 of file sytb.m.

Referenced by dump_al_ntry(), and parse_equivalence_stmt().

#define AL_NEXT_IDX ( IDX ) attr_list_tbl[IDX].next_idx

Definition at line 2984 of file sytb.m.

Referenced by add_attr_to_local_list(), assign_new_idxs_after_input(), attr_semantics(), bound_semantics(), call_list_semantics(), check_for_dup_derived_type_lbl(), check_multiple_entry_func(), cif_scope_info_rec(), cif_send_sytb(), collapse_interface_blk(), complete_intrinsic_definition(), copy_entry_exit_sh_list(), copy_subtree(), cvrt_sytb_to_pdg(), decl_semantics(), decl_semantics_driver(), dim_reshape_pass_driver(), dump_al_ntry(), end_function(), end_function_semantics(), end_module_proc(), end_subroutine(), equivalence_semantics(), final_attr_semantics(), final_decl_semantics(), free_attr_list(), gen_assumed_shape_copy(), gen_darg_branch_test(), gen_ir_at_this_entry(), gen_tmp_eq_zero_ir(), gen_user_code_start_opr(), implicit_use_semantics(), insert_sh_after_entries(), insert_sh_chain_after_entries(), merge_entry_list_count(), merge_entry_lists(), merge_equivalence_groups1(), merge_equivalence_groups2(), namelist_resolution(), ntr_attr_list_tbl(), ntr_bnds_sh_tmp_list(), ntr_bnds_tmp_list(), output_mod_info_file(), parse_dummy_args(), parse_entry_stmt(), parse_equivalence_stmt(), parse_implicit_stmt(), parse_kind_selector(), parse_type_spec(), parse_use_stmt(), pgm_unit_semantics(), print_al_list(), print_sytb(), process_attr_list(), process_procs_for_inlining(), reshape_array_semantics(), resolve_used_modules(), return_stmt_semantics(), send_attr_ntry(), send_procedure(), set_up_which_entry_tmp(), srch_for_calls(), and use_stmt_semantics().

#define AL_PREV_MODULE_IDX ( IDX ) attr_list_tbl[IDX].prev_idx

Definition at line 2993 of file sytb.m.

Referenced by assign_new_idxs_after_input(), implicit_use_semantics(), parse_use_stmt(), resolve_used_modules(), and use_stmt_semantics().

#define AT_ACCESS_SET ( IDX ) attr_aux_tbl[IDX].fld.access_set

Definition at line 338 of file sytb.m.

Referenced by attr_link_resolution(), dump_at_ntry(), fnd_semantic_err(), merge_access(), parse_access_stmt(), parse_attr_spec(), parse_derived_type_stmt(), and set_function_rslt().

#define AT_ACTUAL_ARG ( IDX ) attr_tbl[IDX].fld.passed_as_arg

Definition at line 339 of file sytb.m.

Referenced by dump_at_ntry(), flatten_function_call(), not_visible_semantics(), pgm_unit_semantics(), send_attr_ntry(), set_at_actual_arg(), and srch_for_calls().

#define AT_ALT_DARG ( IDX ) attr_tbl[IDX].fld.alt_darg

Definition at line 340 of file sytb.m.

Referenced by call_list_semantics(), decl_semantics(), and dump_at_ntry().

#define AT_ARG_TO_KIND ( IDX ) attr_aux_tbl[IDX].fld.arg_to_kind

Definition at line 341 of file sytb.m.

Referenced by dump_at_ntry(), kind_intrinsic(), and merge_type().

#define AT_ATTR_LINK ( IDX ) attr_tbl[IDX].fld.attr_link

Definition at line 342 of file sytb.m.

Referenced by array_construct_semantics(), assert_semantics(), assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), build_loop_tbl(), call_list_semantics(), cif_send_attr(), compare_derived_types(), compare_global_derived_type(), convert_const(), copy_and_replace_tmps(), copy_sbtree(), create_namelist_descriptor(), defined_bin_opr_handler(), defined_un_opr_handler(), directive_stmt_semantics(), do_read_namelist_semantics(), do_write_namelist_semantics(), doall_cmic_semantics(), dump_at_ntry(), end_forall_semantics(), expand_user_bound(), final_attr_semantics(), find_prog_unit_tbl(), fnd_semantic_err(), forall_semantics(), gen_forall_loops(), gen_forall_tmp(), generic_spec_semantics(), get_operand_dot(), get_operator_dot(), host_associated_attr_semantics(), io_ctl_list_semantics(), io_list_semantics(), is_local_forall_index(), make_new_bd_entries(), merge_access(), merge_interfaces(), merge_type(), mp_directive_semantics(), namelist_resolution(), not_visible_semantics(), ntr_host_in_sym_tbl(), open_mp_directive_semantics(), parallel_cmic_semantics(), parse_assignment_stmt(), parse_attrs(), parse_auxiliary_dir(), parse_cache_noalloc(), parse_call_stmt(), parse_common_stmt(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_deref(), parse_derived_type_stmt(), parse_distribution_dir(), parse_dummy_args(), parse_equivalence_stmt(), parse_expr(), parse_fill_align_symbol(), parse_ignore_tkr(), parse_implicit_stmt(), parse_inline_always_never(), parse_level_1(), parse_lhs(), parse_name_dir(), parse_nosideeffects_dir(), parse_parameter_stmt(), parse_permutation_mic(), parse_pointer_stmt(), parse_redistribute_dir(), parse_sgi_dir_inline(), parse_star_directives(), parse_stmt_func_stmt(), parse_symmetric_dir(), parse_type_dcl_stmt(), parse_type_spec(), parse_vfunction_dir(), print_attr_name(), process_attr_links(), resolve_attr(), resolve_used_modules(), send_attr_ntry(), send_derived_type(), set_function_rslt(), set_mod_link_tbl_for_attr(), set_mod_link_tbl_for_typ(), srch_for_calls(), start_new_subpgm(), subscript_opr_handler(), update_idxs_in_attr_entry(), and verify_interface().

#define AT_CIF_DONE ( IDX ) attr_aux_tbl[IDX].fld.cif_done

Definition at line 343 of file sytb.m.

Referenced by cif_object_rec_for_func_result(), cif_send_attr(), and dump_at_ntry().

#define AT_CIF_IN_USAGE_REC ( IDX ) attr_aux_tbl[IDX].fld.cif_usage_rec

Definition at line 344 of file sytb.m.

Referenced by cif_send_attr(), cif_usage_rec(), and dump_at_ntry().

#define AT_CIF_SYMBOL_ID ( IDX ) attr_aux_tbl[IDX].fld.cif_sym_id

#define AT_CIF_USE_IN_BND ( IDX ) attr_aux_tbl[IDX].fld.cif_use_in_bnd

Definition at line 346 of file sytb.m.

Referenced by bound_semantics(), cif_send_attr(), and dump_at_ntry().

#define AT_COMPILER_GEND ( IDX ) attr_tbl[IDX].fld.compiler_gend

#define AT_DCL_ERR ( IDX ) attr_tbl[IDX].fld.dcl_err

Definition at line 348 of file sytb.m.

Referenced by array_dim_resolution(), assign_offset(), assign_stmt_semantics(), attr_link_resolution(), attr_semantics(), bound_semantics(), call_list_semantics(), chain_thru_sn_ntries(), char_len_resolution(), check_and_allocate_common_storage(), check_for_dup_derived_type_lbl(), cif_call_site_rec(), cif_send_attr(), cif_usage_rec(), ck_lbl_construct_name(), create_mod_info_file(), decl_semantics(), default_init_semantics(), directive_stmt_semantics(), do_stmt_semantics(), dump_at_ntry(), end_interface_blk(), end_interface_body(), equivalence_semantics(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), find_prog_unit_tbl(), finish_cdir_id(), fnd_semantic_err(), gen_auto_length(), gen_default_init_code(), gen_entry_dope_code(), is_attr_referenced_in_bound(), issue_attr_blk_err(), issue_attr_err(), issue_undefined_type_msg(), label_ref_semantics(), linearize_list_for_equiv(), merge_automatic(), merge_dimension(), merge_parameter(), merge_pointer(), merge_target(), merge_type(), namelist_resolution(), not_visible_semantics(), num_images_intrinsic(), object_semantics(), parse_assign_stmt(), parse_attrs(), parse_common_stmt(), parse_cpnt_dcl_stmt(), parse_decode_stmt(), parse_deref(), parse_derived_type_stmt(), parse_do_stmt(), parse_dummy_args(), parse_encode_stmt(), parse_entry_stmt(), parse_forall(), parse_function_stmt(), parse_goto_stmt(), parse_id_directive(), parse_if_stmt(), parse_interface_stmt(), parse_io_control_list(), parse_kind_selector(), parse_length_selector(), parse_lhs(), parse_module_stmt(), parse_name_dir(), parse_namelist_stmt(), parse_parameter_stmt(), parse_permutation_mic(), parse_pointer_stmt(), parse_prefix_spec(), parse_print_stmt(), parse_prog_unit(), parse_read_stmt(), parse_select_stmt(), parse_stmt_func_stmt(), parse_subroutine_stmt(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), parse_where_stmt(), parse_write_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), pop_and_err_blk_stk(), read_in_module_tbl(), rename_only_semantics(), resolve_ext_opr(), resolve_fwd_lbl_refs(), retype_attr(), set_function_rslt(), start_new_prog_unit(), start_new_subpgm(), stmt_func_call_opr_handler(), stmt_func_semantics(), stmt_level_semantics(), stop_pause_stmt_semantics(), stor_bit_size_of(), type_init_semantics(), and verify_interface().

#define AT_DEF_COLUMN ( IDX ) attr_aux_tbl[IDX].fld.def_column

Definition at line 350 of file sytb.m.

Referenced by align_bit_length(), array_dim_resolution(), assign_new_idxs_after_input(), assign_offset(), assign_storage_blk(), attr_link_resolution(), attr_semantics(), bits_and_bytes_to_words(), bound_semantics(), char_len_resolution(), check_and_allocate_common_storage(), check_for_dup_derived_type_lbl(), check_for_elementals(), check_global_pgm_unit(), collapse_interface_blk(), compare_duplicate_interface_bodies(), compare_entry_to_func_rslt(), complete_intrinsic_definition(), continue_stmt_semantics(), create_argchck_descriptor(), create_equiv_stor_blk(), create_lib_entry_attr(), create_mod_info_file(), create_namelist_descriptor(), decl_semantics(), default_init_semantics(), dump_at_ntry(), else_stmt_semantics(), end_interface_blk(), final_attr_semantics(), find_attrs_used_in_bound(), find_prog_unit_tbl(), fnd_semantic_err(), gen_allocatable_ptr_ptee(), gen_auto_length(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_copyin_bounds_stmt(), gen_darg_branch_test(), gen_default_init_code(), gen_forall_derived_type(), gen_present_ir(), gen_single_automatic_allocate(), gen_temp_init(), gen_tmp_eq_zero_ir(), generic_spec_semantics(), global_name_semantics(), host_associated_attr_semantics(), init_parse_prog_unit(), init_whole_array(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), not_visible_semantics(), ntr_const_tbl(), ntr_global_attr_tbl(), ntr_host_in_sym_tbl(), ntr_local_attr_list(), ntr_ref_in_global_tbl(), ntr_sym_tbl(), ntr_unshared_const_tbl(), open_module_file(), output_mod_info_file(), parse_call_stmt(), parse_cpnt_dcl_stmt(), parse_data_imp_do(), parse_deref(), parse_derived_type_stmt(), parse_else_stmt(), parse_imp_do(), parse_inline_always_never(), parse_module_stmt(), parse_permutation_mic(), parse_prog_unit(), parse_sgi_dir_inline(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), print_attr_name(), process_all_initialized_cpnts(), read_in_module_tbl(), read_module_tbl_header(), read_sytb_from_module_file(), rename_only_semantics(), reshape_array_semantics(), resolve_used_modules(), retype_attr(), send_attr_ntry(), set_directives_on_label(), set_up_pe_offset_attr(), srch_ar_file_for_module_tbl(), srch_for_module_tbl(), start_new_prog_unit(), start_new_subpgm(), stmt_func_semantics(), stor_bit_size_of(), storage_blk_resolution(), use_stmt_semantics(), and verify_interface().

#define AT_DEF_IN_CHILD ( IDX ) attr_tbl[IDX].fld.def_in_child

Definition at line 351 of file sytb.m.

Referenced by call_list_semantics(), do_read_namelist_semantics(), dump_at_ntry(), host_associated_attr_semantics(), send_attr_ntry(), send_dummy_procedure(), and srch_for_calls().

#define AT_DEF_LINE ( IDX ) attr_aux_tbl[IDX].fld.def_line

Definition at line 349 of file sytb.m.

Referenced by align_bit_length(), array_dim_resolution(), assign_new_idxs_after_input(), assign_offset(), assign_storage_blk(), attr_link_resolution(), attr_semantics(), bits_and_bytes_to_words(), bound_semantics(), char_len_resolution(), check_and_allocate_common_storage(), check_for_dependencies(), check_for_dup_derived_type_lbl(), check_for_elementals(), check_global_pgm_unit(), ck_lbl_construct_name(), collapse_interface_blk(), compare_duplicate_interface_bodies(), compare_entry_to_func_rslt(), complete_intrinsic_definition(), continue_stmt_semantics(), copy_subtree(), create_argchck_descriptor(), create_equiv_stor_blk(), create_lib_entry_attr(), create_mod_info_file(), create_namelist_descriptor(), decl_semantics(), default_init_semantics(), do_stmt_semantics(), dump_at_ntry(), else_stmt_semantics(), end_if_blk(), end_interface_blk(), end_select_blk(), final_attr_semantics(), find_attrs_used_in_bound(), find_prog_unit_tbl(), fnd_semantic_err(), gen_allocatable_ptr_ptee(), gen_attr_and_IR_for_lbl(), gen_auto_length(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_copyin_bounds_stmt(), gen_darg_branch_test(), gen_default_init_code(), gen_forall_derived_type(), gen_present_ir(), gen_single_automatic_allocate(), gen_temp_init(), gen_tmp_eq_zero_ir(), generic_spec_semantics(), global_name_semantics(), host_associated_attr_semantics(), init_parse_prog_unit(), init_whole_array(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), label_ref_semantics(), loop_end_processing(), not_visible_semantics(), ntr_const_tbl(), ntr_global_attr_tbl(), ntr_host_in_sym_tbl(), ntr_local_attr_list(), ntr_ref_in_global_tbl(), ntr_sym_tbl(), ntr_unshared_const_tbl(), open_module_file(), output_mod_info_file(), parse_call_stmt(), parse_case_stmt(), parse_cpnt_dcl_stmt(), parse_data_imp_do(), parse_deref(), parse_derived_type_stmt(), parse_else_stmt(), parse_imp_do(), parse_inline_always_never(), parse_module_stmt(), parse_permutation_mic(), parse_prog_unit(), parse_sgi_dir_inline(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), print_attr_name(), process_all_initialized_cpnts(), read_in_module_tbl(), read_module_tbl_header(), read_sytb_from_module_file(), rename_only_semantics(), reshape_array_semantics(), resolve_used_modules(), retype_attr(), send_attr_ntry(), send_dummy_procedure(), send_procedure(), set_directives_on_label(), set_up_pe_offset_attr(), srch_ar_file_for_module_tbl(), srch_for_module_tbl(), start_new_prog_unit(), start_new_subpgm(), stmt_func_semantics(), stor_bit_size_of(), storage_blk_resolution(), use_stmt_semantics(), and verify_interface().

#define AT_DEFINED ( IDX ) attr_tbl[IDX].fld.defined

Definition at line 352 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assignment_stmt_semantics(), attr_semantics(), backspace_stmt_semantics(), bound_resolution(), bound_semantics(), call_list_semantics(), check_for_dup_derived_type_lbl(), check_label_ref(), check_multiple_entry_func(), ck_lbl_construct_name(), close_stmt_semantics(), copy_and_replace_tmps(), create_constructor_constant(), create_loop_stmts(), create_tmp_asg(), determine_lb_ub(), do_read_namelist_semantics(), do_stmt_semantics(), dump_at_ntry(), else_stmt_semantics(), end_blockdata(), end_function(), end_if_blk(), end_internal_proc(), end_module(), end_module_proc(), end_program_unit(), end_select_blk(), end_subroutine(), endfile_stmt_semantics(), expand_user_bound(), find_attrs_used_in_bound(), flatten_function_call(), fnd_semantic_err(), fold_aggragate_expression(), gen_assumed_shape_copy(), gen_attr_and_IR_for_lbl(), gen_bd_entry(), gen_debug_lbl_stmt(), gen_end_prologue_debug_label(), gen_forall_branch_around(), gen_forall_derived_type(), gen_if_ir(), gen_if_stmt(), host_associated_attr_semantics(), init_parse_prog_unit(), init_whole_array(), inquire_stmt_semantics(), insert_argchck_calls(), label_ref_semantics(), lbound_intrinsic(), loop_end_processing(), mark_attr_defined(), merge_data(), merge_parameter(), not_visible_semantics(), open_stmt_semantics(), parse_assign_stmt(), parse_case_stmt(), parse_cpnt_dcl_stmt(), parse_decode_stmt(), parse_derived_type_stmt(), parse_dir_directives(), parse_do_stmt(), parse_dummy_args(), parse_else_stmt(), parse_encode_stmt(), parse_io_control_list(), parse_lhs(), parse_print_stmt(), parse_prog_unit(), parse_read_stmt(), parse_type_dcl_stmt(), parse_write_stmt(), pgm_unit_semantics(), random_number_intrinsic(), read_stmt_semantics(), reshape_intrinsic(), resolve_fwd_lbl_refs(), rewind_stmt_semantics(), send_attr_ntry(), send_dummy_procedure(), set_attr_flds_for_output(), shape_intrinsic(), short_circuit_branch(), srch_for_calls(), start_new_prog_unit(), stmt_level_semantics(), test_size_stmts(), transfer_intrinsic(), transform_cri_ch_ptr(), ubound_intrinsic(), update_idxs_in_attr_entry(), and write_stmt_semantics().

#define AT_ELEMENTAL_INTRIN ( IDX ) attr_tbl[IDX].fld.elemental_intrin

Definition at line 353 of file sytb.m.

Referenced by call_list_semantics(), compare_darg_to_actual_arg(), complete_intrinsic_definition(), conform_check(), dump_at_ntry(), enter_intrinsic_info(), generic_spec_semantics(), merge_intrinsic(), parse_deref(), parse_inline_always_never(), parse_module_stmt(), parse_sgi_dir_inline(), parse_stmt_func_stmt(), and start_new_subpgm().

#define AT_HOST_ASSOCIATED ( IDX ) attr_tbl[IDX].fld.host_associated

Definition at line 354 of file sytb.m.

Referenced by attr_link_resolution(), attr_semantics(), call_list_semantics(), cif_send_attr(), copy_sbtree(), dump_at_ntry(), final_attr_semantics(), final_equivalence_semantics(), host_associated_attr_semantics(), parse_common_stmt(), send_attr_ntry(), and srch_for_calls().

#define AT_IGNORE_ATTR_LINK ( IDX ) attr_tbl[IDX].fld.ignore_attr_link

Definition at line 355 of file sytb.m.

Referenced by array_construct_semantics(), assign_new_idxs_after_input(), build_loop_tbl(), call_list_semantics(), create_namelist_descriptor(), defined_bin_opr_handler(), defined_un_opr_handler(), dump_at_ntry(), end_forall_semantics(), final_attr_semantics(), forall_semantics(), io_list_semantics(), resolve_used_modules(), send_attr_ntry(), set_mod_link_tbl_for_attr(), subscript_opr_handler(), and update_idxs_in_attr_entry().

#define AT_IS_DARG ( IDX ) attr_tbl[IDX].fld.is_darg

Definition at line 356 of file sytb.m.

Referenced by attr_semantics(), bound_semantics(), call_list_semantics(), cif_send_attr(), complete_intrinsic_definition(), dump_at_ntry(), fnd_semantic_err(), parse_dummy_args(), parse_stmt_func_stmt(), present_intrinsic(), send_attr_ntry(), and srch_for_calls().

#define AT_IS_INTRIN ( IDX ) attr_tbl[IDX].fld.is_intrin

Definition at line 357 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assignment_stmt_semantics(), attr_semantics(), call_list_semantics(), check_and_allocate_common_storage(), cif_send_attr(), complete_intrinsic_definition(), constant_value_semantics(), directive_stmt_semantics(), dump_at_ntry(), enter_intrinsic_info(), final_arg_work(), final_attr_semantics(), flatten_function_call(), fnd_semantic_err(), generic_spec_semantics(), interpret_constructor(), make_external_name(), merge_access(), merge_external(), merge_interfaces(), merge_intrinsic(), merge_type(), parse_call_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_inline_always_never(), parse_module_stmt(), parse_sgi_dir_inline(), parse_stmt_func_stmt(), parse_type_dcl_stmt(), resolve_attr(), send_attr_ntry(), start_new_subpgm(), update_intrinsic(), use_stmt_semantics(), and verify_interface().

#define AT_LOCKED_IN ( IDX ) attr_aux_tbl[IDX].fld.locked_in

Definition at line 358 of file sytb.m.

Referenced by assert_semantics(), call_list_semantics(), defined_bin_opr_handler(), defined_un_opr_handler(), directive_stmt_semantics(), doall_cmic_semantics(), dump_at_ntry(), gen_forall_derived_type(), mp_directive_semantics(), open_mp_directive_semantics(), parallel_cmic_semantics(), parse_deref(), parse_derived_type_stmt(), parse_type_spec(), set_up_pe_offset_attr(), and start_new_subpgm().

#define AT_MODULE_IDX ( IDX ) attr_tbl[IDX].fld.module_idx

#define AT_MODULE_OBJECT ( IDX ) attr_tbl[IDX].fld.module_object

Definition at line 360 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), resolve_attr(), send_attr_ntry(), and send_procedure().

#define AT_NAME_IDX ( IDX ) attr_tbl[IDX].fld.name_idx

Definition at line 361 of file sytb.m.

Referenced by array_construct_semantics(), assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), build_loop_tbl(), call_list_semantics(), chain_thru_sn_ntries(), check_for_dup_derived_type_lbl(), chg_data_obj_to_pgm_unit(), cif_send_attr(), complete_intrinsic_definition(), compress_tbls(), create_lib_entry_attr(), create_mod_info_file(), cvrt_exp_to_pdg(), final_attr_semantics(), forall_semantics(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_end_prologue_debug_label(), gen_forall_derived_type(), generic_spec_semantics(), implicit_use_semantics(), init_parse_prog_unit(), loop_thru_sn_ntries(), merge_parameter(), minval_intrinsic(), not_visible_semantics(), ntr_global_attr_tbl(), ntr_hidden_name_tbl(), ntr_host_in_sym_tbl(), ntr_local_attr_list(), ntr_sym_tbl(), output_mod_info_file(), parse_call_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_dummy_args(), parse_entry_stmt(), parse_inline_always_never(), parse_module_stmt(), parse_name_dir(), parse_namelist_stmt(), parse_nosideeffects_dir(), parse_sgi_dir_inline(), parse_star_directives(), parse_stmt_func_stmt(), parse_type_dcl_stmt(), parse_type_spec(), parse_use_stmt(), parse_vfunction_dir(), print_sn_list(), rename_only_semantics(), send_mod_file_name(), send_procedure(), set_attr_flds_for_output(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), start_new_prog_unit(), start_new_scp(), start_new_subpgm(), update_idxs_in_attr_entry(), update_intrinsic(), use_stmt_semantics(), and verify_interface().

#define AT_NAME_LEN ( IDX ) attr_tbl[IDX].fld.length

Definition at line 362 of file sytb.m.

Referenced by array_construct_semantics(), assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), blk_match_err(), build_loop_tbl(), call_list_semantics(), check_call_for_global_def(), check_for_dup_derived_type_lbl(), check_global_pgm_unit(), chg_data_obj_to_pgm_unit(), compare_derived_types(), compare_duplicate_interface_bodies(), compare_global_derived_type(), complete_intrinsic_definition(), compress_tbls(), copy_sbtree(), copy_to_gl_subtree(), create_lib_entry_attr(), create_mod_info_file(), create_namelist_descriptor(), create_strct_tbl(), determine_struct_tbl_size(), directive_stmt_semantics(), dump_at_ntry(), emit_format_msg(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_attr_semantics(), final_decl_semantics(), find_attrs_used_in_bound(), find_prog_unit_tbl(), forall_semantics(), free_tables(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_end_prologue_debug_label(), gen_forall_derived_type(), host_associated_attr_semantics(), implicit_use_semantics(), init_parse_prog_unit(), issue_undefined_type_msg(), make_in_parent_string(), match_blk(), merge_intrinsic(), merge_parameter(), minval_intrinsic(), not_visible_semantics(), ntr_common_in_global_attr_tbl(), ntr_global_attr_tbl(), ntr_host_in_sym_tbl(), ntr_local_attr_list(), ntr_sym_tbl(), output_mod_info_file(), parse_call_stmt(), parse_case_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_dummy_args(), parse_else_stmt(), parse_end_stmt(), parse_entry_stmt(), parse_format_stmt(), parse_inline_always_never(), parse_module_stmt(), parse_name_dir(), parse_namelist_stmt(), parse_nosideeffects_dir(), parse_sgi_dir_inline(), parse_star_directives(), parse_stmt_func_stmt(), parse_type_dcl_stmt(), parse_use_stmt(), parse_vfunction_dir(), print_attr_f(), read_in_module_tbl(), read_module_tbl_header(), rename_only_semantics(), resolve_attr(), resolve_ext_opr(), send_mod_file_name(), set_attr_flds_for_output(), set_inline_state(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), srch_for_module_tbl(), start_new_prog_unit(), start_new_subpgm(), update_components(), update_intrinsic(), use_stmt_semantics(), and verify_interface().

#define AT_NAMELIST_OBJ ( IDX ) attr_tbl[IDX].fld.namelist_obj

Definition at line 363 of file sytb.m.

Referenced by dump_at_ntry(), final_attr_semantics(), fnd_semantic_err(), merge_type(), namelist_resolution(), parse_deref(), parse_namelist_stmt(), and send_attr_ntry().

#define AT_NOT_VISIBLE ( IDX ) attr_tbl[IDX].fld.not_visible

#define AT_OBJ_CLASS ( IDX ) attr_tbl[IDX].fld.object_class

Definition at line 365 of file sytb.m.

Referenced by adjustl_intrinsic(), align_bit_length(), alloc_obj_opr_handler(), allocate_stmt_semantics(), assign_new_idxs_after_input(), assign_stmt_semantics(), assignment_stmt_semantics(), attr_link_resolution(), attr_semantics(), bits_and_bytes_to_words(), bound_semantics(), build_loop_tbl(), call_list_semantics(), chain_thru_sn_ntries(), char_len_resolution(), check_actual_and_dummy(), check_and_allocate_common_storage(), check_dependence(), check_expr_for_elementals(), check_for_dup_derived_type_lbl(), check_for_elementals(), check_for_legal_define(), check_forall_triplet_for_index(), check_label_ref(), check_stat_variable(), check_where_conformance(), cif_call_site_rec(), cif_send_attr(), cif_send_sytb(), cif_usage_rec(), ck_lbl_construct_name(), clean_pdg_link_tbls_for_nested_pu(), compare_darg_to_actual_arg(), compare_dummy_arguments(), complete_intrinsic_definition(), compress_tbls(), constant_value_semantics(), convert_const(), copy_sbtree(), copy_subtree(), create_lib_entry_attr(), create_mod_info_tbl(), cvrt_exp_to_pdg(), cvrt_sytb_to_pdg(), data_repeat_semantics(), dealloc_obj_opr_handler(), deallocate_stmt_semantics(), decl_semantics(), dim_reshape_pass_driver(), directive_stmt_semantics(), do_read_namelist_semantics(), doall_cmic_semantics(), doall_end_semantics(), dump_at_ntry(), encode_decode_stmt_semantics(), endparallel_cmic_semantics(), enter_intrinsic_info(), expand_user_bound(), expr_is_symbolic_constant(), fill_in_global_attr_ntry(), final_arg_work(), final_attr_semantics(), final_decl_semantics(), find_attrs_used_in_bound(), fnd_semantic_err(), fold_clen_opr(), gen_arg_type_descriptor(), gen_attr_and_IR_for_lbl(), gen_bd_entry(), gen_debug_lbl_stmt(), gen_forall_derived_type(), gen_internal_lbl(), gen_loop_end_ir(), gen_loop_lbl_name(), gen_sf_dv_whole_def(), gen_tmp_equal_max_zero(), gen_whole_subscript(), generic_spec_semantics(), get_dummy_arg_type(), get_operand_dot(), get_operator_dot(), get_shape_from_attr(), get_type_desc(), global_name_semantics(), goto_stmt_semantics(), host_associated_attr_semantics(), il_is_symbolic_constant(), implicit_use_semantics(), init_parse_prog_unit(), io_ctl_list_semantics(), io_list_semantics(), ir_is_symbolic_constant(), issue_undefined_type_msg(), loc_intrinsic(), loop_thru_sn_ntries(), mark_attr_defined(), merge_access(), merge_automatic(), merge_dimension(), merge_external(), merge_intent(), merge_intrinsic(), merge_optional(), merge_pointer(), merge_target(), merge_type(), mp_directive_semantics(), namelist_resolution(), not_visible_semantics(), ntr_global_attr_tbl(), ntr_ref_in_global_tbl(), nullify_stmt_semantics(), num_images_intrinsic(), open_mp_directive_semantics(), optimize_reshape(), parallel_cmic_semantics(), paren_grp_is_cplx_const(), parse_actual_arg_spec(), parse_assign_stmt(), parse_assignment_stmt(), parse_attr_spec(), parse_attrs(), parse_cache_noalloc(), parse_call_stmt(), parse_common_stmt(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_decode_stmt(), parse_deref(), parse_derived_type_stmt(), parse_do_stmt(), parse_dummy_args(), parse_elemental_stmt(), parse_encode_stmt(), parse_entry_stmt(), parse_equivalence_stmt(), parse_expr(), parse_fill_align_symbol(), parse_ignore_tkr(), parse_imp_do(), parse_inline_always_never(), parse_interface_stmt(), parse_io_control_list(), parse_level_1(), parse_lhs(), parse_module_stmt(), parse_name_dir(), parse_namelist_stmt(), parse_nosideeffects_dir(), parse_operand(), parse_parameter_stmt(), parse_permutation_mic(), parse_pointer_stmt(), parse_print_stmt(), parse_pure_stmt(), parse_read_stmt(), parse_recursive_stmt(), parse_sgi_dir_inline(), parse_star_directives(), parse_stmt_func_stmt(), parse_symmetric_dir(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), parse_use_stmt(), parse_var_common_list(), parse_vfunction_dir(), parse_write_stmt(), present_intrinsic(), print_attr_f(), print_attr_name(), print_scp_to_fortran(), print_sn_list(), process_attr_list(), process_char_len(), process_variable_size_func(), random_number_intrinsic(), rename_only_semantics(), reshape_array_semantics(), reshape_intrinsic(), resolve_attr(), resolve_ext_opr(), retype_attr(), search_expr_for_dargs(), select_stmt_semantics(), send_attr_ntry(), send_darg_list(), set_attr_flds_for_output(), set_function_rslt(), set_global_value_variables(), set_inline_state(), set_mod_link_tbl_for_attr(), set_mp_task_flags(), set_stride_for_first_dim(), set_up_exp_desc(), set_up_pe_offset_attr(), setup_interchange_level_list(), size_offset_binary_calc(), size_offset_min_max_calc(), srch_for_calls(), srch_kwd_name(), start_new_prog_unit(), start_new_subpgm(), stmt_func_call_opr_handler(), stor_bit_size_of(), struct_construct_opr_handler(), subscript_opr_handler(), transform_cri_ch_ptr(), update_components(), update_fld_type(), update_idxs_in_attr_entry(), use_stmt_semantics(), and verify_interface().

#define AT_OBJ_NAME ( IDX ) name_pool[AT_NAME_IDX(IDX)].name_char

Definition at line 366 of file sytb.m.

Referenced by attr_semantics(), call_list_semantics(), cif_send_attr(), and srch_for_calls().

#define AT_OBJ_NAME_LONG ( IDX ) &(name_pool[AT_NAME_IDX(IDX)].name_long)

Definition at line 367 of file sytb.m.

Referenced by assign_new_idxs_after_input(), blk_match_err(), compare_derived_types(), compare_duplicate_interface_bodies(), compare_global_derived_type(), find_prog_unit_tbl(), host_associated_attr_semantics(), match_blk(), ntr_global_attr_tbl(), parse_case_stmt(), parse_else_stmt(), parse_end_stmt(), read_in_module_tbl(), read_module_tbl_header(), srch_for_module_tbl(), and verify_interface().

#define AT_OBJ_NAME_PTR ( IDX ) &name_pool[AT_NAME_IDX(IDX)].name_char

Definition at line 368 of file sytb.m.

Referenced by allocate_stmt_semantics(), array_construct_semantics(), array_dim_resolution(), assign_offset(), assign_stmt_semantics(), assignment_stmt_semantics(), attr_init_semantics(), attr_link_resolution(), attr_semantics(), blk_match_err(), build_loop_tbl(), call_list_semantics(), chain_thru_sn_ntries(), char_len_resolution(), character_to_character(), check_actual_and_dummy(), check_and_allocate_common_storage(), check_call_for_global_def(), check_for_dup_derived_type_lbl(), check_for_legal_define(), check_global_pgm_unit(), check_target_and_value(), cif_call_site_rec(), cif_label_rec(), cif_send_attr(), cif_unit_rec(), ck_lbl_construct_name(), compare_darg_to_actual_arg(), compare_duplicate_interface_bodies(), compare_entry_to_func_rslt(), const_init_semantics(), constant_value_semantics(), convert_const(), copy_sbtree(), copy_to_gl_subtree(), create_mod_info_file(), create_namelist_descriptor(), create_strct_tbl(), cvrt_exp_to_pdg(), deallocate_stmt_semantics(), decl_semantics(), default_init_semantics(), determine_tmp_size(), directive_stmt_semantics(), do_read_namelist_semantics(), doall_cmic_semantics(), dump_al_ntry(), dump_at_ntry(), dump_blk_ntry(), dump_eq_ntry(), dump_scp_ntry(), dump_trace_info(), end_blockdata(), end_function(), end_interface_blk(), end_module(), end_program_unit(), end_subroutine(), end_type_blk(), equivalence_semantics(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_arg_work(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), find_attrs_used_in_bound(), find_base_attr(), find_prog_unit_tbl(), flatten_function_call(), flush_msg_file(), fnd_semantic_err(), forall_semantics(), free_tables(), gen_attr_and_IR_for_lbl(), gen_call_type_descriptor(), gen_loop_lbl_name(), gen_runtime_bounds(), gen_runtime_ptr_chk(), gen_runtime_substring(), generic_spec_semantics(), get_basic_type_str(), global_name_semantics(), goto_stmt_semantics(), host_associated_attr_semantics(), implicit_use_semantics(), init_whole_array(), io_ctl_list_semantics(), io_list_semantics(), is_attr_referenced_in_bound(), issue_undefined_type_msg(), label_ref_semantics(), loc_intrinsic(), main(), make_in_parent_string(), make_new_bd_entries(), merge_access(), merge_allocatable(), merge_automatic(), merge_dimension(), merge_external(), merge_intent(), merge_intrinsic(), merge_optional(), merge_parameter(), merge_pointer(), merge_save(), merge_target(), merge_type(), merge_volatile(), mp_directive_semantics(), namelist_resolution(), not_visible_semantics(), ntr_common_in_global_attr_tbl(), ntr_const_tbl(), ntr_unshared_const_tbl(), nullify_stmt_semantics(), object_semantics(), open_module_file(), open_mp_directive_semantics(), output_minimal_object_rec(), output_mod_info_file(), output_msg(), parallel_cmic_semantics(), parse_access_stmt(), parse_auxiliary_dir(), parse_backspace_stmt(), parse_call_stmt(), parse_close_stmt(), parse_cpnt_dcl_stmt(), parse_decode_stmt(), parse_deref(), parse_derived_type_stmt(), parse_dummy_args(), parse_encode_stmt(), parse_endfile_stmt(), parse_entry_stmt(), parse_equivalence_stmt(), parse_expr(), parse_inline_always_never(), parse_inquire_stmt(), parse_io_control_list(), parse_length_selector(), parse_level_1(), parse_lhs(), parse_module_stmt(), parse_namelist_stmt(), parse_open_stmt(), parse_permutation_mic(), parse_pointer_stmt(), parse_print_stmt(), parse_read_stmt(), parse_rewind_stmt(), parse_sequence_stmt(), parse_sgi_dir_inline(), parse_stmt_func_stmt(), parse_stop_pause_stmt(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), parse_use_stmt(), parse_var_common_list(), parse_write_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), pop_and_err_blk_stk(), print_at_name(), print_attr_f(), print_attr_name(), print_expanded_il(), print_expanded_opnd(), print_expanded_stmt_for_scp(), print_fld_idx(), print_name(), print_sytb(), print_type_f(), put_format_in_tbl(), read_in_module_tbl(), read_module_tbl_header(), read_sytb_from_module_file(), rename_only_semantics(), reshape_array_semantics(), resolve_attr(), resolve_ext_opr(), resolve_fwd_lbl_refs(), resolve_used_modules(), retype_attr(), send_attr_ntry(), send_darg_list(), send_derived_type(), send_dummy_procedure(), send_interface_list(), send_label(), send_label_def(), send_mod_file_name(), send_namelist_group(), send_procedure(), send_stor_blk(), set_function_rslt(), set_inline_state(), srch_ar_file_for_module_tbl(), srch_for_calls(), srch_for_module_tbl(), start_new_prog_unit(), start_new_subpgm(), stmt_func_call_opr_handler(), stmt_func_semantics(), stor_bit_size_of(), struct_construct_opr_handler(), type_init_semantics(), update_components(), update_intrinsic(), use_stmt_semantics(), and verify_interface().

#define AT_OPTIONAL ( IDX ) attr_tbl[IDX].fld.optional

#define AT_ORIG_MODULE_IDX ( IDX ) attr_tbl[IDX].fld.orig_module_idx

Definition at line 370 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), rename_only_semantics(), send_attr_ntry(), and send_derived_type().

#define AT_ORIG_NAME ( IDX ) name_pool[AT_ORIG_NAME_IDX(IDX)].name_char

Definition at line 374 of file sytb.m.

#define AT_ORIG_NAME_IDX ( IDX ) attr_tbl[IDX].fld.orig_name_idx

Definition at line 371 of file sytb.m.

Referenced by assign_new_idxs_after_input(), cif_send_attr(), cvrt_exp_to_pdg(), dump_at_ntry(), implicit_use_semantics(), ntr_global_attr_tbl(), ntr_hidden_name_tbl(), parse_use_stmt(), rename_only_semantics(), set_attr_flds_for_output(), set_mod_link_tbl_for_attr(), update_idxs_in_attr_entry(), update_intrinsic(), and use_stmt_semantics().

#define AT_ORIG_NAME_LEN ( IDX ) attr_tbl[IDX].fld.orig_name_len

Definition at line 372 of file sytb.m.

Referenced by compare_derived_types(), compare_global_derived_type(), dump_at_ntry(), implicit_use_semantics(), merge_interfaces(), not_visible_semantics(), ntr_global_attr_tbl(), ntr_hidden_name_tbl(), parse_use_stmt(), rename_only_semantics(), resolve_attr(), set_attr_flds_for_output(), set_mod_link_tbl_for_attr(), and update_intrinsic().

#define AT_ORIG_NAME_LONG ( IDX ) &(name_pool[AT_ORIG_NAME_IDX(IDX)].name_long)

Definition at line 375 of file sytb.m.

Referenced by compare_derived_types(), compare_global_derived_type(), merge_interfaces(), not_visible_semantics(), ntr_global_attr_tbl(), and resolve_attr().

#define AT_ORIG_NAME_PTR ( IDX ) &name_pool[AT_ORIG_NAME_IDX(IDX)].name_char

Definition at line 373 of file sytb.m.

Referenced by cif_rename_rec(), dump_at_ntry(), and update_intrinsic().

#define AT_PRIVATE ( IDX ) attr_tbl[IDX].fld.private_access

#define AT_REF_IN_CHILD ( IDX ) attr_tbl[IDX].fld.ref_in_child

Definition at line 377 of file sytb.m.

Referenced by call_list_semantics(), cif_send_attr(), do_write_namelist_semantics(), dump_at_ntry(), final_decl_semantics(), host_associated_attr_semantics(), send_attr_ntry(), and send_dummy_procedure().

#define AT_REFERENCED ( IDX ) attr_tbl[IDX].fld.referenced

Definition at line 378 of file sytb.m.

Referenced by adjust_char_value_len(), array_bounds_resolution(), assign_new_idxs_after_input(), assignment_stmt_semantics(), attr_link_resolution(), attr_semantics(), backspace_stmt_semantics(), bound_resolution(), bound_semantics(), build_loop_tbl(), call_list_semantics(), check_and_allocate_common_storage(), check_label_ref(), cif_call_site_rec(), cif_object_rec_for_func_result(), cif_send_attr(), close_stmt_semantics(), copy_and_replace_tmps(), create_constructor_constant(), create_lib_entry_attr(), do_stmt_semantics(), do_write_namelist_semantics(), dump_at_ntry(), else_stmt_semantics(), end_if_blk(), endfile_stmt_semantics(), expand_user_bound(), fill_in_global_attr_ntry(), final_attr_semantics(), final_decl_semantics(), find_attrs_used_in_bound(), fnd_semantic_err(), fold_aggragate_expression(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_internal_lbl(), gen_loop_end_ir(), generic_spec_semantics(), get_type_desc(), host_associated_attr_semantics(), init_whole_array(), inquire_stmt_semantics(), interpret_implied_do(), label_def_stmt_semantics(), lbound_intrinsic(), loop_end_processing(), merge_dimension(), merge_parameter(), merge_type(), namelist_resolution(), not_visible_semantics(), ntr_bnds_sh_tmp_list(), ntr_bnds_tmp_list(), open_stmt_semantics(), parse_array_spec(), parse_assign_stmt(), parse_attrs(), parse_auxiliary_dir(), parse_cache_noalloc(), parse_call_stmt(), parse_case_stmt(), parse_common_stmt(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_deref(), parse_distribution_dir(), parse_do_stmt(), parse_dummy_args(), parse_else_stmt(), parse_equivalence_stmt(), parse_fill_align_symbol(), parse_goto_stmt(), parse_if_stmt(), parse_ignore_tkr(), parse_io_control_list(), parse_kind_selector(), parse_label_list(), parse_length_selector(), parse_name_dir(), parse_namelist_stmt(), parse_nosideeffects_dir(), parse_parameter_stmt(), parse_pe_array_spec(), parse_permutation_mic(), parse_pointer_stmt(), parse_redistribute_dir(), parse_select_stmt(), parse_star_directives(), parse_stmt_func_stmt(), parse_symmetric_dir(), parse_type_dcl_stmt(), parse_typed_function_stmt(), parse_use_stmt(), parse_vfunction_dir(), read_stmt_semantics(), reshape_intrinsic(), resolve_ext_opr(), resolve_used_modules(), retype_attr(), rewind_stmt_semantics(), send_attr_ntry(), send_label_def(), send_procedure(), set_function_rslt(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), shape_intrinsic(), short_circuit_branch(), srch_for_calls(), storage_blk_resolution(), transfer_intrinsic(), transform_cri_ch_ptr(), ubound_intrinsic(), use_stmt_semantics(), vv_subscript_semantics(), and write_stmt_semantics().

#define AT_SEMANTICS_DONE ( IDX ) attr_aux_tbl[IDX].fld.semantics_done

Definition at line 379 of file sytb.m.

Referenced by adjust_char_value_len(), array_construct_semantics(), array_element_to_scalar(), assign_stmt_semantics(), attr_semantics(), backspace_stmt_semantics(), build_loop_tbl(), call_list_semantics(), change_section_to_do(), character_to_character(), check_stat_variable(), close_stmt_semantics(), copy_and_replace_tmps(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_io_call_descriptor(), create_namelist_descriptor(), create_runtime_array_constructor(), create_runtime_struct_constructor(), create_scalar_type_tbl(), create_strct_tbl(), determine_lb_ub(), do_single_asg(), dump_at_ntry(), endfile_stmt_semantics(), final_arg_work(), flatten_function_call(), fold_aggragate_expression(), forall_semantics(), gen_allocatable_ptr_ptee(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_dv_def_loops(), gen_forall_derived_type(), gen_forall_tmp(), gen_initialized_tmp(), gen_loop_end_ir(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_integer_array_tmp(), get_stmt_tmp(), init_parse_prog_unit(), init_whole_array(), inquire_stmt_semantics(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), lbound_intrinsic(), null_intrinsic(), open_stmt_semantics(), optimize_reshape(), parse_cpnt_dcl_stmt(), parse_dummy_args(), put_string_in_tmp(), random_seed_intrinsic(), ranget_intrinsic(), read_stmt_semantics(), reshape_intrinsic(), rewind_stmt_semantics(), scalar_dope_to_scalar(), set_sb_first_attr_idx(), set_up_bd_tmps(), set_up_pe_offset_attr(), set_up_which_entry_tmp(), shape_intrinsic(), srch_for_calls(), struct_construct_opr_handler(), subscript_opr_handler(), transfer_intrinsic(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_dv_component(), ubound_intrinsic(), vv_subscript_semantics(), and write_stmt_semantics().

#define AT_TYPED ( IDX ) attr_tbl[IDX].fld.typed

#define AT_WORK_IDX NULL_IDX /* Attr table work area */

#define ATD_ALIGN_SYMBOL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_ALIGN_SYMBOL", IDX))            \
                [IDX].fld.flag21

Definition at line 420 of file sytb.m.

Referenced by dump_at_ntry(), fnd_semantic_err(), and parse_fill_align_symbol().

#define ATD_ALIGNMENT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_ALIGNMENT", IDX))               \
                [IDX].fld2.alignment

Definition at line 429 of file sytb.m.

Referenced by assign_offset(), chain_thru_sn_ntries(), cvrt_exp_to_pdg(), dump_at_ntry(), end_type_blk(), get_type_desc(), and send_attr_ntry().

#define ATD_ALLOCATABLE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_ALLOCATABLE", IDX))             \
                [IDX].fld.flag6

Definition at line 438 of file sytb.m.

Referenced by alloc_obj_opr_handler(), allocate_stmt_semantics(), array_dim_resolution(), attr_semantics(), call_list_semantics(), cif_send_attr(), create_runtime_array_constructor(), dealloc_obj_opr_handler(), deallocate_local_allocatables(), deallocate_stmt_semantics(), doall_cmic_semantics(), dump_at_ntry(), encode_decode_stmt_semantics(), fnd_semantic_err(), fold_clen_opr(), gen_common_dv_init(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_runtime_ptr_chk(), gen_split_alloc(), gen_static_dv_whole_def(), gen_whole_subscript(), merge_allocatable(), mp_directive_semantics(), namelist_static_dv_whole_def(), num_images_intrinsic(), open_mp_directive_semantics(), parallel_cmic_semantics(), parse_attr_spec(), parse_deref(), pe_array_dim_resolution(), resolve_ext_opr(), send_attr_ntry(), and subscript_opr_handler().

#define ATD_ARRAY_IDX ( IDX ) attr_tbl[IDX].fld.field1

Definition at line 454 of file sytb.m.

Referenced by adjustl_intrinsic(), alloc_obj_opr_handler(), allocate_stmt_semantics(), array_bounds_resolution(), array_dim_resolution(), assign_new_idxs_after_input(), assign_storage_blk(), attr_init_semantics(), attr_link_resolution(), attr_semantics(), call_list_semantics(), chain_thru_sn_ntries(), char_len_resolution(), character_to_character(), check_actual_and_dummy(), check_array_bounds(), check_for_elementals(), check_where_conformance(), chg_data_obj_to_pgm_unit(), cif_call_site_rec(), cif_named_constant_rec(), cif_send_attr(), compare_darg_or_rslt_types(), compare_darg_to_actual_arg(), compare_derived_types(), compare_duplicate_interface_bodies(), compare_entry_to_func_rslt(), compare_func_result(), compare_global_derived_type(), compare_global_type_rank(), complete_intrinsic_definition(), convert_const(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_io_call_descriptor(), create_namelist_descriptor(), create_runtime_array_constructor(), create_scalar_type_tbl(), create_strct_tbl(), create_struct_constructor_asg(), create_tmp_asg(), create_tmp_DV_asg(), cvrt_exp_to_pdg(), data_stmt_semantics(), dealloc_obj_opr_handler(), decl_semantics(), decl_semantics_driver(), default_init_semantics(), determine_struct_tbl_size(), dim_reshape_pass_driver(), directive_stmt_semantics(), discombobulate_structure_ref(), dope_vector_setup(), dump_at_ntry(), end_function_semantics(), equivalence_semantics(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_arg_work(), final_attr_semantics(), flatten_function_call(), fnd_semantic_err(), fold_aggragate_expression(), fold_all_subscripts(), gen_allocatable_ptr_ptee(), gen_arg_type_descriptor(), gen_assumed_shape_copy(), gen_auto_length(), gen_bd_entry(), gen_call_type_descriptor(), gen_common_dv_init(), gen_default_init_code(), gen_dv_access_low_bound(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_entry_dope_code(), gen_forall_derived_type(), gen_forall_tmp(), gen_init_stmt(), gen_internal_dope_vector(), gen_lb_array_ref(), gen_runtime_bounds(), gen_runtime_ptr_chk(), gen_sf_dv_whole_def(), gen_static_dv_whole_def(), gen_static_integer_array_tmp(), gen_whole_subscript(), get_dummy_arg_type(), get_shape_from_attr(), get_stmt_tmp(), get_type_desc(), global_name_semantics(), host_associated_attr_semantics(), imp_do_metamorphed(), init_whole_array(), insert_init_stmt_for_tmp(), interpret_ref(), interpret_reshape_intrinsic(), interpret_struct_construct_opr(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), lbound_intrinsic(), linearize_list_for_equiv(), loop_thru_sn_ntries(), make_base_assumed_size(), make_new_bd_entries(), matmul_intrinsic(), merge_automatic(), merge_dimension(), merge_parameter(), namelist_static_dv_whole_def(), needs_bounds_check(), null_intrinsic(), open_mp_directive_semantics(), optimize_reshape(), optimize_whole_array_init(), parse_assignment_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_equivalence_stmt(), parse_lhs(), parse_parameter_stmt(), parse_type_dcl_stmt(), process_all_initialized_cpnts(), process_cpnt_inits(), process_variable_size_func(), reshape_array_semantics(), reshape_intrinsic(), resolve_attr(), resolve_ext_opr(), return_stmt_semantics(), search_expr_for_dargs(), section_semantics(), send_attr_ntry(), set_function_rslt(), set_mod_link_tbl_for_attr(), set_shape_for_deferred_funcs(), set_up_pe_offset_attr(), shape_intrinsic(), size_intrinsic(), srch_for_calls(), stor_bit_size_of(), struct_construct_opr_handler(), struct_opr_handler(), subscript_opr_handler(), transfer_intrinsic(), transform_char_sequence_ref(), translate_distant_dv_ref(), translate_distant_ref1(), translate_distant_ref2(), translate_dv_component(), type_init_semantics(), ubound_intrinsic(), update_idxs_in_attr_entry(), and verify_interface().

#define ATD_ASG_TMP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
         attr_tbl[IDX].fld.secondary_info == Compiler_Tmp) ?                   \
                attr_tbl : sytb_var_error("ATD_ASG_TMP", IDX))                 \
                [IDX].fld.flag49

Definition at line 458 of file sytb.m.

Referenced by check_for_elementals(), create_tmp_asg(), and get_stmt_tmp().

#define ATD_ASSIGN_TMP_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Variable) ?                      \
                attr_tbl : sytb_var_error("ATD_ASSIGN_TMP_IDX", IDX))          \
                [IDX].fld.field8

Definition at line 468 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_stmt_semantics(), dump_at_ntry(), encode_decode_stmt_semantics(), io_ctl_list_semantics(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATD_AUTO_BASE_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj && attr_tbl[IDX].fld.flag12) ?         \
                attr_tbl : sytb_var_error("ATD_AUTO_BASE_IDX", IDX))           \
                [IDX].fld.field13

Definition at line 479 of file sytb.m.

Referenced by assign_new_idxs_after_input(), create_runtime_array_constructor(), create_tmp_asg(), doall_cmic_semantics(), dump_at_ntry(), final_arg_work(), flatten_function_call(), gen_assumed_shape_copy(), gen_forall_tmp(), gen_single_automatic_allocate(), get_type_desc(), host_associated_attr_semantics(), mp_directive_semantics(), open_mp_directive_semantics(), parallel_cmic_semantics(), send_attr_ntry(), set_mod_link_tbl_for_attr(), srch_for_calls(), and update_idxs_in_attr_entry().

#define ATD_AUTOMATIC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_AUTOMATIC", IDX))               \
                [IDX].fld.flag12

Definition at line 488 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), assign_storage_blk(), attr_semantics(), char_len_resolution(), copy_sbtree(), create_runtime_array_constructor(), create_tmp_asg(), doall_cmic_semantics(), dump_at_ntry(), final_arg_work(), flatten_function_call(), gen_entry_dope_code(), gen_forall_tmp(), get_type_desc(), host_associated_attr_semantics(), mp_directive_semantics(), open_mp_directive_semantics(), parallel_cmic_semantics(), send_attr_ntry(), set_mod_link_tbl_for_attr(), srch_for_calls(), and update_idxs_in_attr_entry().

#define ATD_AUXILIARY ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_AUXILIARY", IDX))               \
                [IDX].fld.flag9

Definition at line 497 of file sytb.m.

Referenced by attr_semantics(), cif_send_attr(), dump_at_ntry(), final_arg_work(), final_attr_semantics(), fnd_semantic_err(), gen_single_automatic_allocate(), io_list_semantics(), loc_intrinsic(), parse_auxiliary_dir(), parse_common_stmt(), send_attr_ntry(), and stor_bit_size_of().

#define ATD_BOUNDS_CHECK ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_BOUNDS_CHECK", IDX))            \
                [IDX].fld.flag31

Definition at line 506 of file sytb.m.

Referenced by bounds_cdir_handler(), cvrt_exp_to_pdg(), dump_at_ntry(), init_directive(), and needs_bounds_check().

#define ATD_CACHE_ALIGN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_CACHE_ALIGN", IDX))             \
                [IDX].fld.flag26

Definition at line 515 of file sytb.m.

Referenced by directive_stmt_semantics(), dump_at_ntry(), and send_attr_ntry().

#define ATD_CACHE_BYPASS_ARRAY ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_CACHE_BYPASS_ARRAY", IDX))      \
                [IDX].fld.flag39

Definition at line 524 of file sytb.m.

Referenced by directive_stmt_semantics(), and dump_at_ntry().

#define ATD_CACHE_NOALLOC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_CACHE_NOALLOC", IDX))           \
                [IDX].fld.flag43

Definition at line 534 of file sytb.m.

Referenced by dump_at_ntry(), and parse_cache_noalloc().

#define ATD_CHAR_LEN_IN_DV ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_CHAR_LEN_IN_DV", IDX))          \
                [IDX].fld.flag11

Definition at line 544 of file sytb.m.

Referenced by dump_at_ntry(), gen_whole_substring(), repeat_intrinsic(), and trim_intrinsic().

#define ATD_CLASS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_CLASS", IDX))                   \
                [IDX].fld.secondary_info

Definition at line 554 of file sytb.m.

Referenced by array_bounds_resolution(), array_dim_resolution(), assign_new_idxs_after_input(), assign_offset(), assignment_stmt_semantics(), attr_link_resolution(), attr_semantics(), bound_resolution(), bound_semantics(), chain_thru_sn_ntries(), char_bounds_resolution(), char_len_resolution(), check_actual_and_dummy(), check_and_allocate_common_storage(), check_dependence(), check_expr_for_elementals(), check_for_dependencies(), check_for_elementals(), check_for_legal_define(), check_where_conformance(), chg_data_obj_to_pgm_unit(), cif_send_attr(), cif_send_sytb(), cif_usage_rec(), clean_pdg_link_tbls_for_nested_pu(), compare_darg_or_rslt_types(), compare_dummy_arguments(), complete_intrinsic_definition(), const_init_semantics(), constant_value_semantics(), convert_const(), copy_and_replace_tmps(), copy_sbtree(), create_loop_stmts(), create_mod_info_tbl(), cvrt_exp_to_pdg(), directive_stmt_semantics(), do_read_namelist_semantics(), do_stmt_semantics(), doall_cmic_semantics(), dump_at_ntry(), encode_decode_stmt_semantics(), equivalence_semantics(), expand_user_bound(), expr_is_symbolic_constant(), fill_in_global_attr_ntry(), final_arg_work(), final_attr_semantics(), final_decl_semantics(), find_attrs_used_in_bound(), fnd_semantic_err(), forall_semantics(), gen_allocatable_ptr_ptee(), gen_bd_entry(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_dv_access_low_bound(), gen_dv_stride_mult(), gen_entry_dope_code(), gen_forall_derived_type(), gen_forall_tmp_bd_entry(), gen_internal_dope_vector(), gen_ir_at_this_entry(), gen_runtime_checks(), gen_runtime_ptr_chk(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_dv_whole_def(), gen_tmp_equal_max_zero(), gen_whole_substring(), get_basic_type(), get_type_desc(), global_name_semantics(), host_associated_attr_semantics(), il_is_symbolic_constant(), init_parse_prog_unit(), init_whole_array(), insert_sh_after_entries(), io_ctl_list_semantics(), ir_is_symbolic_constant(), item_has_bounds_chk(), loop_thru_sn_ntries(), make_new_bd_entries(), mark_attr_defined(), merge_automatic(), merge_data(), merge_equivalence_groups1(), merge_equivalence_groups2(), merge_intent(), merge_optional(), merge_parameter(), merge_save(), merge_type(), mp_directive_semantics(), needs_bounds_check(), not_visible_semantics(), ntr_bnds_tmp_list(), ntr_ref_in_global_tbl(), open_mp_directive_semantics(), optimize_reshape(), output_struct_ids(), parallel_cmic_semantics(), paren_grp_is_cplx_const(), parse_attr_spec(), parse_common_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_do_stmt(), parse_dummy_args(), parse_entry_stmt(), parse_equivalence_stmt(), parse_ignore_tkr(), parse_lhs(), parse_nosideeffects_dir(), parse_operand(), parse_pointer_stmt(), parse_stmt_func_stmt(), parse_symmetric_dir(), pe_array_dim_resolution(), present_intrinsic(), print_scp_to_fortran(), process_attr_list(), process_variable_size_func(), random_number_intrinsic(), rename_only_semantics(), reshape_array_semantics(), reshape_intrinsic(), resolve_attr(), retype_attr(), search_expr_for_dargs(), send_attr_ntry(), set_attr_flds_for_output(), set_function_rslt(), set_global_value_variables(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), setup_interchange_level_list(), srch_for_calls(), start_new_prog_unit(), start_new_subpgm(), subscript_opr_handler(), substring_opr_handler(), transform_cri_ch_ptr(), translate_distant_ref1(), update_fld_type(), and update_idxs_in_attr_entry().

#define ATD_CONST_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Constant) ?                      \
                attr_tbl : sytb_var_error("ATD_CONST_IDX", IDX))               \
                [IDX].fld.field4

Definition at line 563 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), bound_semantics(), char_len_resolution(), cif_named_constant_rec(), convert_const(), copy_and_replace_tmps(), dump_at_ntry(), expand_user_bound(), final_attr_semantics(), gen_internal_dope_vector(), global_name_semantics(), host_associated_attr_semantics(), init_parse_prog_unit(), io_ctl_list_semantics(), make_new_bd_entries(), merge_parameter(), not_visible_semantics(), paren_grp_is_cplx_const(), parse_operand(), pe_array_dim_resolution(), rename_only_semantics(), resolve_attr(), send_attr_ntry(), set_mod_link_tbl_for_attr(), update_fld_type(), and update_idxs_in_attr_entry().

#define ATD_COPY_ASSUMED_SHAPE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_COPY_ASSUMED_SHAPE", IDX))      \
                [IDX].fld.flag36

Definition at line 573 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), fnd_semantic_err(), gen_assumed_shape_copy(), parse_copy_assumed_shape_dir(), and present_intrinsic().

#define ATD_CPNT_INIT_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Struct_Component) ?              \
                attr_tbl : sytb_var_error("ATD_CPNT_INIT_IDX", IDX))           \
                [IDX].fld.field4

Definition at line 582 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_semantics(), chain_thru_sn_ntries(), default_init_semantics(), dump_at_ntry(), parse_cpnt_dcl_stmt(), process_all_initialized_cpnts(), process_cpnt_inits(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATD_CPNT_OFFSET_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Struct_Component) ?              \
                attr_tbl : sytb_var_error("ATD_CPNT_OFFSET_IDX", IDX))         \
                [IDX].fld.field13

Definition at line 592 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_offset(), chain_thru_sn_ntries(), cif_send_attr(), dump_at_ntry(), end_type_blk(), gen_forall_derived_type(), init_whole_array(), interpret_ref(), interpret_struct_construct_opr(), parse_cpnt_dcl_stmt(), send_attr_ntry(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), and update_idxs_in_attr_entry().

#define ATD_DATA_INIT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_DATA_INIT", IDX))               \
                [IDX].fld.flag2

Definition at line 602 of file sytb.m.

Referenced by assign_storage_blk(), attr_semantics(), cif_send_attr(), create_constructor_constant(), create_format_tmp(), create_scalar_type_tbl(), dump_at_ntry(), final_attr_semantics(), fnd_semantic_err(), fold_aggragate_expression(), gen_initialized_tmp(), gen_loop_end_ir(), gen_static_integer_array_tmp(), init_whole_array(), lbound_intrinsic(), merge_data(), merge_type(), put_string_in_tmp(), reshape_array_semantics(), reshape_intrinsic(), send_attr_ntry(), set_mod_link_tbl_for_attr(), shape_intrinsic(), transfer_intrinsic(), and ubound_intrinsic().

#define ATD_DCL_EQUIV ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_DCL_EQUIV", IDX))               \
                [IDX].fld.flag10

Definition at line 611 of file sytb.m.

Referenced by cif_send_attr(), dump_at_ntry(), and parse_equivalence_stmt().

#define ATD_DEFINING_ATTR_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Compiler_Tmp) ?                  \
                attr_tbl : sytb_var_error("ATD_DEFINING_ATTR_IDX", IDX))       \
                [IDX].fld.field8

Definition at line 620 of file sytb.m.

Referenced by assign_new_idxs_after_input(), bound_semantics(), dump_at_ntry(), final_attr_semantics(), gen_tmp_equal_max_zero(), send_attr_ntry(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATD_DERIVED_TYPE_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Struct_Component) ?              \
                attr_tbl : sytb_var_error("ATD_DERIVED_TYPE_IDX", IDX))        \
                [IDX].fld.field8

Definition at line 630 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), gen_forall_derived_type(), parse_cpnt_dcl_stmt(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), update_components(), and update_idxs_in_attr_entry().

#define ATD_DISTRIBUTION_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_DISTRIBUTION_IDX", IDX))        \
                [IDX].fld2.distribution_idx

Definition at line 640 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_semantics(), distribution_resolution(), dump_at_ntry(), get_type_desc(), parse_distribution_dir(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATD_DV_ALIAS ( IDX )

Value:

(((AT_OBJ_CLASS(IDX) == Data_Obj) &&                                   \
           ((comp_phase == Inlining) || (comp_phase == Pdg_Conversion))) ?     \
                attr_aux_tbl : attr_aux_var_error("ATD_DV_ALIAS", IDX))        \
                [IDX].fld.field3

Definition at line 658 of file sytb.m.

Referenced by send_attr_ntry(), and srch_for_calls().

#define ATD_DYNAMIC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_DYNAMIC", IDX))                 \
                [IDX].fld.flag41

Definition at line 668 of file sytb.m.

Referenced by dump_at_ntry().

#define ATD_ELEMENTAL_CALL_TMP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
         attr_tbl[IDX].fld.secondary_info == Compiler_Tmp) ?                   \
                attr_tbl : sytb_var_error("ATD_ELEMENTAL_CALL_TMP", IDX))      \
                [IDX].fld.flag50

Definition at line 677 of file sytb.m.

Referenced by check_expr_for_elementals(), check_for_elementals(), flatten_function_call(), and get_stmt_tmp().

#define ATD_EQUIV ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_EQUIV", IDX))                   \
                [IDX].fld.flag8

Definition at line 688 of file sytb.m.

Referenced by attr_semantics(), check_and_allocate_common_storage(), check_dependence(), cif_send_attr(), decl_semantics(), dump_at_ntry(), final_attr_semantics(), fnd_semantic_err(), host_associated_attr_semantics(), init_whole_array(), object_semantics(), parse_equivalence_stmt(), rename_only_semantics(), send_attr_ntry(), transform_cri_ch_ptr(), and type_init_semantics().

#define ATD_EQUIV_IN_BNDS_EXPR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_EQUIV_IN_BNDS_EXPR", IDX))\
                [IDX].fld.flag5

Definition at line 697 of file sytb.m.

Referenced by dump_at_ntry(), and final_attr_semantics().

#define ATD_EQUIV_LIST ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATD_EQUIV_LIST", IDX))      \
                [IDX].fld.field2

Definition at line 706 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), equivalence_semantics(), final_attr_semantics(), merge_equivalence_groups1(), merge_equivalence_groups2(), and parse_equivalence_stmt().

#define ATD_EXPR_EVAL_TMP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_EXPR_EVAL_TMP", IDX))     \
                [IDX].fld.flag2

Definition at line 715 of file sytb.m.

Referenced by dump_at_ntry().

#define ATD_FILL_SYMBOL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_FILL_SYMBOL", IDX))             \
                [IDX].fld.flag22

Definition at line 724 of file sytb.m.

Referenced by dump_at_ntry(), fnd_semantic_err(), and parse_fill_align_symbol().

#define ATD_FIRST_SEEN_IL_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATD_FIRST_SEEN_IL_IDX",IDX))\
                [IDX].fld.field3

Definition at line 733 of file sytb.m.

Referenced by dump_at_ntry(), parse_deref(), and parse_imp_do().

#define ATD_FLD ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_FLD", IDX))                     \
                [IDX].fld.field2

Definition at line 742 of file sytb.m.

Referenced by align_bit_length(), array_construct_semantics(), array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), bits_and_bytes_to_words(), bound_resolution(), bound_semantics(), chain_thru_sn_ntries(), char_len_resolution(), check_for_dependencies(), check_for_elementals(), constant_value_semantics(), copy_and_replace_tmps(), create_constructor_constant(), create_format_tmp(), create_tmp_asg(), cvrt_exp_to_pdg(), default_init_semantics(), dump_at_ntry(), expand_user_bound(), expr_is_symbolic_constant(), final_arg_work(), final_attr_semantics(), find_attrs_used_in_bound(), flatten_function_call(), fold_aggragate_expression(), gen_allocatable_ptr_ptee(), gen_assumed_shape_copy(), gen_dv_access_low_bound(), gen_initialized_tmp(), gen_internal_dope_vector(), gen_static_dv_whole_def(), gen_tmp_equal_max_zero(), host_associated_attr_semantics(), il_is_symbolic_constant(), init_parse_prog_unit(), init_whole_array(), insert_init_stmt_for_tmp(), interpret_constructor(), interpret_data_imp_do(), interpret_implied_do(), interpret_ref(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), ir_is_symbolic_constant(), is_attr_referenced_in_bound(), lbound_intrinsic(), make_new_bd_entries(), merge_parameter(), not_visible_semantics(), paren_grp_is_cplx_const(), parse_cpnt_dcl_stmt(), parse_id_directive(), parse_length_selector(), parse_operand(), pe_array_dim_resolution(), process_all_initialized_cpnts(), process_char_len(), process_cpnt_inits(), process_variable_size_func(), rename_only_semantics(), reshape_intrinsic(), resolve_attr(), send_attr_ntry(), set_global_value_variables(), set_mod_link_tbl_for_attr(), set_shape_for_deferred_funcs(), shape_intrinsic(), size_offset_binary_calc(), stmt_func_call_opr_handler(), subscript_opr_handler(), transfer_intrinsic(), transform_cri_ch_ptr(), ubound_intrinsic(), update_fld_type(), and update_idxs_in_attr_entry().

#define ATD_FORALL_INDEX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATD_FORALL_INDEX", IDX))    \
                [IDX].fld.flag8

Definition at line 751 of file sytb.m.

Referenced by check_for_legal_define(), check_forall_triplet_for_index(), dump_at_ntry(), forall_semantics(), and is_local_forall_index().

#define ATD_FUNC_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Function_Result) ?               \
                attr_tbl : sytb_var_error("ATD_FUNC_IDX", IDX))                \
                [IDX].fld.field4

Definition at line 760 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), call_list_semantics(), char_len_resolution(), chg_data_obj_to_pgm_unit(), cif_send_attr(), complete_intrinsic_definition(), dump_at_ntry(), find_attrs_used_in_bound(), fnd_semantic_err(), gen_ir_at_this_entry(), host_associated_attr_semantics(), insert_sh_after_entries(), mark_attr_defined(), merge_type(), parse_do_stmt(), parse_entry_stmt(), parse_lhs(), parse_nosideeffects_dir(), pe_array_dim_resolution(), random_number_intrinsic(), set_function_rslt(), and update_idxs_in_attr_entry().

#define ATD_IGNORE_TKR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_IGNORE_TKR", IDX))              \
                [IDX].fld.flag48

Definition at line 770 of file sytb.m.

Referenced by array_dim_resolution(), attr_semantics(), compare_darg_to_actual_arg(), compare_dummy_arguments(), decl_semantics(), dump_at_ntry(), final_arg_work(), fnd_semantic_err(), gen_arg_type_descriptor(), parse_ignore_tkr(), and resolve_ext_opr().

#define ATD_IM_A_DOPE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_IM_A_DOPE", IDX))               \
                [IDX].fld.flag3

Definition at line 779 of file sytb.m.

Referenced by array_dim_resolution(), assign_offset(), assign_storage_blk(), attr_link_resolution(), attr_semantics(), call_list_semantics(), chain_thru_sn_ntries(), complete_intrinsic_definition(), copy_sbtree(), create_namelist_descriptor(), create_strct_tbl(), cvrt_exp_to_pdg(), decl_semantics_driver(), dope_vector_setup(), dump_at_ntry(), end_function_semantics(), final_arg_work(), flatten_function_call(), fold_clen_opr(), gen_arg_type_descriptor(), gen_default_init_code(), gen_dv_access_low_bound(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_entry_dope_code(), gen_runtime_bounds(), gen_sf_dv_whole_def(), gen_whole_subscript(), get_dummy_arg_type(), get_shape_from_attr(), get_type_desc(), host_associated_attr_semantics(), interpret_constructor(), make_new_bd_entries(), null_intrinsic(), optimize_reshape(), process_variable_size_func(), resolve_ext_opr(), return_stmt_semantics(), send_attr_ntry(), srch_for_calls(), stor_bit_size_of(), and translate_distant_ref().

#define ATD_IMP_DO_LCV ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATD_IMP_DO_LCV", IDX))      \
                [IDX].fld.flag10

Definition at line 788 of file sytb.m.

Referenced by array_construct_semantics(), build_loop_tbl(), check_for_dependencies(), create_imp_do_loops(), dump_at_ntry(), io_list_semantics(), and process_char_len().

#define ATD_IN_ASSIGN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATD_IN_ASSIGN", IDX))       \
                [IDX].fld.flag9

Definition at line 797 of file sytb.m.

Referenced by dump_at_ntry(), encode_decode_stmt_semantics(), goto_stmt_semantics(), io_ctl_list_semantics(), and parse_assign_stmt().

#define ATD_IN_COMMON ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_IN_COMMON", IDX))               \
                [IDX].fld.flag7

Definition at line 806 of file sytb.m.

Referenced by attr_semantics(), check_and_allocate_common_storage(), cif_send_attr(), copy_sbtree(), directive_stmt_semantics(), dump_at_ntry(), equivalence_semantics(), fill_in_global_attr_ntry(), fnd_semantic_err(), gen_common_dv_init(), gen_default_init_code(), gen_entry_dope_code(), object_semantics(), parse_auxiliary_dir(), parse_common_stmt(), print_attr_f(), send_attr_ntry(), set_up_pe_offset_attr(), and type_init_semantics().

#define ATD_INTENT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_INTENT", IDX))                  \
                [IDX].fld.field3

Definition at line 815 of file sytb.m.

Referenced by attr_semantics(), call_list_semantics(), check_for_legal_define(), cif_send_attr(), do_read_namelist_semantics(), dump_at_ntry(), fill_in_global_attr_ntry(), final_arg_work(), final_attr_semantics(), fnd_semantic_err(), gen_arg_type_descriptor(), gen_assumed_shape_copy(), merge_intent(), open_mp_directive_semantics(), parse_attr_spec(), resolve_ext_opr(), send_attr_ntry(), srch_for_calls(), and verify_interface().

#define ATD_INTRIN_DARG ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Dummy_Argument) ?                \
                attr_tbl : sytb_var_error("ATD_INTRIN_DARG", IDX))             \
                [IDX].fld.flag27

Definition at line 824 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), compare_darg_or_rslt_types(), complete_intrinsic_definition(), dump_at_ntry(), get_dummy_arg_type(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATD_INTRIN_DARG_TYPE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Dummy_Argument) ?                \
                attr_tbl : sytb_var_error("ATD_INTRIN_DARG_TYPE", IDX))        \
                [IDX].fldd.field32_12

Definition at line 834 of file sytb.m.

Referenced by compare_darg_or_rslt_types(), compare_darg_to_actual_arg(), complete_intrinsic_definition(), dump_at_ntry(), and final_arg_work().

#define ATD_LCV_IS_CONST ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_LCV_IS_CONST", IDX))            \
                [IDX].fld.flag18

Definition at line 844 of file sytb.m.

Referenced by adjust_char_value_len(), array_construct_semantics(), build_loop_tbl(), create_imp_do_loops(), dump_at_ntry(), gen_whole_subscript(), get_shape_from_attr(), interpret_constructor(), and vv_subscript_semantics().

#define ATD_LIVE_DO_VAR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATD_LIVE_DO_VAR", IDX))     \
                [IDX].fld.flag1

Definition at line 853 of file sytb.m.

Referenced by check_for_legal_define(), do_stmt_semantics(), dump_at_ntry(), final_arg_work(), and gen_loop_end_ir().

#define ATD_NEXT_MEMBER_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          (attr_tbl[IDX].fld.secondary_info == Variable ||                     \
           attr_tbl[IDX].fld.secondary_info == Compiler_Tmp)) ?                \
                attr_tbl : sytb_var_error("ATD_NEXT_MEMBER_IDX", IDX))         \
                [IDX].fld.field16

Definition at line 862 of file sytb.m.

Referenced by add_common_blk_objects_to_list(), assign_new_idxs_after_input(), check_and_allocate_common_storage(), copy_sbtree(), dump_at_ntry(), ntr_common_in_global_attr_tbl(), parse_common_stmt(), set_mod_link_tbl_for_attr(), storage_blk_resolution(), and update_idxs_in_attr_entry().

#define ATD_NO_ENTRY_LIST ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATD_NO_ENTRY_LIST", IDX))   \
                [IDX].fld.field1

Definition at line 873 of file sytb.m.

Referenced by array_dim_resolution(), attr_semantics(), bound_semantics(), char_len_resolution(), decl_semantics(), dump_at_ntry(), final_attr_semantics(), gen_darg_branch_test(), gen_ir_at_this_entry(), insert_sh_after_entries(), ntr_bnds_sh_tmp_list(), and pe_array_dim_resolution().

#define ATD_NOBOUNDS_CHECK ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_NOBOUNDS_CHECK", IDX))          \
                [IDX].fld.flag32

Definition at line 882 of file sytb.m.

Referenced by bounds_cdir_handler(), cvrt_exp_to_pdg(), dump_at_ntry(), init_directive(), and needs_bounds_check().

#define ATD_NOT_PT_UNIQUE_MEM ( IDX ) attr_tbl[IDX].fld.flag51

Definition at line 898 of file sytb.m.

Referenced by dump_at_ntry(), final_arg_work(), flatten_function_call(), optimize_reshape(), and send_attr_ntry().

#define ATD_OFFSET_ASSIGNED ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_OFFSET_ASSIGNED", IDX))         \
                [IDX].fld.flag40

Definition at line 902 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_offset(), attr_semantics(), check_and_allocate_common_storage(), cif_send_attr(), dump_at_ntry(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), finish_cdir_id(), gen_forall_derived_type(), get_type_desc(), init_whole_array(), parse_cpnt_dcl_stmt(), parse_id_directive(), send_attr_ntry(), set_mod_link_tbl_for_attr(), set_sb_first_attr_idx(), set_up_pe_offset_attr(), transform_cri_ch_ptr(), and update_idxs_in_attr_entry().

#define ATD_OFFSET_FLD ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          (attr_tbl[IDX].fld.secondary_info == Variable ||                     \
           attr_tbl[IDX].fld.secondary_info == Function_Result ||              \
           attr_tbl[IDX].fld.secondary_info == Struct_Component ||             \
           attr_tbl[IDX].fld.secondary_info == Compiler_Tmp)) ?                \
                attr_tbl : sytb_var_error("ATD_OFFSET_FLD", IDX))              \
                [IDX].fld2.field22

Definition at line 911 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_offset(), attr_semantics(), chain_thru_sn_ntries(), check_and_allocate_common_storage(), cif_send_attr(), copy_sbtree(), cvrt_exp_to_pdg(), dump_at_ntry(), end_type_blk(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), finish_cdir_id(), gen_forall_derived_type(), init_whole_array(), parse_cpnt_dcl_stmt(), parse_id_directive(), send_attr_ntry(), set_mod_link_tbl_for_attr(), set_sb_first_attr_idx(), set_up_pe_offset_attr(), storage_blk_resolution(), transform_cri_ch_ptr(), and update_idxs_in_attr_entry().

#define ATD_OFFSET_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          (attr_tbl[IDX].fld.secondary_info == Variable ||                     \
           attr_tbl[IDX].fld.secondary_info == Function_Result ||              \
           attr_tbl[IDX].fld.secondary_info == Compiler_Tmp)) ?                \
                attr_tbl : sytb_var_error("ATD_OFFSET_IDX", IDX))              \
                [IDX].fld.field13

Definition at line 924 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_offset(), attr_semantics(), check_and_allocate_common_storage(), cif_send_attr(), copy_sbtree(), cvrt_exp_to_pdg(), dump_at_ntry(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), finish_cdir_id(), init_whole_array(), parse_id_directive(), send_attr_ntry(), set_mod_link_tbl_for_attr(), set_sb_first_attr_idx(), set_up_pe_offset_attr(), storage_blk_resolution(), transform_cri_ch_ptr(), and update_idxs_in_attr_entry().

#define ATD_PARENT_OBJECT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATD_PARENT_OBJECT", IDX))   \
                [IDX].fld.flag7

Definition at line 936 of file sytb.m.

Referenced by constant_value_semantics(), data_repeat_semantics(), dump_at_ntry(), and equivalence_semantics().

#define ATD_PE_ARRAY_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_PE_ARRAY_IDX", IDX))            \
                [IDX].fld.field10

Definition at line 945 of file sytb.m.

Referenced by alloc_obj_opr_handler(), allocate_stmt_semantics(), array_bounds_resolution(), array_dim_resolution(), assign_new_idxs_after_input(), assign_storage_blk(), assignment_stmt_semantics(), attr_semantics(), char_len_resolution(), check_actual_and_dummy(), check_array_bounds(), compare_darg_or_rslt_types(), copy_sbtree(), cvrt_exp_to_pdg(), deallocate_local_allocatables(), deallocate_stmt_semantics(), dump_at_ntry(), final_arg_work(), final_attr_semantics(), fnd_semantic_err(), gen_allocatable_ptr_ptee(), gen_default_init_code(), gen_entry_dope_code(), gen_split_alloc(), gen_whole_subscript(), get_type_desc(), loop_thru_sn_ntries(), merge_co_array(), num_images_intrinsic(), parse_attr_spec(), parse_common_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_lhs(), parse_type_dcl_stmt(), pe_array_dim_resolution(), set_mod_link_tbl_for_attr(), srch_for_calls(), subscript_opr_handler(), translate_distant_dv_ref(), translate_distant_ref1(), translate_distant_ref2(), and update_idxs_in_attr_entry().

#define ATD_PERMUTATION ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_PERMUTATION", IDX))             \
                [IDX].fld.flag30

Definition at line 954 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), parse_permutation_mic(), and send_attr_ntry().

#define ATD_POINTER ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_POINTER", IDX))                 \
                [IDX].fld.flag5

Definition at line 963 of file sytb.m.

Referenced by alloc_obj_opr_handler(), array_dim_resolution(), assign_offset(), assignment_stmt_semantics(), attr_semantics(), call_list_semantics(), chain_thru_sn_ntries(), char_len_resolution(), check_dependence(), check_target_and_value(), chg_data_obj_to_pgm_unit(), cif_send_attr(), compare_darg_to_actual_arg(), compare_derived_types(), compare_entry_to_func_rslt(), compare_global_derived_type(), copy_sbtree(), create_struct_constructor_asg(), dealloc_obj_opr_handler(), default_init_semantics(), determine_struct_tbl_size(), discombobulate_structure_ref(), doall_cmic_semantics(), dump_at_ntry(), encode_decode_stmt_semantics(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_arg_work(), final_attr_semantics(), flatten_function_call(), fnd_semantic_err(), fold_clen_opr(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_common_dv_init(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_runtime_ptr_chk(), gen_static_dv_whole_def(), get_dummy_arg_type(), get_type_desc(), global_name_semantics(), loop_thru_sn_ntries(), merge_automatic(), merge_pointer(), mp_directive_semantics(), namelist_static_dv_whole_def(), null_intrinsic(), open_mp_directive_semantics(), optimize_reshape(), parallel_cmic_semantics(), parse_attr_spec(), parse_cpnt_dcl_stmt(), parse_deref(), pgm_unit_semantics(), process_cpnt_inits(), resolve_ext_opr(), send_attr_ntry(), set_function_rslt(), struct_construct_opr_handler(), translate_distant_dv_ref(), translate_dv_component(), and type_init_semantics().

#define ATD_PTR_ASSIGNED ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_PTR_ASSIGNED", IDX))            \
                [IDX].fld.flag20

Definition at line 972 of file sytb.m.

Referenced by allocate_stmt_semantics(), assignment_stmt_semantics(), dump_at_ntry(), pgm_unit_semantics(), and send_attr_ntry().

#define ATD_PTR_HALF_WORD ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATD_PTR_HALF_WORD", IDX))   \
                [IDX].fld.flag3

Definition at line 981 of file sytb.m.

Referenced by attr_semantics(), and dump_at_ntry().

#define ATD_PTR_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == CRI__Pointee) ?                  \
                attr_tbl : sytb_var_error("ATD_PTR_IDX", IDX))                 \
                [IDX].fld.field8

Definition at line 990 of file sytb.m.

Referenced by allocate_stmt_semantics(), assign_new_idxs_after_input(), attr_semantics(), char_len_resolution(), cif_send_attr(), copy_sbtree(), dump_at_ntry(), gen_allocatable_ptr_ptee(), get_basic_type(), get_type_desc(), host_associated_attr_semantics(), optimize_reshape(), parse_pointer_stmt(), send_attr_ntry(), set_mod_link_tbl_for_attr(), subscript_opr_handler(), transform_cri_ch_ptr(), translate_distant_ref1(), and update_idxs_in_attr_entry().

#define ATD_PTR_TYPE_SET ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATD_PTR_TYPE_SET", IDX))    \
                [IDX].fld.flag4

Definition at line 1000 of file sytb.m.

Referenced by attr_semantics(), and dump_at_ntry().

#define ATD_PURE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_PURE", IDX))                    \
                [IDX].fld.flag38

Definition at line 1009 of file sytb.m.

Referenced by allocate_stmt_semantics(), assignment_stmt_semantics(), attr_semantics(), check_for_legal_define(), deallocate_stmt_semantics(), dump_at_ntry(), nullify_stmt_semantics(), open_mp_directive_semantics(), and resolve_ext_opr().

#define ATD_READ_ONLY_VAR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_READ_ONLY_VAR", IDX))           \
                [IDX].fld.flag52

Definition at line 1018 of file sytb.m.

Referenced by create_format_tmp(), and send_attr_ntry().

#define ATD_RESHAPE_ARRAY_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_RESHAPE_ARRAY_IDX", IDX))       \
                [IDX].fld.field7

Definition at line 1103 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_semantics(), dim_reshape_pass_driver(), dump_at_ntry(), process_variable_size_func(), set_mod_link_tbl_for_attr(), srch_for_calls(), and update_idxs_in_attr_entry().

#define ATD_RESHAPE_ARRAY_OPT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_RESHAPE_ARRAY_OPT", IDX))      \
                [IDX].fld.flag17

Definition at line 1121 of file sytb.m.

Referenced by attr_semantics(), check_actual_and_dummy(), copy_sbtree(), dim_reshape_pass_driver(), dump_at_ntry(), reshape_array_semantics(), reshape_reference_subscripts(), and srch_for_calls().

#define ATD_SAVED ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_SAVED", IDX))                   \
                [IDX].fld.flag4

Definition at line 1027 of file sytb.m.

Referenced by assign_storage_blk(), attr_semantics(), cif_send_attr(), create_constructor_constant(), create_format_tmp(), create_scalar_type_tbl(), dump_at_ntry(), equivalence_semantics(), fnd_semantic_err(), fold_aggragate_expression(), gen_entry_dope_code(), gen_initialized_tmp(), gen_loop_end_ir(), gen_static_integer_array_tmp(), lbound_intrinsic(), merge_save(), parse_attr_spec(), put_string_in_tmp(), reshape_intrinsic(), send_attr_ntry(), shape_intrinsic(), transfer_intrinsic(), and ubound_intrinsic().

#define ATD_SECTION_GP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_SECTION_GP", IDX))              \
                [IDX].fld.flag19

Definition at line 1036 of file sytb.m.

Referenced by dump_at_ntry(), fnd_semantic_err(), and parse_var_common_list().

#define ATD_SECTION_NON_GP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_SECTION_NON_GP", IDX))          \
                [IDX].fld.flag29

Definition at line 1045 of file sytb.m.

Referenced by dump_at_ntry(), fnd_semantic_err(), and parse_var_common_list().

#define ATD_SEEN_AS_IO_LCV ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_SEEN_AS_IO_LCV", IDX))          \
                [IDX].fld.flag34

Definition at line 1134 of file sytb.m.

Referenced by cif_send_sytb(), dump_at_ntry(), and io_list_semantics().

#define ATD_SEEN_AS_LCV ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_SEEN_AS_LCV", IDX))             \
                [IDX].fld.flag25

Definition at line 1143 of file sytb.m.

Referenced by dump_at_ntry(), parse_data_imp_do(), and parse_imp_do().

#define ATD_SEEN_IN_IMP_DO ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_SEEN_IN_IMP_DO", IDX))          \
                [IDX].fld.flag23

Definition at line 1152 of file sytb.m.

Referenced by dump_at_ntry(), parse_data_imp_do(), parse_deref(), and parse_imp_do().

#define ATD_SEEN_OUTSIDE_IMP_DO ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_SEEN_OUTSIDE_IMP_DO",IDX))      \
                [IDX].fld.flag24

Definition at line 1161 of file sytb.m.

Referenced by cif_send_sytb(), dump_at_ntry(), generic_spec_semantics(), parse_assignment_stmt(), parse_attrs(), parse_common_stmt(), parse_data_stmt(), parse_deref(), parse_dummy_args(), parse_equivalence_stmt(), parse_namelist_stmt(), parse_parameter_stmt(), parse_pointer_stmt(), parse_stmt_func_stmt(), and parse_type_dcl_stmt().

#define ATD_SF_ARG_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Dummy_Argument) ?                \
                attr_tbl : sytb_var_error("ATD_SF_ARG_IDX", IDX))              \
                [IDX].fld.field4

Definition at line 1055 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), gen_assumed_shape_copy(), host_associated_attr_semantics(), process_variable_size_func(), set_attr_flds_for_output(), set_shape_for_deferred_funcs(), and stmt_func_call_opr_handler().

#define ATD_SF_DARG ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Dummy_Argument) ?                \
                attr_tbl : sytb_var_error("ATD_SF_DARG", IDX))                 \
                [IDX].fld.flag28

Definition at line 1065 of file sytb.m.

Referenced by cif_send_attr(), dump_at_ntry(), parse_deref(), parse_stmt_func_stmt(), process_variable_size_func(), search_expr_for_dargs(), send_attr_ntry(), set_attr_flds_for_output(), set_shape_for_deferred_funcs(), and stmt_func_semantics().

#define ATD_SF_LINK ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Dummy_Argument) ?                \
                attr_tbl : sytb_var_error("ATD_SF_LINK", IDX))                 \
                [IDX].fld.field13

Definition at line 1075 of file sytb.m.

Referenced by dump_at_ntry(), parse_stmt_func_stmt(), process_variable_size_func(), set_attr_flds_for_output(), set_shape_for_deferred_funcs(), and stmt_func_call_opr_handler().

#define ATD_STACK ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_STACK", IDX))                   \
                [IDX].fld.flag37

Definition at line 1085 of file sytb.m.

Referenced by assign_storage_blk(), dump_at_ntry(), equivalence_semantics(), fnd_semantic_err(), merge_automatic(), and parse_attr_spec().

#define ATD_STOR_BLK_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_STOR_BLK_IDX", IDX))            \
                [IDX].fld.field6

Definition at line 1094 of file sytb.m.

Referenced by adjust_char_value_len(), array_construct_semantics(), array_dim_resolution(), array_element_to_scalar(), assign_new_idxs_after_input(), assign_offset(), assign_stmt_semantics(), assign_storage_blk(), attr_link_resolution(), attr_semantics(), backspace_stmt_semantics(), build_loop_tbl(), calculate_pad(), call_list_semantics(), change_section_to_do(), character_to_character(), check_stat_variable(), cif_send_attr(), close_stmt_semantics(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_io_call_descriptor(), create_namelist_descriptor(), create_runtime_array_constructor(), create_runtime_struct_constructor(), create_scalar_type_tbl(), create_strct_tbl(), create_tmp_asg(), cvrt_exp_to_pdg(), determine_lb_ub(), directive_stmt_semantics(), do_single_asg(), dump_at_ntry(), endfile_stmt_semantics(), equivalence_semantics(), final_arg_work(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), find_attrs_used_in_bound(), finish_cdir_id(), flatten_function_call(), fnd_semantic_err(), fold_aggragate_expression(), forall_semantics(), gen_allocatable_ptr_ptee(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_default_init_code(), gen_dv_def_loops(), gen_forall_tmp(), gen_initialized_tmp(), gen_loop_end_ir(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_integer_array_tmp(), gen_temp_init(), get_basic_type(), get_stmt_tmp(), get_type_desc(), host_associated_attr_semantics(), init_whole_array(), inquire_stmt_semantics(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), lbound_intrinsic(), namelist_resolution(), namelist_static_dv_whole_def(), null_intrinsic(), object_semantics(), open_stmt_semantics(), optimize_reshape(), parse_auxiliary_dir(), parse_common_stmt(), parse_dummy_args(), parse_id_directive(), print_attr_f(), put_string_in_tmp(), random_seed_intrinsic(), ranget_intrinsic(), read_stmt_semantics(), reshape_intrinsic(), rewind_stmt_semantics(), scalar_dope_to_scalar(), send_attr_ntry(), send_procedure(), set_mod_link_tbl_for_attr(), set_sb_first_attr_idx(), set_up_bd_tmps(), set_up_pe_offset_attr(), set_up_which_entry_tmp(), shape_intrinsic(), srch_for_calls(), storage_blk_resolution(), struct_construct_opr_handler(), subscript_opr_handler(), transfer_intrinsic(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_dv_component(), type_init_semantics(), ubound_intrinsic(), update_idxs_in_attr_entry(), use_stmt_semantics(), vv_subscript_semantics(), and write_stmt_semantics().

#define ATD_SYMBOLIC_CONSTANT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_SYMBOLIC_CONSTANT", IDX))       \
                [IDX].fld.flag35

Definition at line 1170 of file sytb.m.

Referenced by align_bit_length(), array_dim_resolution(), assign_offset(), assign_storage_blk(), assignment_stmt_semantics(), attr_semantics(), bits_and_bytes_to_words(), bound_resolution(), bound_semantics(), char_len_resolution(), check_for_legal_define(), create_mod_info_tbl(), cvrt_exp_to_pdg(), dump_at_ntry(), expand_user_bound(), expr_is_symbolic_constant(), final_attr_semantics(), final_decl_semantics(), fnd_semantic_err(), gen_tmp_equal_max_zero(), get_type_desc(), il_is_symbolic_constant(), init_parse_prog_unit(), ir_is_symbolic_constant(), make_new_bd_entries(), merge_access(), merge_type(), not_visible_semantics(), parse_deref(), pe_array_dim_resolution(), retype_attr(), send_attr_ntry(), size_offset_binary_calc(), size_offset_min_max_calc(), and start_new_prog_unit().

#define ATD_SYMMETRIC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_SYMMETRIC", IDX))               \
                [IDX].fld.flag33

Definition at line 1112 of file sytb.m.

Referenced by assign_storage_blk(), attr_semantics(), dump_at_ntry(), fnd_semantic_err(), gen_single_automatic_allocate(), parse_symmetric_dir(), and send_attr_ntry().

#define ATD_TARGET ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_TARGET", IDX))                  \
                [IDX].fld.flag1

Definition at line 1179 of file sytb.m.

Referenced by assignment_stmt_semantics(), attr_semantics(), call_list_semantics(), check_dependence(), chg_data_obj_to_pgm_unit(), cif_send_attr(), dump_at_ntry(), fill_in_global_attr_ntry(), final_arg_work(), final_attr_semantics(), fnd_semantic_err(), get_dummy_arg_type(), global_name_semantics(), merge_target(), parse_attr_spec(), parse_deref(), resolve_ext_opr(), send_attr_ntry(), set_function_rslt(), and struct_construct_opr_handler().

#define ATD_TASK_COPYIN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_COPYIN", IDX))       \
                [IDX].fld.flag18

Definition at line 1188 of file sytb.m.

Referenced by dump_at_ntry(), multiple_clause_err(), open_mp_directive_semantics(), and set_open_mp_task_flags().

#define ATD_TASK_COPYPRIVATE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_COPYPRIVATE", IDX))  \
                [IDX].fld.flag15

Definition at line 1206 of file sytb.m.

Referenced by multiple_clause_err(), open_mp_directive_semantics(), and set_open_mp_task_flags().

#define ATD_TASK_FIRSTPRIVATE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_FIRSTPRIVATE", IDX)) \
                [IDX].fld.flag17

Definition at line 1215 of file sytb.m.

Referenced by dump_at_ntry(), has_been_reprivatized(), multiple_clause_err(), open_mp_directive_semantics(), and set_open_mp_task_flags().

#define ATD_TASK_FLUSH ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_COPYPRIVATE", IDX))  \
                [IDX].fld.flag16

Definition at line 1226 of file sytb.m.

Referenced by open_mp_directive_semantics(), and set_open_mp_task_flags().

#define ATD_TASK_GETFIRST ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_GETFIRST", IDX))     \
                [IDX].fld.flag13

Definition at line 1197 of file sytb.m.

Referenced by doall_cmic_semantics(), doall_end_semantics(), dump_at_ntry(), endparallel_cmic_semantics(), and parallel_cmic_semantics().

#define ATD_TASK_LASTLOCAL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_LASTLOCAL", IDX))    \
                [IDX].fld.flag14

Definition at line 1235 of file sytb.m.

Referenced by doall_end_semantics(), dump_at_ntry(), mp_directive_semantics(), and set_mp_task_flags().

#define ATD_TASK_LASTPRIVATE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_LASTPRIVATE", IDX))  \
                [IDX].fld.flag19

Definition at line 1244 of file sytb.m.

Referenced by dump_at_ntry(), has_been_reprivatized(), multiple_clause_err(), open_mp_directive_semantics(), and set_open_mp_task_flags().

#define ATD_TASK_LASTTHREAD ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_LASTTHREAD", IDX))   \
                [IDX].fld.flag16

Definition at line 1253 of file sytb.m.

Referenced by dump_at_ntry(), mp_directive_semantics(), and set_mp_task_flags().

#define ATD_TASK_PRIVATE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_PRIVATE", IDX))      \
                [IDX].fld.flag12

Definition at line 1262 of file sytb.m.

Referenced by doall_cmic_semantics(), doall_end_semantics(), dump_at_ntry(), endparallel_cmic_semantics(), gen_bd_entry(), has_been_reprivatized(), mp_directive_semantics(), multiple_clause_err(), open_mp_directive_semantics(), parallel_cmic_semantics(), set_mp_task_flags(), and set_open_mp_task_flags().

#define ATD_TASK_REDUCTION ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_REDUCTION", IDX))    \
                [IDX].fld.flag15

Definition at line 1271 of file sytb.m.

Referenced by doall_end_semantics(), has_been_reprivatized(), mp_directive_semantics(), multiple_clause_err(), open_mp_directive_semantics(), set_mp_task_flags(), and set_open_mp_task_flags().

#define ATD_TASK_SHARED ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TASK_SHARED", IDX))       \
                [IDX].fld.flag11

Definition at line 1280 of file sytb.m.

Referenced by do_stmt_semantics(), doall_cmic_semantics(), doall_end_semantics(), dump_at_ntry(), endparallel_cmic_semantics(), mp_directive_semantics(), multiple_clause_err(), open_mp_directive_semantics(), parallel_cmic_semantics(), set_mp_task_flags(), and set_open_mp_task_flags().

#define ATD_TMP_GEN_ZERO ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
         attr_tbl[IDX].fld.secondary_info == Compiler_Tmp) ?                   \
                attr_tbl : sytb_var_error("ATD_TMP_GEN_ZERO", IDX))            \
                [IDX].fld.flag28

Definition at line 1289 of file sytb.m.

Referenced by dump_at_ntry(), gen_tmp_eq_zero_ir(), insert_sh_after_entries(), ntr_bnds_sh_tmp_list(), and set_attr_flds_for_output().

#define ATD_TMP_HAS_CVRT_OPR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATD_TMP_HAS_CVRT_OPR", IDX))  \
                [IDX].fld.flag6

Definition at line 1299 of file sytb.m.

Referenced by bound_semantics(), dump_at_ntry(), and parse_int_spec_expr().

#define ATD_TMP_IDX ( IDX ) attr_tbl[IDX].fld.field4

Definition at line 1315 of file sytb.m.

Referenced by align_bit_length(), array_construct_semantics(), array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), bits_and_bytes_to_words(), bound_resolution(), bound_semantics(), char_len_resolution(), check_bd_typ_for_dargs(), check_for_dependencies(), check_for_elementals(), copy_and_replace_tmps(), create_constructor_constant(), create_format_tmp(), create_tmp_asg(), cvrt_exp_to_pdg(), dump_at_ntry(), expand_user_bound(), final_arg_work(), final_attr_semantics(), find_attrs_used_in_bound(), flatten_function_call(), fold_aggragate_expression(), gen_assumed_shape_copy(), gen_dv_access_low_bound(), gen_initialized_tmp(), gen_internal_dope_vector(), gen_static_dv_whole_def(), gen_tmp_equal_max_zero(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), interpret_constructor(), interpret_data_imp_do(), interpret_implied_do(), interpret_ref(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), is_attr_referenced_in_bound(), lbound_intrinsic(), make_new_bd_entries(), merge_type(), ntr_bnds_sh_tmp_list(), ntr_bnds_tmp_list(), parse_id_directive(), parse_length_selector(), pe_array_dim_resolution(), present_intrinsic(), process_char_len(), process_cpnt_inits(), process_variable_size_func(), reshape_intrinsic(), send_attr_ntry(), set_global_value_variables(), set_mod_link_tbl_for_attr(), set_shape_for_deferred_funcs(), shape_intrinsic(), size_offset_binary_calc(), transfer_intrinsic(), ubound_intrinsic(), update_fld_type(), and update_idxs_in_attr_entry().

#define ATD_TMP_INIT_NOT_DONE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Compiler_Tmp) ?                  \
                attr_tbl : sytb_var_error("ATD_TMP_INIT_NOT_DONE", IDX))       \
                [IDX].fld.flag26

Definition at line 1320 of file sytb.m.

Referenced by attr_semantics(), copy_sbtree(), create_constructor_constant(), cvrt_exp_to_pdg(), dump_at_ntry(), final_attr_semantics(), fold_aggragate_expression(), gen_static_dv_whole_def(), insert_init_stmt_for_tmp(), lbound_intrinsic(), reshape_intrinsic(), shape_intrinsic(), transfer_intrinsic(), and ubound_intrinsic().

#define ATD_TMP_NEEDS_CIF ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Compiler_Tmp) ?                  \
                attr_tbl : sytb_var_error("ATD_TMP_NEEDS_CIF", IDX))           \
                [IDX].fld.flag34

Definition at line 1330 of file sytb.m.

Referenced by array_construct_semantics(), build_loop_tbl(), cif_send_attr(), cif_usage_rec(), dump_at_ntry(), forall_semantics(), and process_attr_list().

#define ATD_TMP_SEMANTICS_DONE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Compiler_Tmp) ?                  \
                attr_tbl : sytb_var_error("ATD_TMP_SEMANTICS_DONE", IDX))      \
                [IDX].fld.flag27

Definition at line 1340 of file sytb.m.

Referenced by bound_resolution(), bound_semantics(), dump_at_ntry(), finish_cdir_id(), parse_id_directive(), and parse_int_spec_expr().

#define ATD_TOO_BIG_FOR_DV ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                             \
                attr_tbl : sytb_var_error("ATD_TOO_BIG_FOR_DV", IDX))          \
                [IDX].fld.flag44

Definition at line 1350 of file sytb.m.

Referenced by dump_at_ntry(), and stor_bit_size_of().

#define ATD_TYPE_IDX ( IDX ) attr_tbl[IDX].fld.field5

Definition at line 1370 of file sytb.m.

Referenced by abs_intrinsic(), adjust_char_value_len(), adjustl_intrinsic(), aimag_intrinsic(), aint_intrinsic(), align_bit_length(), all_intrinsic(), allocate_stmt_semantics(), allocated_intrinsic(), anint_intrinsic(), array_construct_semantics(), array_dim_resolution(), array_element_to_scalar(), asg_opnd_to_tmp(), assign_new_idxs_after_input(), assign_offset(), assign_stmt_semantics(), assign_storage_blk(), assignment_stmt_semantics(), associated_intrinsic(), atan2_intrinsic(), attr_init_semantics(), attr_link_resolution(), attr_semantics(), backspace_stmt_semantics(), bit_size_intrinsic(), bits_and_bytes_to_words(), bound_semantics(), btest_intrinsic(), buffer_stmt_semantics(), build_loop_tbl(), calculate_iteration_count(), call_list_semantics(), cast_opnd_to_type_idx(), ceiling_intrinsic(), chain_thru_sn_ntries(), change_section_to_do(), char_bounds_resolution(), char_intrinsic(), char_len_resolution(), character_to_character(), check_actual_and_dummy(), check_multiple_entry_func(), check_stat_variable(), check_substring_bounds(), check_target_and_value(), check_type_for_size_address(), cif_named_constant_rec(), cif_send_attr(), clock_intrinsic(), close_stmt_semantics(), cmplx_intrinsic(), collapse_interface_blk(), compare_and_swap_intrinsic(), compare_darg_or_rslt_types(), compare_darg_to_actual_arg(), compare_derived_types(), compare_duplicate_interface_bodies(), compare_entry_to_func_rslt(), compare_func_result(), compare_global_derived_type(), compare_global_type_rank(), complete_intrinsic_definition(), conform_check(), conjg_intrinsic(), const_init_semantics(), convert_const(), copy_and_replace_tmps(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_dv_type_code(), create_format_tmp(), create_imp_do_loops(), create_interp_stmts(), create_io_call_descriptor(), create_loop_stmts(), create_namelist_descriptor(), create_runtime_array_constructor(), create_runtime_struct_constructor(), create_scalar_type_tbl(), create_strct_tbl(), create_struct_constructor_asg(), cshift_intrinsic(), csmg_intrinsic(), cvmgp_intrinsic(), cvrt_exp_to_pdg(), data_stmt_semantics(), decl_semantics(), decl_semantics_driver(), default_init_semantics(), determine_lb_ub(), determine_struct_tbl_size(), digits_intrinsic(), dim_intrinsic(), directive_stmt_semantics(), discombobulate_structure_ref(), do_loop_expr_semantics(), do_single_asg(), do_stmt_semantics(), dot_product_intrinsic(), dprod_intrinsic(), dshiftl_intrinsic(), dsm_numthreads_intrinsic(), dump_at_ntry(), end_function_semantics(), endfile_stmt_semantics(), eoshift_intrinsic(), epsilon_intrinsic(), equivalence_semantics(), expand_user_bound(), exponent_intrinsic(), fcd_intrinsic(), fetch_and_add_intrinsic(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_arg_work(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), finish_cdir_id(), flatten_function_call(), floor_intrinsic(), fnd_semantic_err(), fold_aggragate_expression(), fold_clen_opr(), forall_semantics(), fraction_intrinsic(), gen_allocatable_ptr_ptee(), gen_arg_type_descriptor(), gen_array_element_init(), gen_assumed_shape_copy(), gen_auto_length(), gen_bd_entry(), gen_bias_ref(), gen_call_type_descriptor(), gen_common_dv_init(), gen_default_init_code(), gen_dv_def_loops(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_entry_dope_code(), gen_forall_derived_type(), gen_forall_max_expr(), gen_forall_tmp(), gen_if_stmt(), gen_init_stmt(), gen_initialized_tmp(), gen_lb_array_ref(), gen_loop_end_ir(), gen_runtime_substring(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_dv_whole_def(), gen_static_integer_array_tmp(), gen_temp_init(), gen_tmp_eq_zero_ir(), gen_tmp_equal_max_zero(), gen_whole_subscript(), gen_whole_substring(), generic_spec_semantics(), get_stmt_tmp(), get_type_desc(), getpos_intrinsic(), global_name_semantics(), goto_stmt_semantics(), host_associated_attr_semantics(), huge_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ichar_intrinsic(), ieee_finite_intrinsic(), ieee_real_intrinsic(), ilen_intrinsic(), imp_do_metamorphed(), index_intrinsic(), init_parse_prog_unit(), init_whole_array(), inquire_stmt_semantics(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), int_intrinsic(), interpret_constructor(), interpret_data_imp_do(), interpret_implied_do(), interpret_ref(), interpret_reshape_intrinsic(), interpret_struct_construct_opr(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), ishft_intrinsic(), ishftc_intrinsic(), kind_intrinsic(), kind_to_linear_type(), lbound_intrinsic(), leadz_intrinsic(), len_intrinsic(), len_trim_intrinsic(), length_intrinsic(), lge_intrinsic(), linearize_list_for_equiv(), loc_intrinsic(), logical_intrinsic(), loop_thru_sn_ntries(), make_base_assumed_size(), make_new_bd_entries(), malloc_intrinsic(), mask_intrinsic(), matmul_intrinsic(), max_intrinsic(), maxexponent_intrinsic(), mclr_intrinsic(), merge_automatic(), merge_intrinsic(), merge_parameter(), merge_type(), mergee_intrinsic(), minexponent_intrinsic(), minval_intrinsic(), mld_intrinsic(), mldmx_intrinsic(), mmx_intrinsic(), mod_intrinsic(), modulo_intrinsic(), mul_intrinsic(), my_pe_intrinsic(), namelist_resolution(), namelist_static_dv_whole_def(), nearest_intrinsic(), nint_intrinsic(), not_intrinsic(), null_intrinsic(), num_images_intrinsic(), numarg_intrinsic(), object_semantics(), omp_get_max_threads_intrinsic(), omp_set_lock_intrinsic(), open_mp_directive_semantics(), open_stmt_semantics(), optimize_reshape(), optimize_whole_array_init(), pack_intrinsic(), parse_assignment_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_dummy_args(), parse_id_directive(), parse_implicit_stmt(), parse_kind_selector(), parse_lhs(), parse_parameter_stmt(), parse_pointer_stmt(), parse_stmt_func_stmt(), parse_type_dcl_stmt(), parse_type_spec(), parse_typed_function_stmt(), pe_array_dim_resolution(), precision_intrinsic(), present_intrinsic(), print_attr_f(), print_attr_name(), process_all_initialized_cpnts(), process_cpnt_inits(), process_data_imp_do_target(), process_variable_size_func(), push_data_value(), put_string_in_tmp(), radix_intrinsic(), random_seed_intrinsic(), ranf_intrinsic(), range_intrinsic(), ranget_intrinsic(), read_stmt_semantics(), readsm_intrinsic(), real_intrinsic(), repeat_intrinsic(), reshape_intrinsic(), resolve_all_components(), resolve_attr(), resolve_ext_opr(), return_stmt_semantics(), retype_attr(), rewind_stmt_semantics(), rrspacing_intrinsic(), rtc_intrinsic(), scalar_dope_to_scalar(), scale_intrinsic(), search_expr_for_dargs(), selected_int_kind_intrinsic(), selected_real_kind_intrinsic(), send_attr_ntry(), send_dummy_procedure(), set_exponent_intrinsic(), set_function_rslt(), set_global_value_variables(), set_mod_link_tbl_for_attr(), set_sb_first_attr_idx(), set_shape_for_deferred_funcs(), set_stride_for_first_dim(), set_up_bd_tmps(), set_up_exp_desc(), set_up_pe_offset_attr(), set_up_which_entry_tmp(), shape_intrinsic(), shift_intrinsic(), sign_intrinsic(), sin_intrinsic(), size_intrinsic(), size_offset_binary_calc(), size_offset_logical_calc(), size_offset_min_max_calc(), sizeof_intrinsic(), spacing_intrinsic(), spread_intrinsic(), srch_for_calls(), stmt_func_call_opr_handler(), stmt_func_semantics(), stor_bit_size_of(), storage_blk_resolution(), struct_construct_opr_handler(), subscript_opr_handler(), substring_opr_handler(), test_ieee_interrupt_intrinsic(), tiny_intrinsic(), transfer_intrinsic(), transform_char_sequence_ref(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_distant_ref2(), translate_dv_component(), transpose_intrinsic(), trim_intrinsic(), type_init_semantics(), ubound_intrinsic(), unit_intrinsic(), unpack_intrinsic(), update_fld_type(), update_idxs_in_attr_entry(), verify_interface(), vv_subscript_semantics(), and write_stmt_semantics().

#define ATD_VARIABLE_TMP_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj &&                                     \
          attr_tbl[IDX].fld.secondary_info == Variable) ?                      \
                attr_tbl : sytb_var_error("ATD_VARIABLE_TMP_IDX", IDX))        \
                [IDX].fld.field4

Definition at line 1374 of file sytb.m.

Referenced by allocate_stmt_semantics(), assign_new_idxs_after_input(), attr_semantics(), dump_at_ntry(), final_attr_semantics(), gen_allocatable_ptr_ptee(), host_associated_attr_semantics(), init_whole_array(), not_visible_semantics(), num_images_intrinsic(), resolve_attr(), send_attr_ntry(), set_mod_link_tbl_for_attr(), subscript_opr_handler(), transform_cri_ch_ptr(), and update_idxs_in_attr_entry().

#define ATD_VOLATILE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                attr_tbl : sytb_var_error("ATD_VOLATILE", IDX))                \
                [IDX].fld.flag42

Definition at line 1384 of file sytb.m.

Referenced by dump_at_ntry(), equivalence_semantics(), final_attr_semantics(), fnd_semantic_err(), get_basic_type(), merge_volatile(), and parse_attr_spec().

#define ATD_WAS_SCOPED ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Data_Obj) ?                             \
                attr_tbl : sytb_var_error("ATD_WAS_SCOPED", IDX))              \
                [IDX].fld.flag45

Definition at line 649 of file sytb.m.

Referenced by check_actual_and_dummy(), doall_cmic_semantics(), dump_at_ntry(), mp_directive_semantics(), open_mp_directive_semantics(), and parallel_cmic_semantics().

#define ATI_CIF_SCOPE_ID ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_aux_tbl : attr_aux_var_error("ATI_CIF_SCOPE_ID", IDX))    \
                [IDX].fld.field3

Definition at line 1396 of file sytb.m.

Referenced by cif_send_attr(), dump_at_ntry(), and parse_interface_stmt().

#define ATI_CIF_SEEN_IN_CALL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_CIF_SEEN_IN_CALL", IDX))        \
                [IDX].fld.flag5

Definition at line 1405 of file sytb.m.

Referenced by call_list_semantics(), cif_call_site_rec(), cif_send_attr(), and dump_at_ntry().

#define ATI_DCL_INTRINSIC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_DCL_INTRINSIC", IDX))           \
                [IDX].fld.flag3

Definition at line 1414 of file sytb.m.

Referenced by dump_at_ntry(), fnd_semantic_err(), merge_intrinsic(), and print_attr_f().

#define ATI_DEFINED_OPR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_DEFINED_OPR", IDX))             \
                [IDX].fld.field6

Definition at line 1423 of file sytb.m.

Referenced by dump_at_ntry(), generic_spec_semantics(), not_visible_semantics(), send_interface_list(), and verify_interface().

#define ATI_FIRST_SPECIFIC_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_FIRST_SPECIFIC_IDX", IDX))      \
                [IDX].fld.field10

Definition at line 1432 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_semantics(), call_list_semantics(), chain_thru_sn_ntries(), cif_send_attr(), collapse_interface_blk(), complete_intrinsic_definition(), directive_stmt_semantics(), dump_at_ntry(), end_interface_blk(), generic_spec_semantics(), merge_access(), merge_interfaces(), merge_intrinsic(), merge_type(), num_images_intrinsic(), parse_call_stmt(), parse_deref(), parse_inline_always_never(), parse_module_stmt(), parse_sgi_dir_inline(), print_attr_f(), resolve_ext_opr(), send_attr_ntry(), send_interface_list(), set_mod_link_tbl_for_attr(), start_new_subpgm(), update_idxs_in_attr_entry(), update_intrinsic(), use_stmt_semantics(), and verify_interface().

#define ATI_GENERIC_INTRINSIC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_GENERIC_INTRINSIC", IDX))      \
                [IDX].fld.flag7

Definition at line 1441 of file sytb.m.

Referenced by dump_at_ntry(), enter_intrinsic_info(), and merge_intrinsic().

#define ATI_HAS_NON_MOD_PROC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_HAS_NON_MOD_PROC", IDX))        \
                [IDX].fld.flag6

Definition at line 1450 of file sytb.m.

Referenced by dump_at_ntry(), end_interface_blk(), end_interface_body(), parse_typed_function_stmt(), set_attr_flds_for_output(), and start_new_subpgm().

#define ATI_INLINE_ALWAYS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_INLINE_ALWAYS", IDX))           \
                [IDX].fld.flag8

Definition at line 1459 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), and parse_inline_always_never().

#define ATI_INLINE_NEVER ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_INLINE_NEVER", IDX))            \
                [IDX].fld.flag9

Definition at line 1468 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), and parse_inline_always_never().

#define ATI_INTERFACE_CLASS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_INTERFACE_CLASS", IDX))         \
                [IDX].fld.secondary_info

Definition at line 1486 of file sytb.m.

Referenced by call_list_semantics(), cif_call_site_rec(), cif_send_attr(), dump_at_ntry(), enter_intrinsic_info(), fnd_semantic_err(), generic_spec_semantics(), merge_intrinsic(), not_visible_semantics(), parse_call_stmt(), parse_module_stmt(), send_interface_list(), start_new_subpgm(), and verify_interface().

#define ATI_INTRIN_PASSABLE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_INTRIN_PASSABLE", IDX))         \
                [IDX].fld.flag1

Definition at line 1495 of file sytb.m.

Referenced by dump_at_ntry(), enter_intrinsic_info(), and parse_deref().

#define ATI_INTRIN_TBL_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_INTRIN_TBL_IDX", IDX))          \
                [IDX].fld.field13

Definition at line 1504 of file sytb.m.

Referenced by complete_intrinsic_definition(), dump_at_ntry(), enter_intrinsic_info(), parse_deref(), and update_intrinsic().

#define ATI_IPA_DIR_SPECIFIED ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_IPA_DIR_SPECIFIED", IDX))       \
                [IDX].fld.flag12

Definition at line 1477 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), and parse_sgi_dir_inline().

#define ATI_NUM_SPECIFICS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_NUM_SPECIFICS", IDX))           \
                [IDX].fld.field14

Definition at line 1513 of file sytb.m.

Referenced by call_list_semantics(), cif_send_attr(), complete_intrinsic_definition(), dump_at_ntry(), end_interface_body(), merge_interfaces(), merge_intrinsic(), print_attr_f(), resolve_ext_opr(), send_attr_ntry(), send_interface_list(), update_intrinsic(), and use_stmt_semantics().

#define ATI_PROC_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_PROC_IDX", IDX))                \
                [IDX].fld.field8

Definition at line 1522 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_semantics(), cif_send_attr(), collapse_interface_blk(), directive_stmt_semantics(), dump_at_ntry(), end_interface_blk(), final_attr_semantics(), find_attrs_used_in_bound(), generic_spec_semantics(), merge_access(), merge_dimension(), merge_external(), merge_intent(), merge_intrinsic(), merge_pointer(), merge_target(), merge_type(), not_visible_semantics(), parse_entry_stmt(), parse_module_stmt(), rename_only_semantics(), send_attr_ntry(), send_interface_list(), set_mod_link_tbl_for_attr(), start_new_subpgm(), update_idxs_in_attr_entry(), and verify_interface().

#define ATI_SGI_ROUTINE_INLINE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_SGI_ROUTINE_INLINE", IDX))      \
                [IDX].fld.flag10

Definition at line 1531 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), and parse_sgi_dir_inline().

#define ATI_SGI_ROUTINE_NOINLINE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_SGI_ROUTINE_NOINLINE", IDX))    \
                [IDX].fld.flag11

Definition at line 1540 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), and parse_sgi_dir_inline().

#define ATI_UNNAMED_INTERFACE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_UNNAMED_INTERFACE", IDX))       \
                [IDX].fld.flag2

Definition at line 1549 of file sytb.m.

Referenced by attr_semantics(), cif_send_attr(), dump_at_ntry(), parse_interface_stmt(), print_attr_f(), and start_new_subpgm().

#define ATI_USER_SPECIFIED ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Interface) ?                                    \
                attr_tbl : sytb_var_error("ATI_USER_SPECIFIED", IDX))          \
                [IDX].fld.flag4

Definition at line 1559 of file sytb.m.

Referenced by attr_semantics(), call_list_semantics(), cif_call_site_rec(), cif_send_attr(), dump_at_ntry(), fnd_semantic_err(), generic_spec_semantics(), and send_attr_ntry().

#define ATL_AGGRESSIVEINNERLOOPFISSION ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl:sytb_var_error("ATL_AGGRESSIVEINNERLOOPFISSION",IDX)) \
                [IDX].fld.flag31

Definition at line 1571 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_ALIGN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_ALIGN", IDX))                   \
                [IDX].fld.flag12

Definition at line 1580 of file sytb.m.

Referenced by dump_at_ntry(), label_def_stmt_semantics(), send_label(), and set_directives_on_label().

#define ATL_ASG_LBL_CHAIN_START ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_ASG_LBL_CHAIN_START", IDX))     \
                [IDX].fld.flag21

Definition at line 1589 of file sytb.m.

Referenced by dump_at_ntry(), and final_decl_semantics().

#define ATL_BL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_BL", IDX))                      \
                [IDX].fld.flag11

Definition at line 1598 of file sytb.m.

Referenced by dump_at_ntry(), label_def_stmt_semantics(), send_label_def(), and set_directives_on_label().

#define ATL_BLK_STMT_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label &&                                        \
          attr_tbl[IDX].fld.secondary_info <= Lbl_User) ?                      \
                attr_tbl : sytb_var_error("ATL_BLK_STMT_IDX", IDX))            \
                [IDX].fld.field10

Definition at line 1607 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), label_ref_semantics(), stmt_level_semantics(), and update_idxs_in_attr_entry().

#define ATL_CASE_LABEL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_CASE_LABEL", IDX))              \
                [IDX].fld.flag25

Definition at line 1690 of file sytb.m.

Referenced by dump_at_ntry(), parse_case_stmt(), and send_label_def().

#define ATL_CLASS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_CLASS", IDX))                   \
                [IDX].fld.secondary_info

Definition at line 1617 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_stmt_semantics(), attr_semantics(), check_cmic_blk_branches(), check_for_dup_derived_type_lbl(), cif_label_rec(), copy_subtree(), cvrt_exp_to_pdg(), dump_at_ntry(), encode_decode_stmt_semantics(), end_blockdata(), end_function(), end_internal_proc(), end_module(), end_module_proc(), end_program_unit(), end_subroutine(), fnd_semantic_err(), gen_attr_and_IR_for_lbl(), gen_debug_lbl_stmt(), gen_end_prologue_debug_label(), gen_internal_lbl(), gen_loop_lbl_name(), io_ctl_list_semantics(), label_def_stmt_semantics(), parse_decode_stmt(), parse_do_stmt(), parse_encode_stmt(), parse_forall(), parse_format_stmt(), parse_if_stmt(), parse_io_control_list(), parse_print_stmt(), parse_read_stmt(), parse_select_stmt(), parse_where_stmt(), parse_write_stmt(), send_label(), set_mod_link_tbl_for_attr(), stmt_level_semantics(), and update_idxs_in_attr_entry().

#define ATL_CMIC_BLK_STMT_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label &&                                        \
          attr_tbl[IDX].fld.secondary_info != Lbl_Format) ?                    \
                attr_tbl : sytb_var_error("ATL_CMIC_BLK_STMT_IDX", IDX))       \
                [IDX].fld.field4

Definition at line 1626 of file sytb.m.

Referenced by check_cmic_blk_branches(), dump_at_ntry(), and stmt_level_semantics().

#define ATL_CNCALL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_CNCALL", IDX))                  \
                [IDX].fld.flag18

Definition at line 1654 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_CONCURRENT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_CONCURRENT", IDX))              \
                [IDX].fld.flag33

Definition at line 1636 of file sytb.m.

Referenced by send_label_def(), and set_directives_on_label().

#define ATL_CONSTRUCTOR_LOOP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_CONSTRUCTOR_LOOP", IDX))        \
                [IDX].fld.flag34

Definition at line 1645 of file sytb.m.

Referenced by create_loop_stmts(), dump_at_ntry(), and send_label_def().

#define ATL_CYCLE_LBL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_CYCLE_LBL", IDX))               \
                [IDX].fld.flag38

Definition at line 1663 of file sytb.m.

Referenced by dump_at_ntry(), and loop_end_processing().

#define ATL_DEBUG_CLASS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_DEBUG_CLASS", IDX))             \
                [IDX].fld.field2

Definition at line 1672 of file sytb.m.

Referenced by check_for_dup_derived_type_lbl(), ck_lbl_construct_name(), dump_at_ntry(), end_blockdata(), end_function(), end_internal_proc(), end_module(), end_module_proc(), end_program_unit(), end_select_blk(), end_subroutine(), fnd_semantic_err(), gen_attr_and_IR_for_lbl(), gen_debug_lbl_stmt(), gen_end_prologue_debug_label(), gen_loop_lbl_name(), parse_do_stmt(), send_label(), and stmt_level_semantics().

#define ATL_DEF_STMT_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label && AT_DEFINED(IDX)) ?                     \
                attr_tbl : sytb_var_error("ATL_DEF_STMT_IDX", IDX))            \
                [IDX].fld.field13

Definition at line 1681 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assignment_stmt_semantics(), check_for_dup_derived_type_lbl(), check_label_ref(), check_multiple_entry_func(), create_loop_stmts(), determine_lb_ub(), do_stmt_semantics(), dump_at_ntry(), else_stmt_semantics(), end_if_blk(), end_select_blk(), gen_assumed_shape_copy(), gen_attr_and_IR_for_lbl(), gen_bd_entry(), gen_debug_lbl_stmt(), gen_end_prologue_debug_label(), gen_forall_branch_around(), gen_if_ir(), gen_if_stmt(), label_ref_semantics(), loop_end_processing(), parse_assign_stmt(), parse_case_stmt(), parse_dir_directives(), parse_do_stmt(), parse_else_stmt(), parse_forall(), parse_if_stmt(), parse_select_stmt(), parse_where_stmt(), read_stmt_semantics(), resolve_fwd_lbl_refs(), select_stmt_semantics(), short_circuit_branch(), test_size_stmts(), update_idxs_in_attr_entry(), and write_stmt_semantics().

#define ATL_DIRECTIVE_LIST ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_DIRECTIVE_LIST", IDX))          \
                [IDX].fld.field14

Definition at line 1699 of file sytb.m.

Referenced by assign_new_idxs_after_input(), copy_sbtree(), dump_at_ntry(), send_label_def(), set_directives_on_label(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATL_EXECUTABLE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_EXECUTABLE", IDX))              \
                [IDX].fld.flag2

Definition at line 1708 of file sytb.m.

Referenced by assign_stmt_semantics(), check_label_ref(), cvrt_exp_to_pdg(), dump_at_ntry(), end_blockdata(), end_function(), end_internal_proc(), end_labeled_do(), end_module(), end_module_proc(), end_program_unit(), end_subroutine(), gen_loop_lbl_name(), label_ref_semantics(), parse_assign_stmt(), send_label(), and stmt_level_semantics().

#define ATL_FISSIONABLE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_FISSIONABLE", IDX))             \
                [IDX].fld.flag26

Definition at line 1717 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_FORMAT_TMP ( IDX ) attr_tbl[IDX].fld.field10

Definition at line 1733 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_stmt_semantics(), dump_at_ntry(), encode_decode_stmt_semantics(), io_ctl_list_semantics(), parse_format_stmt(), send_label(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATL_FUSABLE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_FUSABLE", IDX))                 \
                [IDX].fld.flag28

Definition at line 1737 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_FUSION ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_FUSION", IDX))                  \
                [IDX].fld.flag35

Definition at line 1746 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_FWD_REF_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label && !(AT_DEFINED(IDX))) ?                  \
                attr_tbl : sytb_var_error("ATL_FWD_REF_IDX", IDX))             \
                [IDX].fld.field13

Definition at line 1755 of file sytb.m.

Referenced by attr_semantics(), build_fwd_ref_entry(), dump_at_ntry(), end_blockdata(), end_function(), end_internal_proc(), end_module(), end_module_proc(), end_program_unit(), end_subroutine(), gen_attr_and_IR_for_lbl(), parse_prog_unit(), resolve_fwd_lbl_refs(), and stmt_level_semantics().

#define ATL_IN_ASSIGN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_IN_ASSIGN", IDX))               \
                [IDX].fld.flag1

Definition at line 1764 of file sytb.m.

Referenced by dump_at_ntry(), goto_stmt_semantics(), parse_assign_stmt(), and send_label_def().

#define ATL_IN_ASSIGN_LBL_CHAIN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_IN_ASSIGN_LBL_CHAIN", IDX))     \
                [IDX].fld.flag3

Definition at line 1773 of file sytb.m.

Referenced by assign_stmt_semantics(), and dump_at_ntry().

#define ATL_INFORM_ONLY ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_INFORM_ONLY", IDX))             \
                [IDX].fld.flag42

Definition at line 2000 of file sytb.m.

Referenced by assignment_stmt_semantics(), dump_at_ntry(), and send_label_def().

#define ATL_IVDEP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_IVDEP", IDX))                   \
                [IDX].fld.flag4

Definition at line 1782 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_MAXCPUS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_MAXCPUS", IDX))                 \
                [IDX].fld.flag23

Definition at line 1791 of file sytb.m.

Referenced by dump_at_ntry(), and set_directives_on_label().

#define ATL_NEW_LBL_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label &&                                        \
          attr_tbl[IDX].fld.secondary_info == Lbl_Internal) ?                  \
                attr_tbl : sytb_var_error("ATL_NEW_LBL_IDX", IDX))             \
                [IDX].fld.field10

Definition at line 1800 of file sytb.m.

Referenced by copy_entry_exit_sh_list(), copy_subtree(), and dump_at_ntry().

#define ATL_NEXT_ASG_LBL_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_NEXT_ASG_LBL_IDX", IDX))        \
                [IDX].fld.field8

Definition at line 1810 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_stmt_semantics(), cvrt_exp_to_pdg(), dump_at_ntry(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATL_NEXTSCALAR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_NEXTSCALAR", IDX))              \
                [IDX].fld.flag10

Definition at line 1819 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_NOBLOCKING ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_NOBLOCKING", IDX))              \
                [IDX].fld.flag32

Definition at line 1828 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_NOFISSION ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_NOFISSION", IDX))               \
                [IDX].fld.flag27

Definition at line 1837 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_NOFUSION ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_NOFUSION", IDX))                \
                [IDX].fld.flag29

Definition at line 1846 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_NOINTERCHANGE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_NOINTERCHANGE", IDX))           \
                [IDX].fld.flag30

Definition at line 1855 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_NORECURRENCE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_NORECURRENCE", IDX))            \
                [IDX].fld.flag5

Definition at line 1864 of file sytb.m.

Referenced by dump_at_ntry(), label_def_stmt_semantics(), send_label_def(), and set_directives_on_label().

#define ATL_NOTASK ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_NOTASK", IDX))                  \
                [IDX].fld.flag37

Definition at line 1873 of file sytb.m.

Referenced by dump_at_ntry(), label_def_stmt_semantics(), parse_dir_directives(), send_label_def(), and set_directives_on_label().

#define ATL_NOVECTOR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_NOVECTOR", IDX))                \
                [IDX].fld.flag6

Definition at line 1882 of file sytb.m.

Referenced by dump_at_ntry(), gen_attr_and_IR_for_lbl(), gen_internal_lbl(), label_def_stmt_semantics(), parse_dir_directives(), send_label_def(), and set_directives_on_label().

#define ATL_NOVSEARCH ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_NOVSEARCH", IDX))               \
                [IDX].fld.flag9

Definition at line 1891 of file sytb.m.

Referenced by dump_at_ntry(), label_def_stmt_semantics(), send_label_def(), and set_directives_on_label().

#define ATL_PATTERN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_PATTERN", IDX))                 \
                [IDX].fld.flag24

Definition at line 1900 of file sytb.m.

Referenced by dump_at_ntry(), label_def_stmt_semantics(), send_label_def(), and set_directives_on_label().

#define ATL_PERMUTATION ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_PERMUTATION", IDX))             \
                [IDX].fld.flag19

Definition at line 1909 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_PP_FORMAT_TMP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label &&                                        \
          attr_tbl[IDX].fld.secondary_info == Lbl_Format) ?                    \
                attr_tbl : sytb_var_error("ATL_PP_FORMAT_TMP", IDX))           \
                [IDX].fld.field4

Definition at line 1918 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), encode_decode_stmt_semantics(), io_ctl_list_semantics(), parse_format_stmt(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATL_PREFERSTREAM ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_PREFERSTREAM", IDX))            \
                [IDX].fld.flag41

Definition at line 1928 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_PREFERSTREAM_NOCINV ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_PREFERSTREAM_NOCINV", IDX))     \
                [IDX].fld.flag43

Definition at line 1937 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_PREFERTASK ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_PREFERTASK", IDX))              \
                [IDX].fld.flag20

Definition at line 1946 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_PREFERVECTOR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_PREFERVECTOR", IDX))            \
                [IDX].fld.flag39

Definition at line 1955 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_SHORTLOOP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_SHORTLOOP", IDX))               \
                [IDX].fld.flag7

Definition at line 1964 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_SHORTLOOP128 ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_SHORTLOOP128", IDX))            \
                [IDX].fld.flag8

Definition at line 1973 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_SPLIT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_SPLIT", IDX))                   \
                [IDX].fld.flag22

Definition at line 1982 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_STREAM ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_STREAM", IDX))                  \
                [IDX].fld.flag40

Definition at line 1991 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATL_TOP_OF_LOOP ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_TOP_OF_LOOP", IDX))             \
                [IDX].fld.flag36

Definition at line 2009 of file sytb.m.

Referenced by assignment_stmt_semantics(), do_stmt_semantics(), dump_at_ntry(), gen_loop_lbl_name(), and send_label_def().

#define ATL_UNROLL_DIR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Label) ?                                        \
                attr_tbl : sytb_var_error("ATL_UNROLL_DIR", IDX))              \
                [IDX].fld.flag17

Definition at line 2018 of file sytb.m.

Referenced by dump_at_ntry(), send_label_def(), and set_directives_on_label().

#define ATN_FIRST_NAMELIST_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Namelist_Grp) ?                                 \
                attr_tbl : sytb_var_error("ATN_FIRST_NAMELIST_IDX", IDX))      \
                [IDX].fld.field13

Definition at line 2031 of file sytb.m.

Referenced by assign_new_idxs_after_input(), chain_thru_sn_ntries(), cif_send_attr(), create_namelist_descriptor(), do_read_namelist_semantics(), do_write_namelist_semantics(), dump_at_ntry(), host_associated_attr_semantics(), namelist_resolution(), parse_namelist_stmt(), print_attr_f(), send_namelist_group(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATN_LAST_NAMELIST_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Namelist_Grp) ?                                 \
                attr_tbl : sytb_var_error("ATN_LAST_NAMELIST_IDX", IDX))       \
                [IDX].fld.field10

Definition at line 2040 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), parse_namelist_stmt(), and update_idxs_in_attr_entry().

#define ATN_NAMELIST_DESC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Namelist_Grp) ?                                 \
                attr_tbl : sytb_var_error("ATN_NAMELIST_DESC", IDX))           \
                [IDX].fld.field4

Definition at line 2049 of file sytb.m.

Referenced by assign_new_idxs_after_input(), create_namelist_descriptor(), dump_at_ntry(), host_associated_attr_semantics(), io_ctl_list_semantics(), namelist_resolution(), print_attr_f(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATN_NUM_NAMELIST ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Namelist_Grp) ?                                 \
                attr_tbl : sytb_var_error("ATN_NUM_NAMELIST", IDX))            \
                [IDX].fld.field5

Definition at line 2058 of file sytb.m.

Referenced by cif_send_attr(), create_namelist_descriptor(), dump_at_ntry(), parse_namelist_stmt(), and print_attr_f().

#define ATP_ALIGN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_ALIGN", IDX))                   \
                [IDX].fld.flag32

Definition at line 2070 of file sytb.m.

Referenced by dump_at_ntry(), entry_stmt_semantics(), and send_procedure().

#define ATP_ALL_INTENT_IN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_ALL_INTENT_IN", IDX))           \
                [IDX].fld.flag3

Definition at line 2079 of file sytb.m.

Referenced by dump_at_ntry(), final_attr_semantics(), and send_procedure().

#define ATP_ALT_ENTRY ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_ALT_ENTRY", IDX))               \
                [IDX].fld.flag2

Definition at line 2088 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_semantics(), char_len_resolution(), check_global_pgm_unit(), cif_send_attr(), cvrt_exp_to_pdg(), cvrt_sytb_to_pdg(), dump_at_ntry(), fill_in_global_attr_ntry(), fnd_semantic_err(), merge_type(), namelist_resolution(), parse_entry_stmt(), send_mod_file_name(), send_procedure(), set_function_rslt(), and start_new_subpgm().

#define ATP_ARGCHCK_CALL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_ARGCHCK_CALL", IDX))            \
                [IDX].fld.flag24

Definition at line 2097 of file sytb.m.

Referenced by call_list_semantics(), dump_at_ntry(), resolve_ext_opr(), and send_procedure().

#define ATP_ARGCHCK_ENTRY ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_ARGCHCK_ENTRY", IDX))           \
                [IDX].fld.flag25

Definition at line 2106 of file sytb.m.

Referenced by decl_semantics(), dump_at_ntry(), parse_entry_stmt(), parse_function_stmt(), parse_prefix_spec(), parse_subroutine_stmt(), and parse_typed_function_stmt().

#define ATP_CIF_DARG_PROC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATP_CIF_DARG_PROC", IDX))   \
                [IDX].fld.flag1

Definition at line 2115 of file sytb.m.

Referenced by cif_send_attr(), and dump_at_ntry().

#define ATP_COARRAY_CONCURRENT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_COARRAY_CONCURRENT", IDX))      \
                [IDX].fld.is_concurrent

Definition at line 2698 of file sytb.m.

Referenced by dump_at_ntry(), parse_function_stmt(), parse_subroutine_stmt(), and send_procedure().

#define ATP_DCL_EXTERNAL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_DCL_EXTERNAL", IDX))            \
                [IDX].fld.flag10

Definition at line 2124 of file sytb.m.

Referenced by call_list_semantics(), cif_send_attr(), dump_at_ntry(), fnd_semantic_err(), merge_external(), parse_deref(), print_attr_f(), and send_procedure().

#define ATP_DOES_NOT_RETURN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_DOES_NOT_RETURN", IDX))         \
                [IDX].fld.flag49

Definition at line 2133 of file sytb.m.

Referenced by cvrt_exp_to_pdg(), and stop_pause_stmt_semantics().

#define ATP_DUMMY_PROC_LINK ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit &&                                     \
          attr_tbl[IDX].fld.field2 == Dummy_Proc) ?                            \
                attr_tbl : sytb_var_error("ATP_DUMMY_PROC_LINK", IDX))         \
                [IDX].fld.field4

Definition at line 2142 of file sytb.m.

Referenced by call_list_semantics(), dump_at_ntry(), and process_variable_size_func().

#define ATP_DUPLICATE_INTERFACE_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
          attr_aux_tbl:attr_aux_var_error("ATP_DUPLICATE_INTERFACE_IDX",IDX))  \
                [IDX].fld.field4

Definition at line 2152 of file sytb.m.

Referenced by attr_semantics(), compare_duplicate_interface_bodies(), dump_at_ntry(), and start_new_subpgm().

#define ATP_ELEMENTAL ( IDX ) attr_tbl[IDX].fld.flag31

#define ATP_ENTRY_LABEL_SH_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_aux_tbl:attr_aux_var_error("ATP_ENTRY_LABEL_SH_IDX",IDX)) \
                [IDX].fld.field3

Definition at line 2172 of file sytb.m.

Referenced by decl_semantics(), dump_at_ntry(), gen_assumed_shape_copy(), and parse_entry_stmt().

#define ATP_EXPL_ITRFC ( IDX ) attr_tbl[IDX].fld.flag41

#define ATP_EXT_NAME ( IDX ) name_pool[ATP_EXT_NAME_IDX(IDX)].name_char

Definition at line 2189 of file sytb.m.

#define ATP_EXT_NAME_IDX ( IDX )

Value:

(AT_OBJ_CLASS(IDX) == Pgm_Unit ?                                       \
                attr_tbl : sytb_var_error("ATP_EXT_NAME_IDX", IDX))            \
                [IDX].fld.field13

Definition at line 2181 of file sytb.m.

Referenced by assign_new_idxs_after_input(), complete_intrinsic_definition(), create_lib_entry_attr(), cvrt_proc_to_pdg(), dump_at_ntry(), final_attr_semantics(), gen_end_prologue_debug_label(), init_parse_prog_unit(), make_external_name(), minval_intrinsic(), parse_entry_stmt(), parse_name_dir(), send_mod_file_name(), send_procedure(), set_mod_link_tbl_for_attr(), start_new_subpgm(), and update_idxs_in_attr_entry().

#define ATP_EXT_NAME_LEN ( IDX )

Value:

(AT_OBJ_CLASS(IDX) == Pgm_Unit ?                                       \
                attr_tbl : sytb_var_error("ATP_EXT_NAME_LEN", IDX))            \
                [IDX].fld.field12

Definition at line 2194 of file sytb.m.

Referenced by assign_new_idxs_after_input(), complete_intrinsic_definition(), create_lib_entry_attr(), dump_at_ntry(), gen_end_prologue_debug_label(), init_parse_prog_unit(), make_external_name(), parse_entry_stmt(), parse_name_dir(), send_mod_file_name(), set_mod_link_tbl_for_attr(), and start_new_subpgm().

#define ATP_EXT_NAME_LONG ( IDX ) &(name_pool[ATP_EXT_NAME_IDX(IDX)].name_long)

Definition at line 2190 of file sytb.m.

#define ATP_EXT_NAME_PTR ( IDX ) &name_pool[ATP_EXT_NAME_IDX(IDX)].name_char

Definition at line 2191 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), and parse_name_dir().

#define ATP_EXTERNAL_INTRIN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_EXTERNAL_INTRIN", IDX))         \
                [IDX].fld.flag43

Definition at line 2213 of file sytb.m.

Referenced by all_intrinsic(), allocated_intrinsic(), associated_intrinsic(), call_list_semantics(), complete_intrinsic_definition(), cshift_intrinsic(), dim_intrinsic(), dot_product_intrinsic(), dump_at_ntry(), eoshift_intrinsic(), free_intrinsic(), index_intrinsic(), lbound_intrinsic(), malloc_intrinsic(), matmul_intrinsic(), minval_intrinsic(), num_images_intrinsic(), pack_intrinsic(), repeat_intrinsic(), reshape_intrinsic(), selected_real_kind_intrinsic(), shape_intrinsic(), sign_intrinsic(), size_intrinsic(), sizeof_intrinsic(), spread_intrinsic(), transfer_intrinsic(), transpose_intrinsic(), trim_intrinsic(), ubound_intrinsic(), and unpack_intrinsic().

#define ATP_EXTRA_DARG ( IDX ) attr_tbl[IDX].fld.flag42

#define ATP_FIRST_IDX ( IDX )

Value:

(((AT_OBJ_CLASS(IDX) == Pgm_Unit) &&                                   \
          (attr_tbl[IDX].fld.secondary_info != Module)) ||                     \
         (AT_OBJ_CLASS(IDX) == Stmt_Func) ?                                    \
                attr_tbl : sytb_var_error("ATP_FIRST_IDX", IDX))               \
                [IDX].fld.field14

Definition at line 2232 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), call_list_semantics(), chain_thru_sn_ntries(), cif_send_attr(), compare_darg_to_actual_arg(), compare_dummy_arguments(), compare_duplicate_interface_bodies(), complete_intrinsic_definition(), create_argchck_descriptor(), darg_in_entry_list(), dump_at_ntry(), fill_in_global_attr_ntry(), final_arg_work(), final_attr_semantics(), flatten_function_call(), global_name_semantics(), loop_thru_sn_ntries(), not_visible_semantics(), parse_dummy_args(), parse_stmt_func_stmt(), print_attr_f(), resolve_attr(), resolve_ext_opr(), send_darg_list(), set_mod_link_tbl_for_attr(), set_shape_for_deferred_funcs(), srch_for_calls(), srch_kwd_name(), stmt_func_call_opr_handler(), stmt_func_semantics(), update_idxs_in_attr_entry(), and verify_interface().

#define ATP_FIRST_SH_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit &&                                     \
          attr_tbl[IDX].fld.secondary_info != Module &&                        \
          attr_tbl[IDX].fld.field2 != Intrin_Proc) ?                           \
                attr_tbl : sytb_var_error("ATP_FIRST_SH_IDX", IDX))            \
                [IDX].fld.field4

Definition at line 2243 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), find_prog_unit_tbl(), gen_tmp_eq_zero_ir(), gen_user_code_start_opr(), insert_sh_after_entries(), insert_sh_chain_after_entries(), parse_entry_stmt(), pgm_unit_semantics(), process_procs_for_inlining(), set_mod_link_tbl_for_attr(), set_up_which_entry_tmp(), srch_for_calls(), and update_idxs_in_attr_entry().

#define ATP_GLOBAL_ATTR_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_GLOBAL_ATTR_IDX", IDX))         \
                [IDX].fld.field16

Definition at line 2254 of file sytb.m.

Referenced by compare_global_derived_type(), dump_at_ntry(), fill_in_global_attr_ntry(), final_attr_semantics(), and parse_use_stmt().

#define ATP_HAS_ALT_RETURN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_HAS_ALT_RETURN", IDX))          \
                [IDX].fld.flag9

Definition at line 2263 of file sytb.m.

Referenced by attr_semantics(), backspace_stmt_semantics(), call_list_semantics(), close_stmt_semantics(), cvrt_exp_to_pdg(), dump_at_ntry(), end_internal_proc(), end_module_proc(), end_subroutine(), endfile_stmt_semantics(), final_attr_semantics(), inquire_stmt_semantics(), open_stmt_semantics(), parse_actual_arg_spec(), parse_dummy_args(), parse_io_control_list(), return_stmt_semantics(), rewind_stmt_semantics(), and send_procedure().

#define ATP_HAS_OVER_INDEXING ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_HAS_OVER_INDEXING", IDX))       \
                [IDX].fld.flag26

Definition at line 2272 of file sytb.m.

Referenced by dump_at_ntry(), send_procedure(), srch_for_calls(), and subscript_opr_handler().

#define ATP_HAS_TASK_DIRS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_HAS_TASK_DIRS", IDX))           \
                [IDX].fld.flag27

Definition at line 2281 of file sytb.m.

Referenced by dump_at_ntry(), goto_stmt_semantics(), parse_dir_directives(), parse_dollar_directives(), parse_mic_directives(), parse_open_mp_directives(), parse_openad_directives(), parse_par_directives(), send_procedure(), srch_for_calls(), and start_new_prog_unit().

#define ATP_IMPLICIT_USE_MODULE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
             attr_aux_tbl: attr_aux_var_error("ATP_IMPLICIT_USE_MODULE",IDX))  \
                [IDX].fld.flag5

Definition at line 2290 of file sytb.m.

Referenced by dump_at_ntry(), implicit_use_semantics(), and use_stmt_semantics().

#define ATP_IN_CURRENT_COMPILE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_aux_tbl: attr_aux_var_error("ATP_IN_CURRENT_COMPILE",IDX))\
                [IDX].fld.flag4

Definition at line 2368 of file sytb.m.

Referenced by assign_new_idxs_after_input(), copy_sbtree(), cvrt_exp_to_pdg(), dump_at_ntry(), find_prog_unit_tbl(), not_visible_semantics(), read_in_module_tbl(), and send_procedure().

#define ATP_IN_INTERFACE_BLK ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_IN_INTERFACE_BLK", IDX))        \
                [IDX].fld.flag11

Definition at line 2299 of file sytb.m.

Referenced by call_list_semantics(), cif_send_attr(), cif_usage_rec(), complete_intrinsic_definition(), dump_at_ntry(), final_attr_semantics(), global_name_semantics(), merge_type(), print_scp_to_fortran(), send_procedure(), and start_new_subpgm().

#define ATP_IN_UNNAMED_INTERFACE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_IN_UNNAMED_INTERFACE", IDX))    \
                [IDX].fld.flag18

Definition at line 2308 of file sytb.m.

Referenced by dump_at_ntry(), print_attr_f(), print_scp_to_fortran(), and start_new_subpgm().

#define ATP_INDIRECT_MODULE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATP_INDIRECT_MODULE", IDX)) \
                [IDX].fld.flag2

Definition at line 2317 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), resolve_used_modules(), and use_stmt_semantics().

#define ATP_INLINE_ALWAYS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_INLINE_ALWAYS", IDX))           \
                [IDX].fld.flag22

Definition at line 2326 of file sytb.m.

Referenced by attr_semantics(), copy_sbtree(), dump_at_ntry(), fnd_semantic_err(), parse_inline_always_never(), srch_for_calls(), and verify_interface().

#define ATP_INLINE_NEVER ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_INLINE_NEVER", IDX))            \
                [IDX].fld.flag23

Definition at line 2335 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), fnd_semantic_err(), parse_inline_always_never(), srch_for_calls(), and verify_interface().

#define ATP_INTERFACE_IDX ( IDX ) attr_tbl[IDX].fld.field4

Definition at line 2352 of file sytb.m.

Referenced by call_list_semantics(), cif_call_site_rec(), cif_usage_rec(), dump_at_ntry(), num_images_intrinsic(), parse_deref(), send_procedure(), and set_attr_flds_for_output().

#define ATP_INTRIN_ENUM ( IDX ) attr_tbl[IDX].fld.field10

Definition at line 2364 of file sytb.m.

Referenced by adjustl_intrinsic(), all_intrinsic(), atan2_intrinsic(), btest_intrinsic(), call_list_semantics(), cmplx_intrinsic(), complete_intrinsic_definition(), conform_check(), cvmgp_intrinsic(), dprod_intrinsic(), dshiftl_intrinsic(), dump_at_ntry(), fetch_and_add_intrinsic(), flatten_function_call(), get_ieee_status_intrinsic(), iand_intrinsic(), ibset_intrinsic(), ieee_finite_intrinsic(), ieee_real_intrinsic(), index_intrinsic(), int_intrinsic(), interpret_adjustl_intrinsic(), interpret_constructor(), ishft_intrinsic(), ishftc_intrinsic(), leadz_intrinsic(), lge_intrinsic(), loc_intrinsic(), max_intrinsic(), minval_intrinsic(), nint_intrinsic(), not_intrinsic(), num_images_intrinsic(), omp_get_max_threads_intrinsic(), omp_set_lock_intrinsic(), ranget_intrinsic(), real_intrinsic(), rtc_intrinsic(), send_procedure(), set_ieee_exception_intrinsic(), shift_intrinsic(), sin_intrinsic(), and test_ieee_interrupt_intrinsic().

#define ATP_MAY_INLINE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_MAY_INLINE", IDX))              \
                [IDX].fld.flag21

Definition at line 2377 of file sytb.m.

Referenced by collapse_interface_blk(), dump_at_ntry(), output_mod_info_file(), parse_dir_directives(), parse_entry_stmt(), pgm_unit_semantics(), set_mod_link_tbl_for_attr(), start_new_prog_unit(), start_new_subpgm(), and use_stmt_semantics().

#define ATP_MOD_PATH_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit &&                                     \
          attr_tbl[IDX].fld.secondary_info == Module) ?                        \
                attr_tbl : sytb_var_error("ATP_MOD_PATH_IDX", IDX))            \
                [IDX].fld.field4

Definition at line 2386 of file sytb.m.

Referenced by assign_new_idxs_after_input(), copy_sbtree(), cvrt_exp_to_pdg(), dump_at_ntry(), output_mod_info_file(), read_in_module_tbl(), resolve_used_modules(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ATP_MOD_PATH_LEN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit &&                                     \
          attr_tbl[IDX].fld.secondary_info == Module) ?                        \
                attr_tbl : sytb_var_error("ATP_MOD_PATH_LEN", IDX))            \
                [IDX].fld.field6

Definition at line 2398 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), output_mod_info_file(), read_in_module_tbl(), and set_mod_link_tbl_for_attr().

#define ATP_MOD_PATH_NAME_PTR ( IDX ) &name_pool[ATP_MOD_PATH_IDX(IDX)].name_char

Definition at line 2395 of file sytb.m.

Referenced by cif_use_module_rec(), dump_at_ntry(), and resolve_used_modules().

#define ATP_MODULE_STR_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit &&                                       \
        attr_tbl[IDX].fld.secondary_info == Module) ?                          \
              attr_tbl : sytb_var_error("ATP_MODULE_STR_IDX", IDX))            \
              [IDX].fld.field10

Definition at line 2408 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), final_attr_semantics(), merge_interfaces(), not_visible_semantics(), ntr_global_attr_tbl(), parse_module_stmt(), parse_use_stmt(), resolve_attr(), set_attr_flds_for_output(), and verify_interface().

#define ATP_NAME_IN_STONE ( IDX ) attr_tbl[IDX].fld.flag20

Definition at line 2424 of file sytb.m.

Referenced by check_call_for_global_def(), cif_send_attr(), dump_at_ntry(), final_attr_semantics(), fnd_semantic_err(), parse_name_dir(), and send_procedure().

#define ATP_NO_ENTRY_LIST ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATP_NO_ENTRY_LIST", IDX))   \
                [IDX].fld.field1

Definition at line 2428 of file sytb.m.

Referenced by array_dim_resolution(), bound_semantics(), char_len_resolution(), decl_semantics(), dump_at_ntry(), final_attr_semantics(), gen_ir_at_this_entry(), insert_sh_after_entries(), and pe_array_dim_resolution().

#define ATP_NON_ANSI_INTRIN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_NON_ANSI_INTRIN", IDX))         \
                [IDX].fld.flag6

Definition at line 2437 of file sytb.m.

Referenced by complete_intrinsic_definition(), dump_at_ntry(), and parse_deref().

#define ATP_NOSIDE_EFFECTS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_NOSIDE_EFFECTS", IDX))          \
                [IDX].fld.flag5

Definition at line 2446 of file sytb.m.

Referenced by attr_semantics(), cif_send_attr(), complete_intrinsic_definition(), dump_at_ntry(), end_program_unit(), fill_in_global_attr_ntry(), fnd_semantic_err(), global_name_semantics(), parse_nosideeffects_dir(), parse_vfunction_dir(), send_procedure(), and stop_pause_stmt_semantics().

#define ATP_NUM_DARGS ( IDX )

Value:

(((AT_OBJ_CLASS(IDX) == Pgm_Unit &&                                    \
           attr_tbl[IDX].fld.secondary_info != Module) ||                      \
          AT_OBJ_CLASS(IDX) == Stmt_Func) ?                                    \
                attr_tbl : sytb_var_error("ATP_NUM_DARGS", IDX))               \
                [IDX].fld.field6

Definition at line 2455 of file sytb.m.

Referenced by attr_link_resolution(), attr_semantics(), call_list_semantics(), chain_thru_sn_ntries(), cif_send_attr(), compare_darg_to_actual_arg(), compare_dummy_arguments(), compare_duplicate_interface_bodies(), complete_intrinsic_definition(), create_argchck_descriptor(), darg_in_entry_list(), dump_at_ntry(), fill_in_global_attr_ntry(), final_arg_work(), final_attr_semantics(), flatten_function_call(), global_name_semantics(), loop_thru_sn_ntries(), not_visible_semantics(), num_images_intrinsic(), parse_dummy_args(), parse_stmt_func_stmt(), print_attr_f(), resolve_attr(), resolve_ext_opr(), send_darg_list(), send_procedure(), set_mod_link_tbl_for_attr(), srch_for_calls(), srch_kwd_name(), stmt_func_call_opr_handler(), stmt_func_semantics(), and verify_interface().

#define ATP_OPTIONAL_DIR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_OPTIONAL_DIR", IDX))            \
                [IDX].fld.flag44

Definition at line 2485 of file sytb.m.

Referenced by dump_at_ntry(), fnd_semantic_err(), parse_star_directives(), and send_procedure().

#define ATP_PARENT_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit &&                                     \
          attr_tbl[IDX].fld.secondary_info != Module) ?                        \
                attr_tbl : sytb_var_error("ATP_PARENT_IDX", IDX))              \
                [IDX].fld.field10

Definition at line 2466 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_at_ntry(), set_mod_link_tbl_for_attr(), start_new_subpgm(), and update_idxs_in_attr_entry().

#define ATP_PGM_UNIT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_PGM_UNIT", IDX))                \
                [IDX].fld.secondary_info

Definition at line 2476 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), assign_storage_blk(), attr_link_resolution(), attr_semantics(), blk_desc_str(), blk_match_err(), call_list_semantics(), chain_thru_sn_ntries(), char_len_resolution(), check_global_pgm_unit(), chg_data_obj_to_pgm_unit(), cif_call_site_rec(), cif_send_attr(), cif_send_sytb(), compare_darg_to_actual_arg(), compare_dummy_arguments(), compare_duplicate_interface_bodies(), complete_intrinsic_definition(), conform_check(), create_argchck_descriptor(), create_lib_entry_attr(), create_mod_info_file(), create_mod_info_tbl(), create_namelist_descriptor(), cvrt_exp_to_pdg(), cvrt_proc_to_pdg(), cvrt_sytb_to_pdg(), cvrt_to_pdg(), decl_semantics(), decl_semantics_driver(), directive_stmt_semantics(), dump_at_ntry(), end_interface_body(), end_internal_proc(), end_module_proc(), fill_in_global_attr_ntry(), final_arg_work(), final_attr_semantics(), find_prog_unit_tbl(), fnd_semantic_err(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_entry_dope_code(), get_type_desc(), global_name_semantics(), host_associated_attr_semantics(), implicit_use_semantics(), init_parse_prog_unit(), iss_blk_stk_err(), issue_attr_blk_err(), main(), merge_access(), merge_automatic(), merge_dimension(), merge_intrinsic(), merge_pointer(), merge_target(), merge_type(), namelist_resolution(), not_visible_semantics(), ntr_global_attr_tbl(), object_semantics(), output_mod_info_file(), parse_access_stmt(), parse_call_stmt(), parse_deref(), parse_derived_type_stmt(), parse_dir_directives(), parse_dummy_args(), parse_end_stmt(), parse_entry_stmt(), parse_inline_always_never(), parse_lhs(), parse_module_stmt(), parse_prefix_spec(), parse_return_stmt(), parse_sgi_dir_inline(), parse_use_stmt(), parse_var_common_list(), parse_vfunction_dir(), pe_array_dim_resolution(), pgm_unit_semantics(), print_attr_f(), print_sn_list(), rename_only_semantics(), resolve_attr(), resolve_ext_opr(), return_stmt_semantics(), retype_attr(), send_attr_ntry(), send_dummy_procedure(), send_mod_file_name(), send_procedure(), set_attr_flds_for_output(), set_mod_link_tbl_for_attr(), srch_for_calls(), start_new_prog_unit(), start_new_subpgm(), type_init_semantics(), update_fld_type(), update_idxs_in_attr_entry(), use_stmt_semantics(), and verify_interface().

#define ATP_PROC ( IDX ) attr_tbl[IDX].fld.field2

Definition at line 2500 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_semantics(), call_list_semantics(), char_len_resolution(), check_and_allocate_common_storage(), check_call_for_global_def(), chg_data_obj_to_pgm_unit(), cif_call_site_rec(), cif_send_attr(), cif_usage_rec(), compare_darg_to_actual_arg(), complete_intrinsic_definition(), create_lib_entry_attr(), create_mod_info_tbl(), cvrt_exp_to_pdg(), cvrt_sytb_to_pdg(), doall_cmic_semantics(), doall_end_semantics(), dump_at_ntry(), endparallel_cmic_semantics(), final_arg_work(), final_attr_semantics(), find_prog_unit_tbl(), flatten_function_call(), fnd_semantic_err(), generic_spec_semantics(), loop_thru_sn_ntries(), merge_access(), merge_external(), merge_optional(), merge_type(), mp_directive_semantics(), namelist_resolution(), open_mp_directive_semantics(), parallel_cmic_semantics(), parse_call_stmt(), parse_deref(), parse_dummy_args(), parse_entry_stmt(), parse_function_stmt(), parse_inline_always_never(), parse_module_stmt(), parse_name_dir(), parse_nosideeffects_dir(), parse_prefix_spec(), parse_sgi_dir_inline(), parse_star_directives(), parse_subroutine_stmt(), parse_typed_function_stmt(), parse_vfunction_dir(), print_attr_f(), process_variable_size_func(), resolve_attr(), resolve_ext_opr(), send_interface_list(), send_mod_file_name(), send_procedure(), set_attr_flds_for_output(), set_mod_link_tbl_for_attr(), srch_for_calls(), start_new_subpgm(), update_idxs_in_attr_entry(), use_stmt_semantics(), and verify_interface().

#define ATP_PURE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_PURE", IDX))                    \
                [IDX].fld.flag30

Definition at line 2504 of file sytb.m.

Referenced by allocate_stmt_semantics(), assignment_stmt_semantics(), attr_semantics(), call_list_semantics(), check_for_legal_define(), complete_intrinsic_definition(), deallocate_stmt_semantics(), dump_at_ntry(), fill_in_global_attr_ntry(), final_attr_semantics(), global_name_semantics(), io_ctl_list_semantics(), nullify_stmt_semantics(), parse_backspace_stmt(), parse_close_stmt(), parse_endfile_stmt(), parse_entry_stmt(), parse_inquire_stmt(), parse_open_stmt(), parse_prefix_spec(), parse_print_stmt(), parse_pure_stmt(), parse_rewind_stmt(), parse_stop_pause_stmt(), parse_typed_function_stmt(), print_attr_f(), resolve_ext_opr(), and send_procedure().

#define ATP_RECURSIVE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_RECURSIVE", IDX))               \
                [IDX].fld.flag1

Definition at line 2513 of file sytb.m.

Referenced by call_list_semantics(), cif_send_attr(), decl_semantics(), dump_at_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), merge_dimension(), merge_type(), parse_entry_stmt(), parse_module_stmt(), parse_prefix_spec(), parse_recursive_stmt(), parse_typed_function_stmt(), print_attr_f(), resolve_ext_opr(), send_procedure(), and srch_for_calls().

#define ATP_RSLT_IDX ( IDX ) attr_tbl[IDX].fld.field8

Definition at line 2530 of file sytb.m.

Referenced by abs_intrinsic(), adjustl_intrinsic(), aimag_intrinsic(), aint_intrinsic(), all_intrinsic(), allocated_intrinsic(), anint_intrinsic(), assign_new_idxs_after_input(), assignment_stmt_semantics(), associated_intrinsic(), atan2_intrinsic(), attr_link_resolution(), attr_semantics(), bit_size_intrinsic(), btest_intrinsic(), call_list_semantics(), ceiling_intrinsic(), chain_thru_sn_ntries(), char_intrinsic(), check_multiple_entry_func(), chg_data_obj_to_pgm_unit(), cif_call_site_rec(), cif_object_rec_for_func_result(), cif_send_attr(), clock_intrinsic(), cmplx_intrinsic(), compare_and_swap_intrinsic(), compare_darg_to_actual_arg(), compare_dummy_arguments(), compare_duplicate_interface_bodies(), compare_entry_to_func_rslt(), compare_func_result(), complete_intrinsic_definition(), conform_check(), conjg_intrinsic(), create_argchck_descriptor(), cshift_intrinsic(), csmg_intrinsic(), cvmgp_intrinsic(), decl_semantics(), decl_semantics_driver(), digits_intrinsic(), dim_intrinsic(), directive_stmt_semantics(), dot_product_intrinsic(), dprod_intrinsic(), dshiftl_intrinsic(), dsm_numthreads_intrinsic(), dump_at_ntry(), end_function_semantics(), eoshift_intrinsic(), epsilon_intrinsic(), exponent_intrinsic(), fcd_intrinsic(), fetch_and_add_intrinsic(), fill_in_global_attr_ntry(), final_arg_work(), final_attr_semantics(), flatten_function_call(), floor_intrinsic(), fnd_semantic_err(), fraction_intrinsic(), gen_arg_type_descriptor(), generic_spec_semantics(), get_type_desc(), getpos_intrinsic(), global_name_semantics(), host_associated_attr_semantics(), huge_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ichar_intrinsic(), ieee_finite_intrinsic(), ieee_real_intrinsic(), ilen_intrinsic(), index_intrinsic(), int_intrinsic(), ishft_intrinsic(), ishftc_intrinsic(), kind_intrinsic(), lbound_intrinsic(), leadz_intrinsic(), len_intrinsic(), len_trim_intrinsic(), length_intrinsic(), lge_intrinsic(), loc_intrinsic(), logical_intrinsic(), malloc_intrinsic(), mask_intrinsic(), matmul_intrinsic(), max_intrinsic(), maxexponent_intrinsic(), mclr_intrinsic(), merge_automatic(), merge_dimension(), merge_intrinsic(), merge_pointer(), merge_target(), merge_type(), mergee_intrinsic(), minexponent_intrinsic(), minval_intrinsic(), mld_intrinsic(), mldmx_intrinsic(), mmx_intrinsic(), mod_intrinsic(), modulo_intrinsic(), mul_intrinsic(), my_pe_intrinsic(), namelist_resolution(), nearest_intrinsic(), nint_intrinsic(), not_intrinsic(), not_visible_semantics(), ntr_ref_in_global_tbl(), null_intrinsic(), num_images_intrinsic(), numarg_intrinsic(), omp_get_max_threads_intrinsic(), omp_set_lock_intrinsic(), pack_intrinsic(), parse_deref(), parse_entry_stmt(), parse_lhs(), parse_type_dcl_stmt(), parse_typed_function_stmt(), pgm_unit_semantics(), precision_intrinsic(), present_intrinsic(), print_attr_f(), radix_intrinsic(), ranf_intrinsic(), range_intrinsic(), ranget_intrinsic(), readsm_intrinsic(), real_intrinsic(), rename_only_semantics(), repeat_intrinsic(), reshape_intrinsic(), resolve_attr(), resolve_ext_opr(), return_stmt_semantics(), retype_attr(), rrspacing_intrinsic(), rtc_intrinsic(), scale_intrinsic(), selected_int_kind_intrinsic(), selected_real_kind_intrinsic(), send_dummy_procedure(), send_procedure(), set_exponent_intrinsic(), set_function_rslt(), set_mod_link_tbl_for_attr(), set_shape_for_deferred_funcs(), shape_intrinsic(), shift_intrinsic(), sign_intrinsic(), sin_intrinsic(), size_intrinsic(), sizeof_intrinsic(), spacing_intrinsic(), spread_intrinsic(), srch_for_calls(), start_new_subpgm(), struct_construct_opr_handler(), test_ieee_interrupt_intrinsic(), tiny_intrinsic(), transfer_intrinsic(), transpose_intrinsic(), trim_intrinsic(), ubound_intrinsic(), unit_intrinsic(), unpack_intrinsic(), update_fld_type(), update_idxs_in_attr_entry(), use_stmt_semantics(), and verify_interface().

#define ATP_RSLT_NAME ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_RSLT_NAME", IDX))               \
                [IDX].fld.flag12

Definition at line 2534 of file sytb.m.

Referenced by call_list_semantics(), compare_duplicate_interface_bodies(), directive_stmt_semantics(), dump_at_ntry(), host_associated_attr_semantics(), merge_dimension(), merge_pointer(), merge_target(), merge_type(), namelist_resolution(), not_visible_semantics(), parse_deref(), parse_lhs(), print_attr_f(), rename_only_semantics(), resolve_ext_opr(), retype_attr(), set_function_rslt(), and use_stmt_semantics().

#define ATP_SAVE_ALL ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_SAVE_ALL", IDX))                \
                [IDX].fld.flag34

Definition at line 2543 of file sytb.m.

Referenced by attr_semantics(), decl_semantics(), dump_at_ntry(), gen_entry_dope_code(), parse_attr_spec(), parse_dir_directives(), parse_save_stmt(), and print_attr_f().

#define ATP_SCP_ALIVE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_SCP_ALIVE", IDX))               \
                [IDX].fld.flag8

Definition at line 2552 of file sytb.m.

Referenced by assign_new_idxs_after_input(), call_list_semantics(), check_global_pgm_unit(), cif_send_attr(), cvrt_proc_to_pdg(), decl_semantics_driver(), dump_at_ntry(), end_blockdata(), end_function(), end_internal_proc(), end_module(), end_module_proc(), end_program_unit(), end_subroutine(), fill_in_global_attr_ntry(), fnd_semantic_err(), get_type_desc(), host_associated_attr_semantics(), interface_semantics_pass_driver(), output_mod_info_file(), parse_deref(), parse_entry_stmt(), parse_lhs(), parse_module_stmt(), pgm_unit_semantics(), rename_only_semantics(), resolve_ext_opr(), resolve_used_modules(), send_procedure(), start_new_prog_unit(), start_new_subpgm(), and use_stmt_semantics().

#define ATP_SCP_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATP_SCP_IDX", IDX))         \
                [IDX].fld.field5

Definition at line 2561 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), call_list_semantics(), chg_data_obj_to_pgm_unit(), complete_intrinsic_definition(), create_lib_entry_attr(), dump_at_ntry(), implicit_use_semantics(), init_parse_prog_unit(), merge_external(), parse_call_stmt(), parse_deref(), parse_entry_stmt(), parse_inline_always_never(), parse_module_stmt(), parse_name_dir(), parse_nosideeffects_dir(), parse_sgi_dir_inline(), parse_star_directives(), parse_use_stmt(), parse_vfunction_dir(), resolve_ext_opr(), send_dummy_procedure(), send_procedure(), set_attr_flds_for_output(), start_new_prog_unit(), and start_new_subpgm().

#define ATP_SGI_GLOBAL_INLINE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_SGI_GLOBAL_INLINE", IDX))       \
                [IDX].fld.flag35

Definition at line 2588 of file sytb.m.

Referenced by directive_stmt_semantics(), dump_at_ntry(), parse_sgi_dir_inline(), send_procedure(), and set_inline_state().

#define ATP_SGI_GLOBAL_NOINLINE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_SGI_GLOBAL_NOINLINE", IDX))     \
                [IDX].fld.flag36

Definition at line 2597 of file sytb.m.

Referenced by directive_stmt_semantics(), dump_at_ntry(), parse_sgi_dir_inline(), and set_inline_state().

#define ATP_SGI_LOCAL_INLINE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_aux_tbl : attr_aux_var_error("ATP_SGI_LOCAL_INLINE",IDX)) \
                [IDX].fld.flag6

Definition at line 2570 of file sytb.m.

Referenced by directive_stmt_semantics(), dump_at_ntry(), and set_inline_state().

#define ATP_SGI_LOCAL_NOINLINE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
             attr_aux_tbl : attr_aux_var_error("ATP_SGI_LOCAL_NOINLINE",IDX))  \
                [IDX].fld.flag7

Definition at line 2579 of file sytb.m.

Referenced by directive_stmt_semantics(), dump_at_ntry(), and set_inline_state().

#define ATP_SGI_ROUTINE_INLINE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_SGI_ROUTINE_INLINE", IDX))      \
                [IDX].fld.flag38

Definition at line 2606 of file sytb.m.

Referenced by attr_semantics(), directive_stmt_semantics(), dump_at_ntry(), parse_sgi_dir_inline(), and set_inline_state().

#define ATP_SGI_ROUTINE_NOINLINE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_SGI_ROUTINE_NOINLINE", IDX))    \
                [IDX].fld.flag37

Definition at line 2615 of file sytb.m.

Referenced by attr_semantics(), directive_stmt_semantics(), dump_at_ntry(), parse_sgi_dir_inline(), and set_inline_state().

#define ATP_STACK_DIR ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_STACK_DIR", IDX))               \
                [IDX].fld.flag7

Definition at line 2624 of file sytb.m.

Referenced by assign_storage_blk(), decl_semantics(), dump_at_ntry(), parse_dir_directives(), parse_save_stmt(), and print_attr_f().

#define ATP_SYMMETRIC ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_SYMMETRIC", IDX))               \
                [IDX].fld.flag28

Definition at line 2633 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), parse_dir_directives(), and print_attr_f().

#define ATP_SYSTEM_MODULE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
         attr_aux_tbl : attr_aux_var_error("ATP_SYSTEM_MODULE", IDX))          \
              [IDX].fld.flag3

Definition at line 2642 of file sytb.m.

Referenced by dump_at_ntry(), and parse_dir_directives().

#define ATP_TASK_SHARED ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_TASK_SHARED", IDX))             \
                [IDX].fld.flag19

Definition at line 2651 of file sytb.m.

Referenced by call_list_semantics(), doall_cmic_semantics(), doall_end_semantics(), dump_at_ntry(), endparallel_cmic_semantics(), mp_directive_semantics(), open_mp_directive_semantics(), and parallel_cmic_semantics().

#define ATP_USE_LIST ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit &&                                     \
          attr_tbl[IDX].fld.secondary_info == Module) ?                        \
                attr_aux_tbl : attr_aux_var_error("ATP_USE_LIST", IDX))        \
                [IDX].fld.field2

Definition at line 2660 of file sytb.m.

Referenced by cvrt_exp_to_pdg(), dump_at_ntry(), make_ro_entry(), parse_use_stmt(), read_in_module_tbl(), rename_only_semantics(), and use_stmt_semantics().

#define ATP_USE_TYPE ( IDX )

Value:

(AT_OBJ_CLASS(IDX) == Pgm_Unit ?                                       \
                attr_tbl : sytb_var_error("ATP_USE_TYPE", IDX))                \
                [IDX].fld.field3

Definition at line 2670 of file sytb.m.

Referenced by cvrt_exp_to_pdg(), dump_at_ntry(), parse_use_stmt(), read_in_module_tbl(), and use_stmt_semantics().

#define ATP_USES_EREGS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_USES_EREGS", IDX))              \
                [IDX].fld.flag29

Definition at line 2679 of file sytb.m.

Referenced by cvrt_proc_to_pdg(), dump_at_ntry(), parse_dir_directives(), and print_attr_f().

#define ATP_VFUNCTION ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                attr_tbl : sytb_var_error("ATP_VFUNCTION", IDX))               \
                [IDX].fld.flag4

Definition at line 2688 of file sytb.m.

Referenced by attr_semantics(), call_list_semantics(), cif_send_attr(), dump_at_ntry(), fill_in_global_attr_ntry(), final_arg_work(), fnd_semantic_err(), global_name_semantics(), parse_vfunction_dir(), resolve_ext_opr(), and send_procedure().

#define ATS_SF_ACTIVE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Stmt_Func) ?                                    \
                attr_tbl : sytb_var_error("ATS_SF_ACTIVE", IDX))               \
                [IDX].fld.flag1

Definition at line 2713 of file sytb.m.

Referenced by dump_at_ntry(), stmt_func_call_opr_handler(), and stmt_func_semantics().

#define ATS_SF_FLD ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Stmt_Func) ?                                    \
                attr_tbl : sytb_var_error("ATS_SF_FLD", IDX))                  \
                [IDX].fld.secondary_info

Definition at line 2722 of file sytb.m.

Referenced by assign_new_idxs_after_input(), create_tmp_from_stmt_func(), dump_at_ntry(), expand_user_bound(), host_associated_attr_semantics(), parse_stmt_func_stmt(), set_mod_link_tbl_for_attr(), stmt_func_call_opr_handler(), stmt_func_semantics(), and update_idxs_in_attr_entry().

#define ATS_SF_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Stmt_Func) ?                                    \
                attr_tbl : sytb_var_error("ATS_SF_IDX", IDX))                  \
                [IDX].fld.field4

Definition at line 2731 of file sytb.m.

Referenced by assign_new_idxs_after_input(), create_tmp_from_stmt_func(), dump_at_ntry(), expand_user_bound(), host_associated_attr_semantics(), parse_stmt_func_stmt(), set_mod_link_tbl_for_attr(), stmt_func_call_opr_handler(), stmt_func_semantics(), and update_idxs_in_attr_entry().

#define ATS_SF_SEMANTICS_DONE ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Stmt_Func) ?                                    \
                attr_tbl : sytb_var_error("ATS_SF_SEMANTICS_DONE", IDX))       \
                [IDX].fld.flag2

Definition at line 2740 of file sytb.m.

Referenced by dump_at_ntry(), final_attr_semantics(), stmt_func_call_opr_handler(), and stmt_func_semantics().

#define ATT_ALIGNMENT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_ALIGNMENT", IDX))               \
                [IDX].fld.field8

Definition at line 2797 of file sytb.m.

Referenced by assign_offset(), dump_at_ntry(), end_type_blk(), gen_forall_derived_type(), parse_cpnt_dcl_stmt(), send_attr_ntry(), and send_derived_type().

#define ATT_CHAR_CPNT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_CHAR_CPNT", IDX))               \
                [IDX].fld.flag22

Definition at line 2806 of file sytb.m.

Referenced by attr_semantics(), dump_at_ntry(), end_type_blk(), final_attr_semantics(), and parse_cpnt_dcl_stmt().

#define ATT_CHAR_SEQ ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_CHAR_SEQ", IDX))                \
                [IDX].fld.flag20

Definition at line 2815 of file sytb.m.

Referenced by assign_offset(), assignment_stmt_semantics(), attr_semantics(), create_scalar_type_tbl(), create_strct_tbl(), create_tmp_asg(), cri_ptr_type(), determine_tmp_size(), dope_vector_setup(), dump_at_ntry(), end_type_blk(), equivalence_semantics(), final_arg_work(), flatten_function_call(), gen_auto_length(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_init_stmt(), gen_internal_dope_vector(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), interpret_constructor(), interpret_ref(), make_io_type_code(), namelist_static_dv_whole_def(), optimize_reshape(), send_attr_ntry(), send_derived_type(), set_stride_for_first_dim(), and transform_char_sequence_ref().

#define ATT_CIF_DT_ID ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_aux_tbl : attr_aux_var_error("ATT_CIF_DT_ID", IDX))       \
                [IDX].fld.field4

Definition at line 2824 of file sytb.m.

Referenced by cif_call_site_rec(), cif_send_attr(), dump_at_ntry(), and set_attr_flds_for_output().

#define ATT_DALIGN_ME ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_DALIGN_ME", IDX))               \
                [IDX].fld.flag24

Definition at line 2833 of file sytb.m.

Referenced by assign_offset(), dump_at_ntry(), and end_type_blk().

#define ATT_DCL_NUMERIC_SEQ ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_DCL_NUMERIC_SEQ", IDX))         \
                [IDX].fld.flag25

Definition at line 2842 of file sytb.m.

Referenced by assign_offset(), dump_at_ntry(), end_type_blk(), equivalence_semantics(), gen_forall_derived_type(), send_derived_type(), and set_up_pe_offset_attr().

#define ATT_DEFAULT_INITIALIZED ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_DEFAULT_INITIALIZED", IDX))     \
                [IDX].fld.flag29

Definition at line 2851 of file sytb.m.

Referenced by allocate_stmt_semantics(), attr_semantics(), dump_at_ntry(), equivalence_semantics(), flatten_function_call(), gen_default_init_code(), gen_entry_dope_code(), object_semantics(), parse_cpnt_dcl_stmt(), process_all_initialized_cpnts(), and process_cpnt_inits().

#define ATT_FIRST_CPNT_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_FIRST_CPNT_IDX", IDX))          \
                [IDX].fld.field10

Definition at line 2860 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_semantics(), chain_thru_sn_ntries(), cif_send_attr(), compare_derived_types(), compare_global_derived_type(), create_strct_tbl(), create_struct_constructor_asg(), determine_struct_tbl_size(), discombobulate_structure_ref(), dump_at_ntry(), end_type_blk(), fill_in_struct_argchck_const(), final_equivalence_semantics(), gen_bias_ref(), gen_forall_derived_type(), gen_forall_tmp(), interpret_struct_construct_opr(), not_visible_semantics(), ntr_global_type_tbl(), parse_access_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_sequence_stmt(), print_attr_f(), process_all_initialized_cpnts(), process_cpnt_inits(), resolve_all_components(), resolve_attr(), send_derived_type(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), struct_construct_opr_handler(), transform_char_sequence_ref(), update_components(), and update_idxs_in_attr_entry().

#define ATT_GLOBAL_TYPE_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_GLOBAL_TYPE_IDX", IDX))         \
                [IDX].fld.field6

Definition at line 2869 of file sytb.m.

Referenced by assign_new_idxs_after_input(), compare_global_derived_type(), dump_at_ntry(), fill_in_global_attr_ntry(), and ntr_global_type_tbl().

#define ATT_LABEL_LIST_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_aux_tbl : attr_aux_var_error("ATT_LABEL_LIST_IDX", IDX))  \
                [IDX].fld.field2

Definition at line 2878 of file sytb.m.

Referenced by attr_semantics(), check_for_dup_derived_type_lbl(), and dump_at_ntry().

#define ATT_NON_DEFAULT_CPNT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_NON_DEFAULT_CPNT", IDX))        \
                [IDX].fld.flag23

Definition at line 2887 of file sytb.m.

Referenced by dump_at_ntry(), equivalence_semantics(), and parse_cpnt_dcl_stmt().

#define ATT_NUM_CPNTS ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_NUM_CPNTS", IDX))               \
                [IDX].fld.field_m

Definition at line 2898 of file sytb.m.

Referenced by cif_send_attr(), compare_derived_types(), compare_global_derived_type(), create_strct_tbl(), determine_struct_tbl_size(), dump_at_ntry(), end_type_blk(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), gen_forall_derived_type(), ntr_global_type_tbl(), parse_cpnt_dcl_stmt(), print_attr_f(), send_derived_type(), set_up_pe_offset_attr(), and struct_construct_opr_handler().

#define ATT_NUMERIC_CPNT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_NUMERIC_CPNT", IDX))            \
                [IDX].fld.flag21

Definition at line 2907 of file sytb.m.

Referenced by dump_at_ntry(), end_type_blk(), final_equivalence_semantics(), gen_forall_derived_type(), parse_cpnt_dcl_stmt(), and set_up_pe_offset_attr().

#define ATT_POINTER_CPNT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_POINTER_CPNT", IDX))            \
                [IDX].fld.flag19

Definition at line 2916 of file sytb.m.

Referenced by allocate_stmt_semantics(), assign_storage_blk(), attr_semantics(), dump_at_ntry(), end_type_blk(), equivalence_semantics(), final_attr_semantics(), flatten_function_call(), gen_entry_dope_code(), gen_forall_derived_type(), io_list_semantics(), merge_parameter(), namelist_resolution(), parse_cpnt_dcl_stmt(), and process_cpnt_inits().

#define ATT_PRIVATE_CPNT ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_PRIVATE_CPNT", IDX))            \
                [IDX].fld.flag17

Definition at line 2925 of file sytb.m.

Referenced by attr_semantics(), cif_send_attr(), compare_derived_types(), compare_global_derived_type(), dump_at_ntry(), fill_in_global_attr_ntry(), io_list_semantics(), namelist_resolution(), parse_access_stmt(), parse_deref(), and struct_construct_opr_handler().

#define ATT_SCP_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_aux_tbl : attr_aux_var_error("ATT_SCP_IDX", IDX))         \
                [IDX].fld.field1

Definition at line 2934 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), dump_at_ntry(), gen_forall_derived_type(), get_basic_type(), parse_derived_type_stmt(), send_attr_ntry(), send_derived_type(), set_attr_flds_for_output(), and set_up_pe_offset_attr().

#define ATT_SEQUENCE_SET ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_SEQUENCE_SET", IDX))            \
                [IDX].fld.flag18

Definition at line 2943 of file sytb.m.

Referenced by attr_semantics(), cif_send_attr(), compare_derived_types(), compare_global_derived_type(), dump_at_ntry(), end_type_blk(), equivalence_semantics(), fill_in_global_attr_ntry(), gen_forall_derived_type(), parse_sequence_stmt(), send_derived_type(), and set_up_pe_offset_attr().

#define ATT_STRUCT_BIT_LEN_FLD ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_STRUCT_BIT_LEN_FLD", IDX))      \
                [IDX].fld2.field22

Definition at line 2952 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_offset(), create_runtime_array_constructor(), determine_tmp_size(), end_type_blk(), gen_common_dv_init(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_derived_type(), gen_sf_dv_whole_def(), ntr_const_tbl(), ntr_unshared_const_tbl(), parse_derived_type_stmt(), parse_type_spec(), set_mod_link_tbl_for_attr(), set_stride_for_first_dim(), set_up_pe_offset_attr(), sm_unit_in_bits(), stor_bit_size_of(), transform_char_sequence_ref(), translate_distant_ref2(), and update_idxs_in_attr_entry().

#define ATT_STRUCT_BIT_LEN_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_STRUCT_BIT_LEN_IDX", IDX))      \
                [IDX].fld.field13

Definition at line 2961 of file sytb.m.

Referenced by assign_new_idxs_after_input(), assign_offset(), broadcast_scalar(), compare_global_derived_type(), create_runtime_array_constructor(), determine_tmp_size(), dump_at_ntry(), end_type_blk(), fill_in_global_attr_ntry(), gen_common_dv_init(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_derived_type(), gen_internal_dope_vector(), gen_sf_dv_whole_def(), gen_static_dv_whole_def(), increment_count(), interpret_constructor(), interpret_ref(), interpret_struct_construct_opr(), namelist_static_dv_whole_def(), ntr_const_tbl(), ntr_unshared_const_tbl(), parse_derived_type_stmt(), parse_type_spec(), send_derived_type(), set_mod_link_tbl_for_attr(), set_stride_for_first_dim(), set_up_pe_offset_attr(), sm_unit_in_bits(), stor_bit_size_of(), transform_char_sequence_ref(), translate_distant_ref2(), and update_idxs_in_attr_entry().

#define ATT_TY_IDX ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("ATT_TY_IDX", IDX))               \
                [IDX].fld.field5

Definition at line 2787 of file sytb.m.

Referenced by parse_type_spec(), and send_attr_ntry().

#define ATT_UNIQUE_ID ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_aux_tbl : attr_aux_var_error("ATT_UNIQUE_ID", IDX))       \
                [IDX].fld.field3

Definition at line 2970 of file sytb.m.

Referenced by compare_derived_types(), and dump_at_ntry().

#define BD_ARRAY_CLASS ( IDX ) bounds_tbl[IDX].hdr.array_class

Definition at line 2998 of file sytb.m.

Referenced by array_bounds_resolution(), array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), call_list_semantics(), check_array_bounds(), check_bd_typ_for_dargs(), cif_send_attr(), compare_array_entries(), compare_darg_to_actual_arg(), compare_global_array(), compress_tbls(), create_alloc_descriptor(), create_bd_ntry_for_const(), create_format_tmp(), create_io_call_descriptor(), cvrt_exp_to_pdg(), decl_semantics(), determine_struct_tbl_size(), dope_vector_setup(), dump_bd_ntry(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_arg_work(), fnd_semantic_err(), gen_arg_type_descriptor(), gen_bd_entry(), gen_dv_access_low_bound(), gen_dv_whole_def(), gen_runtime_bounds(), gen_runtime_ptr_chk(), gen_whole_subscript(), generate_bounds_list(), get_dummy_arg_type(), get_type_desc(), global_name_semantics(), host_associated_attr_semantics(), init_parse_prog_unit(), init_whole_array(), interpret_struct_construct_opr(), io_ctl_list_semantics(), is_attr_referenced_in_bound(), make_base_assumed_size(), merge_dimension(), needs_bounds_check(), ntr_array_in_bd_tbl(), ntr_global_bounds_tbl(), open_mp_directive_semantics(), optimize_reshape(), parse_array_spec(), parse_common_stmt(), parse_cpnt_dcl_stmt(), parse_pe_array_spec(), parse_type_dcl_stmt(), pe_array_dim_resolution(), process_variable_size_func(), reshape_array_semantics(), resolve_ext_opr(), send_attr_ntry(), set_mod_link_tbl_for_bd(), set_shape_for_deferred_funcs(), set_up_bd_tmps(), stor_bit_size_of(), and subscript_opr_handler().

#define BD_ARRAY_SIZE ( IDX ) bounds_tbl[IDX].hdr.array_size

#define BD_CYCLIC_FLD	(	IDX,
		DIM
	)

Value:

((BD_DIST_NTRY(IDX)) ?                                                 \
                bounds_tbl : bd_var_error("BD_CYCLIC_FLD", IDX))               \
                [(IDX)+(DIM)].dist.cyclic_fld

Definition at line 3093 of file sytb.m.

Referenced by assign_new_idxs_after_input(), compress_tbls(), distribution_resolution(), dump_bd_ntry(), get_type_desc(), parse_distribution_dir(), and set_mod_link_tbl_for_bd().

#define BD_CYCLIC_IDX	(	IDX,
		DIM
	)

Value:

((BD_DIST_NTRY(IDX)) ?                                                 \
                bounds_tbl : bd_var_error("BD_CYCLIC_IDX", IDX))               \
                [(IDX)+(DIM)].dist.cyclic_idx

Definition at line 3102 of file sytb.m.

Referenced by assign_new_idxs_after_input(), compress_tbls(), distribution_resolution(), dump_bd_ntry(), get_type_desc(), parse_distribution_dir(), and set_mod_link_tbl_for_bd().

#define BD_DCL_ERR ( IDX ) bounds_tbl[IDX].hdr.error

Definition at line 3001 of file sytb.m.

Referenced by array_dim_resolution(), attr_semantics(), dump_bd_ntry(), is_attr_referenced_in_bound(), merge_dimension(), ntr_array_in_bd_tbl(), parse_array_spec(), parse_cpnt_dcl_stmt(), parse_distribution_dir(), parse_pe_array_spec(), and pe_array_dim_resolution().

#define BD_DEFERRED_1_IDX 1 /* Deferred shape - rank 1 */

Definition at line 48 of file sytb.m.

Referenced by create_runtime_array_constructor(), init_compiler(), init_parse_prog_unit(), and reshape_intrinsic().

#define BD_DEFERRED_2_IDX 2 /* Deferred shape - rank 2 */

Definition at line 49 of file sytb.m.

Referenced by reshape_intrinsic().

#define BD_DEFERRED_3_IDX 3 /* Deferred shape - rank 3 */

Definition at line 50 of file sytb.m.

Referenced by reshape_intrinsic().

#define BD_DEFERRED_4_IDX 4 /* Deferred shape - rank 4 */

Definition at line 51 of file sytb.m.

Referenced by reshape_intrinsic().

#define BD_DEFERRED_5_IDX 5 /* Deferred shape - rank 5 */

Definition at line 52 of file sytb.m.

Referenced by reshape_intrinsic().

#define BD_DEFERRED_6_IDX 6 /* Deferred shape - rank 6 */

Definition at line 53 of file sytb.m.

Referenced by reshape_intrinsic().

#define BD_DEFERRED_7_IDX 7 /* Deferred shape - rank 7 */

Definition at line 54 of file sytb.m.

Referenced by init_compiler(), init_parse_prog_unit(), and reshape_intrinsic().

#define BD_DIST_NTRY ( IDX ) bounds_tbl[IDX].hdr.dist_ntry

Definition at line 3002 of file sytb.m.

Referenced by assign_new_idxs_after_input(), compress_tbls(), dump_bd_ntry(), parse_distribution_dir(), and set_mod_link_tbl_for_bd().

#define BD_DISTRIBUTE_RESHAPE ( IDX ) bounds_tbl[IDX].hdr.dist_reshape

Definition at line 3003 of file sytb.m.

Referenced by dump_bd_ntry(), get_type_desc(), and parse_distribution_dir().

#define BD_DISTRIBUTION	(	IDX,
		DIM
	)

Value:

((BD_DIST_NTRY(IDX)) ?                                                 \
                bounds_tbl : bd_var_error("BD_DISTRIBUTION", IDX))             \
                [(IDX)+(DIM)].dist.distribution

Definition at line 3129 of file sytb.m.

Referenced by dump_bd_ntry(), get_type_desc(), and parse_distribution_dir().

#define BD_FLOW_DEPENDENT ( IDX ) bounds_tbl[IDX].hdr.flow_dep

Definition at line 3013 of file sytb.m.

Referenced by create_runtime_array_constructor(), gen_bd_entry(), gen_forall_tmp_bd_entry(), get_type_desc(), make_new_bd_entries(), and set_up_bd_tmps().

#define BD_FREE_LIST_IDX NULL_IDX /* Bounds table free list */

Definition at line 43 of file sytb.m.

Referenced by collapse_interface_blk(), ntr_array_in_bd_tbl(), output_mod_info_file(), print_bd_tbl(), reserve_array_ntry(), and use_stmt_semantics().

#define BD_GLOBAL_IDX ( IDX ) bounds_tbl[IDX].hdr.global_idx

Definition at line 3004 of file sytb.m.

Referenced by assign_new_idxs_after_input(), compare_global_array(), dump_bd_ntry(), init_parse_prog_unit(), and ntr_global_bounds_tbl().

#define BD_LAST_USED_IDX 7 /* last reserved index */

Definition at line 298 of file sytb.m.

Referenced by init_parse_prog_unit().

#define BD_LB_FLD	(	IDX,
		DIM
	)

Value:

((!BD_DIST_NTRY(IDX)) ?                                                \
                bounds_tbl : bd_var_error("BD_LB_FLD", IDX))                   \
                [(IDX)+(DIM)].dim.lb_fld

Definition at line 3019 of file sytb.m.

Referenced by array_bounds_resolution(), array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), check_actual_and_dummy(), check_array_bounds(), check_bd_typ_for_dargs(), cif_call_site_rec(), cif_send_attr(), compare_array_entries(), compress_tbls(), create_alloc_descriptor(), create_bd_ntry_for_const(), create_constructor_constant(), create_format_tmp(), create_io_call_descriptor(), create_runtime_array_constructor(), cvrt_exp_to_pdg(), determine_lb_ub(), dope_vector_setup(), dump_bd_ntry(), fold_aggragate_expression(), gen_bd_entry(), gen_dv_access_low_bound(), gen_dv_whole_def(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_lb_array_ref(), gen_runtime_bounds(), gen_sf_dv_whole_def(), gen_whole_subscript(), generate_bounds_list(), get_type_desc(), host_associated_attr_semantics(), init_whole_array(), insert_init_stmt_for_tmp(), is_attr_referenced_in_bound(), lbound_intrinsic(), linearize_list_for_equiv(), linearize_pe_dims(), make_base_assumed_size(), make_new_bd_entries(), merge_dimension(), needs_bounds_check(), ntr_global_bounds_tbl(), parse_array_spec(), parse_cpnt_dcl_stmt(), parse_pe_array_spec(), pe_array_dim_resolution(), process_cpnt_inits(), set_mod_link_tbl_for_bd(), set_shape_for_deferred_funcs(), set_up_bd_tmps(), srch_for_calls(), subscript_opr_handler(), and transform_char_sequence_ref().

#define BD_LB_IDX	(	IDX,
		DIM
	)

Value:

((!BD_DIST_NTRY(IDX)) ?                                                \
                bounds_tbl : bd_var_error("BD_LB_IDX", IDX))                   \
                [(IDX)+(DIM)].dim.lb_idx

Definition at line 3028 of file sytb.m.

Referenced by allocate_stmt_semantics(), array_bounds_resolution(), array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), check_actual_and_dummy(), check_array_bounds(), check_bd_typ_for_dargs(), cif_call_site_rec(), cif_send_attr(), compare_array_entries(), compare_global_array(), compress_tbls(), create_alloc_descriptor(), create_bd_ntry_for_const(), create_constructor_constant(), create_format_tmp(), create_io_call_descriptor(), create_runtime_array_constructor(), cvrt_exp_to_pdg(), determine_lb_ub(), dope_vector_setup(), dump_bd_ntry(), fill_in_struct_argchck_const(), fold_aggragate_expression(), fold_all_subscripts(), gen_bd_entry(), gen_dv_access_low_bound(), gen_dv_whole_def(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_lb_array_ref(), gen_runtime_bounds(), gen_sf_dv_whole_def(), gen_whole_subscript(), generate_bounds_list(), get_type_desc(), host_associated_attr_semantics(), imp_do_metamorphed(), init_whole_array(), insert_init_stmt_for_tmp(), interpret_ref(), is_attr_referenced_in_bound(), lbound_intrinsic(), linearize_list_for_equiv(), linearize_pe_dims(), make_base_assumed_size(), make_new_bd_entries(), merge_dimension(), namelist_static_dv_whole_def(), needs_bounds_check(), ntr_global_bounds_tbl(), parse_array_spec(), parse_cpnt_dcl_stmt(), parse_pe_array_spec(), pe_array_dim_resolution(), process_cpnt_inits(), section_semantics(), set_mod_link_tbl_for_bd(), set_shape_for_deferred_funcs(), set_up_bd_tmps(), srch_for_calls(), subscript_opr_handler(), and transform_char_sequence_ref().

#define BD_LEN_IDX ( IDX ) bounds_tbl[IDX].hdr.len_idx

#define BD_NEXT_FREE_NTRY ( IDX ) bounds_tbl[IDX].hdr.next_free_ntry

Definition at line 3008 of file sytb.m.

Referenced by collapse_interface_blk(), compress_tbls(), dump_bd_ntry(), ntr_array_in_bd_tbl(), output_mod_info_file(), print_bd_tbl(), reserve_array_ntry(), and use_stmt_semantics().

#define BD_NTRY_SIZE ( IDX ) bounds_tbl[IDX].hdr.ntry_size

Definition at line 3009 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_bd_ntry(), init_parse_prog_unit(), ntr_array_in_bd_tbl(), print_bd_tbl(), and reserve_array_ntry().

#define BD_ONTO_FLD	(	IDX,
		DIM
	)

Value:

((BD_DIST_NTRY(IDX)) ?                                                 \
                bounds_tbl : bd_var_error("BD_ONTO_FLD", IDX))                 \
                [(IDX)+(DIM)].dist.onto_fld

Definition at line 3111 of file sytb.m.

Referenced by assign_new_idxs_after_input(), compress_tbls(), distribution_resolution(), dump_bd_ntry(), get_type_desc(), parse_distribution_dir(), and set_mod_link_tbl_for_bd().

#define BD_ONTO_IDX	(	IDX,
		DIM
	)

Value:

((BD_DIST_NTRY(IDX)) ?                                                 \
                bounds_tbl : bd_var_error("BD_ONTO_IDX", IDX))                 \
                [(IDX)+(DIM)].dist.onto_idx

Definition at line 3120 of file sytb.m.

Referenced by assign_new_idxs_after_input(), compress_tbls(), distribution_resolution(), dump_bd_ntry(), get_type_desc(), parse_distribution_dir(), and set_mod_link_tbl_for_bd().

#define BD_RANK ( IDX ) bounds_tbl[IDX].hdr.rank

Definition at line 3010 of file sytb.m.

Referenced by alloc_obj_opr_handler(), allocate_stmt_semantics(), array_bounds_resolution(), array_dim_resolution(), assign_new_idxs_after_input(), attr_init_semantics(), attr_semantics(), call_list_semantics(), check_actual_and_dummy(), check_array_bounds(), check_bd_typ_for_dargs(), check_where_conformance(), cif_send_attr(), compare_array_entries(), compare_darg_or_rslt_types(), compare_darg_to_actual_arg(), compare_duplicate_interface_bodies(), compare_func_result(), compare_global_array(), compare_global_type_rank(), compress_tbls(), copy_sbtree(), create_alloc_descriptor(), create_bd_ntry_for_const(), create_constructor_constant(), create_format_tmp(), create_io_call_descriptor(), create_runtime_array_constructor(), cvrt_exp_to_pdg(), determine_struct_tbl_size(), distribution_resolution(), dump_bd_ntry(), equivalence_semantics(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_arg_work(), flatten_function_call(), fold_aggragate_expression(), gen_allocatable_ptr_ptee(), gen_arg_type_descriptor(), gen_assumed_shape_copy(), gen_bd_entry(), gen_call_type_descriptor(), gen_common_dv_init(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_lb_array_ref(), gen_runtime_bounds(), gen_sf_dv_whole_def(), gen_static_dv_whole_def(), gen_whole_subscript(), generate_bounds_list(), get_type_desc(), global_name_semantics(), host_associated_attr_semantics(), init_parse_prog_unit(), init_whole_array(), insert_init_stmt_for_tmp(), interpret_ref(), interpret_struct_construct_opr(), is_attr_referenced_in_bound(), lbound_intrinsic(), linearize_pe_dims(), make_base_assumed_size(), make_new_bd_entries(), matmul_intrinsic(), merge_dimension(), merge_parameter(), namelist_static_dv_whole_def(), needs_bounds_check(), ntr_array_in_bd_tbl(), ntr_global_bounds_tbl(), num_images_intrinsic(), parse_array_spec(), parse_cpnt_dcl_stmt(), parse_deref(), parse_distribution_dir(), parse_pe_array_spec(), parse_type_dcl_stmt(), pe_array_dim_resolution(), process_cpnt_inits(), process_variable_size_func(), reshape_array_semantics(), resolve_ext_opr(), set_mod_link_tbl_for_bd(), set_shape_for_deferred_funcs(), set_up_bd_tmps(), size_intrinsic(), srch_for_calls(), stor_bit_size_of(), struct_construct_opr_handler(), subscript_opr_handler(), transform_char_sequence_ref(), translate_distant_dv_ref(), translate_distant_ref1(), translate_distant_ref2(), ubound_intrinsic(), and verify_interface().

#define BD_RESOLVED ( IDX ) bounds_tbl[IDX].hdr.resolved

#define BD_SM_FLD	(	IDX,
		DIM
	)

Value:

((!BD_DIST_NTRY(IDX)) ?                                                \
                bounds_tbl : bd_var_error("BD_SM_FLD", IDX))                   \
                [(IDX)+(DIM)].dim.sm_fld

Definition at line 3046 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), compress_tbls(), create_alloc_descriptor(), create_bd_ntry_for_const(), create_format_tmp(), create_io_call_descriptor(), create_runtime_array_constructor(), cvrt_exp_to_pdg(), dump_bd_ntry(), gen_auto_length(), gen_bd_entry(), gen_dv_stride_mult(), gen_forall_tmp_bd_entry(), gen_sf_dv_whole_def(), host_associated_attr_semantics(), init_whole_array(), linearize_list_for_equiv(), linearize_pe_dims(), make_new_bd_entries(), pe_array_dim_resolution(), set_mod_link_tbl_for_bd(), and set_up_bd_tmps().

#define BD_SM_IDX	(	IDX,
		DIM
	)

Value:

((!BD_DIST_NTRY(IDX)) ?                                                \
                bounds_tbl : bd_var_error("BD_SM_IDX", IDX))                   \
                [(IDX)+(DIM)].dim.sm_idx

Definition at line 3037 of file sytb.m.

Referenced by allocate_stmt_semantics(), array_dim_resolution(), assign_new_idxs_after_input(), compress_tbls(), create_alloc_descriptor(), create_bd_ntry_for_const(), create_format_tmp(), create_io_call_descriptor(), create_runtime_array_constructor(), cvrt_exp_to_pdg(), dump_bd_ntry(), gen_auto_length(), gen_bd_entry(), gen_dv_stride_mult(), gen_forall_tmp_bd_entry(), gen_init_stmt(), gen_internal_dope_vector(), gen_sf_dv_whole_def(), host_associated_attr_semantics(), init_whole_array(), interpret_ref(), linearize_list_for_equiv(), linearize_pe_dims(), make_new_bd_entries(), namelist_static_dv_whole_def(), pe_array_dim_resolution(), set_mod_link_tbl_for_bd(), and set_up_bd_tmps().

#define BD_UB_FLD	(	IDX,
		DIM
	)

Value:

((!BD_DIST_NTRY(IDX)) ?                                                \
                bounds_tbl : bd_var_error("BD_UB_FLD", IDX))                   \
                [(IDX)+(DIM)].dim.ub_fld

Definition at line 3055 of file sytb.m.

Referenced by array_bounds_resolution(), array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), check_actual_and_dummy(), check_array_bounds(), check_bd_typ_for_dargs(), cif_call_site_rec(), cif_send_attr(), compare_array_entries(), compress_tbls(), create_alloc_descriptor(), create_bd_ntry_for_const(), create_format_tmp(), create_io_call_descriptor(), create_runtime_array_constructor(), determine_lb_ub(), dump_bd_ntry(), gen_bd_entry(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_runtime_bounds(), gen_whole_subscript(), generate_bounds_list(), get_type_desc(), host_associated_attr_semantics(), init_whole_array(), is_attr_referenced_in_bound(), make_new_bd_entries(), merge_dimension(), needs_bounds_check(), ntr_global_bounds_tbl(), parse_array_spec(), parse_cpnt_dcl_stmt(), parse_pe_array_spec(), pe_array_dim_resolution(), set_mod_link_tbl_for_bd(), set_shape_for_deferred_funcs(), set_up_bd_tmps(), subscript_opr_handler(), and ubound_intrinsic().

#define BD_UB_IDX	(	IDX,
		DIM
	)

Value:

((!BD_DIST_NTRY(IDX)) ?                                                \
                bounds_tbl : bd_var_error("BD_UB_IDX", IDX))                   \
                [(IDX)+(DIM)].dim.ub_idx

Definition at line 3064 of file sytb.m.

Referenced by allocate_stmt_semantics(), array_bounds_resolution(), array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), check_actual_and_dummy(), check_array_bounds(), check_bd_typ_for_dargs(), cif_call_site_rec(), cif_send_attr(), compare_array_entries(), compare_global_array(), compress_tbls(), create_alloc_descriptor(), create_bd_ntry_for_const(), create_format_tmp(), create_io_call_descriptor(), create_runtime_array_constructor(), determine_lb_ub(), dump_bd_ntry(), fold_all_subscripts(), gen_bd_entry(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_runtime_bounds(), gen_whole_subscript(), generate_bounds_list(), get_type_desc(), host_associated_attr_semantics(), imp_do_metamorphed(), init_whole_array(), is_attr_referenced_in_bound(), make_new_bd_entries(), merge_dimension(), needs_bounds_check(), ntr_global_bounds_tbl(), parse_array_spec(), parse_cpnt_dcl_stmt(), parse_pe_array_spec(), pe_array_dim_resolution(), section_semantics(), set_mod_link_tbl_for_bd(), set_shape_for_deferred_funcs(), set_up_bd_tmps(), subscript_opr_handler(), and ubound_intrinsic().

#define BD_USED_NTRY ( IDX ) bounds_tbl[IDX].hdr.used_ntry

Definition at line 3012 of file sytb.m.

Referenced by compress_tbls(), dump_bd_ntry(), init_parse_prog_unit(), ntr_array_in_bd_tbl(), and reserve_array_ntry().

#define BD_XT_FLD	(	IDX,
		DIM
	)

Value:

((!BD_DIST_NTRY(IDX)) ?                                                \
                bounds_tbl : bd_var_error("BD_XT_FLD", IDX))                   \
                [(IDX)+(DIM)].dim.xt_fld

Definition at line 3073 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), check_where_conformance(), compress_tbls(), copy_sbtree(), create_alloc_descriptor(), create_bd_ntry_for_const(), create_constructor_constant(), create_format_tmp(), create_io_call_descriptor(), create_runtime_array_constructor(), cvrt_exp_to_pdg(), dump_bd_ntry(), fold_aggragate_expression(), gen_bd_entry(), gen_forall_tmp_bd_entry(), gen_sf_dv_whole_def(), gen_whole_subscript(), get_shape_from_attr(), get_type_desc(), host_associated_attr_semantics(), init_whole_array(), lbound_intrinsic(), make_new_bd_entries(), optimize_whole_array_init(), pe_array_dim_resolution(), process_variable_size_func(), set_mod_link_tbl_for_bd(), set_up_bd_tmps(), size_intrinsic(), and ubound_intrinsic().

#define BD_XT_IDX	(	IDX,
		DIM
	)

Value:

((!BD_DIST_NTRY(IDX)) ?                                                \
                bounds_tbl : bd_var_error("BD_XT_IDX", IDX))                   \
                [(IDX)+(DIM)].dim.xt_idx

Definition at line 3082 of file sytb.m.

Referenced by allocate_stmt_semantics(), array_dim_resolution(), assign_new_idxs_after_input(), attr_init_semantics(), check_where_conformance(), compress_tbls(), copy_sbtree(), create_alloc_descriptor(), create_bd_ntry_for_const(), create_constructor_constant(), create_format_tmp(), create_io_call_descriptor(), create_runtime_array_constructor(), cvrt_exp_to_pdg(), dump_bd_ntry(), fill_in_struct_argchck_const(), fold_aggragate_expression(), gen_assumed_shape_copy(), gen_bd_entry(), gen_forall_tmp_bd_entry(), gen_internal_dope_vector(), gen_sf_dv_whole_def(), gen_whole_subscript(), get_shape_from_attr(), get_type_desc(), host_associated_attr_semantics(), init_whole_array(), interpret_struct_construct_opr(), lbound_intrinsic(), make_new_bd_entries(), merge_parameter(), namelist_static_dv_whole_def(), optimize_whole_array_init(), pe_array_dim_resolution(), process_variable_size_func(), section_semantics(), set_mod_link_tbl_for_bd(), set_up_bd_tmps(), size_intrinsic(), and ubound_intrinsic().

#define BITS_TO_WORDS	(	BIT_SIZE,
		ALIGN_TO
	)

Value:

bits_and_bytes_to_words(&(BIT_SIZE), (ALIGN_TO == 64) ? 63:31,         \
                                (ALIGN_TO == 64) ? 6 : 5);

Definition at line 4574 of file sytb.m.

Referenced by calculate_pad(), create_runtime_array_constructor(), determine_tmp_size(), ntr_const_tbl(), ntr_unshared_const_tbl(), and set_stride_for_first_dim().

#define BYTES_TO_WORDS	(	BIT_SIZE,
		ALIGN_TO
	)

Value:

bits_and_bytes_to_words(&(BIT_SIZE), (ALIGN_TO == 64) ? 7:3,           \
                                (ALIGN_TO == 64) ? 3 : 2);

Definition at line 4578 of file sytb.m.

Referenced by set_mod_link_tbl_for_cn().

#define C_INT_TO_CN	(	TYPE_IDX,
		CONST
	)	ntr_int_const_tbl(TYPE_IDX, (long64) (CONST))

Definition at line 4642 of file sytb.m.

Referenced by adjust_char_value_len(), align_bit_length(), attr_semantics(), bit_size_intrinsic(), bits_and_bytes_to_words(), btest_intrinsic(), calculate_iteration_count(), cc_get_token(), change_section_to_this_element(), char_len_resolution(), clock_intrinsic(), compute_char_element_len(), copy_text_for_expansion(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_io_call_descriptor(), create_kwd_text(), create_namelist_descriptor(), create_runtime_array_constructor(), create_scalar_type_tbl(), create_strct_tbl(), cshift_intrinsic(), cvrt_exp_to_pdg(), data_imp_do_semantics(), data_stmt_semantics(), determine_slice_size(), determine_tmp_size(), digits_intrinsic(), dim_intrinsic(), directive_stmt_semantics(), dshiftl_intrinsic(), dsm_numthreads_intrinsic(), encode_decode_stmt_semantics(), end_select_blk(), eoshift_intrinsic(), final_arg_work(), flatten_function_call(), fold_aggragate_expression(), folder_driver(), gen_arg_type_descriptor(), gen_auto_length(), gen_bounds_check_call(), gen_call_type_descriptor(), gen_common_dv_init(), gen_conform_check_call(), gen_darg_branch_test(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_init_stmt(), gen_ptr_chk_call(), gen_rbounds_check_call(), gen_sbounds_check_call(), gen_section_ref(), gen_sf_dv_whole_def(), gen_static_dv_whole_def(), gen_static_integer_array_tmp(), get_operand_quote(), huge_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), imp_do_metamorphed(), init_const_tbl(), init_directive(), init_parse_prog_unit(), init_whole_array(), inquire_stmt_semantics(), insert_init_stmt_for_tmp(), interpret_adjustl_intrinsic(), interpret_array_construct_opr(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_implied_do(), interpret_index_opr(), interpret_ref(), interpret_reshape_intrinsic(), interpret_shape_intrinsic(), interpret_transfer_intrinsic(), interpret_ubound_intrinsic(), interpret_unary_intrinsic_opr(), io_ctl_list_semantics(), ishft_intrinsic(), ishftc_intrinsic(), kind_intrinsic(), lbound_intrinsic(), maxexponent_intrinsic(), minexponent_intrinsic(), minval_intrinsic(), mvbits_intrinsic(), nearest_intrinsic(), not_intrinsic(), ntr_io_string_constant(), optimize_whole_array_init(), parse_assert_directive(), parse_cc_operand(), parse_dir_directives(), parse_doall_cmic(), parse_dollar_directives(), parse_doparallel_cmic(), parse_fill_align_symbol(), parse_mp_directive(), parse_open_mp_clauses(), parse_open_mp_directives(), parse_openad_directives(), parse_permutation_mic(), precision_intrinsic(), process_blockable_dir(), process_deferred_io_list(), process_interchange_dir(), put_c_str_in_cn(), put_char_const_in_tbl(), put_format_in_tbl(), put_string_in_tmp(), radix_intrinsic(), random_seed_intrinsic(), range_intrinsic(), reshape_intrinsic(), rrspacing_intrinsic(), section_semantics(), selected_int_kind_intrinsic(), set_directives_on_label(), set_stride_for_first_dim(), set_up_pe_offset_attr(), set_up_which_entry_tmp(), shape_intrinsic(), shift_intrinsic(), size_intrinsic(), sizeof_intrinsic(), spacing_intrinsic(), stop_pause_stmt_semantics(), test_size_stmts(), transfer_intrinsic(), translate_distant_ref2(), ubound_intrinsic(), and wait_send_semantics().

#define C_TO_F_INT	(	ARRAY,
		CONST,
		LIN_TYPE
	)

Value:

{                                                                      \
        long64   _con;                                                         \
        _con = (long64) CONST;                                                 \
        cval_to_f_int(ARRAY, &_con, LIN_TYPE);                                 \
        }

Definition at line 4666 of file sytb.m.

Referenced by align_bit_length(), assign_offset(), assign_storage_blk(), bits_and_bytes_to_words(), calculate_pad(), check_and_allocate_common_storage(), cif_named_constant_rec(), compare_cn_and_value(), convert_cval_to_string(), determine_tmp_size(), fill_in_struct_argchck_const(), final_equivalence_semantics(), folder_driver(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_init_stmt(), interpret_data_imp_do(), interpret_sik_intrinsic(), interpret_size_intrinsic(), interpret_ubound_intrinsic(), interpret_unary_intrinsic_opr(), linearize_list_for_equiv(), stor_bit_size_of(), storage_blk_resolution(), and wait_send_semantics().

#define CLEAR_ATTR_NTRY ( IDX )

Value:

CLEAR_TBL_NTRY(attr_tbl, IDX);                                         \
        CLEAR_TBL_NTRY(attr_aux_tbl, IDX);

Definition at line 4178 of file sytb.m.

Referenced by parse_elemental_stmt(), parse_pure_stmt(), parse_recursive_stmt(), parse_type_dcl_stmt(), parse_type_spec(), and set_function_rslt().

#define CLEAR_TBL_NTRY	(	TBL,
		IDX
	)

Value:

{                                                                      \
         long   *_tbl_idx;                                                     \
         int     _tbl_i;                                                       \
         int     _size;                                                        \
         _tbl_idx       = ((long *) (&TBL[IDX]));                              \
         _size          = TBL##_num_wds;                                       \
         Pragma("_CRI shortloop")                                              \
         for (_tbl_i = 0; _tbl_i < _size; _tbl_i++) {                          \
            *(_tbl_idx) = 0;                                                   \
            _tbl_idx++;                                                        \
         }                                                                     \
        }

Definition at line 4182 of file sytb.m.

Referenced by adjust_char_value_len(), assign_new_idxs(), assign_new_idxs_after_input(), attr_semantics(), clock_intrinsic(), compress_tbls(), concat_opr_handler(), convert_binary_literal(), convert_const(), convert_hex_literal(), convert_octal_literal(), create_constructor_constant(), create_format_tmp(), create_hidden_name_tbl(), create_kwd_text(), create_mod_info_file(), create_runtime_array_constructor(), create_struct_argchck_tbl(), cri_ptr_type(), final_arg_work(), final_attr_semantics(), finish_cdir_id(), fold_aggragate_expression(), folder_driver(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_forall_derived_type(), gen_static_dv_whole_def(), get_operand_quote(), init_compiler(), init_cond_comp(), init_directive(), init_name_and_stor_tbls(), init_parse_prog_unit(), insert_constant(), insert_unordered_constant(), interpret_adjustl_intrinsic(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_index_opr(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), interpret_unary_intrinsic_opr(), kind_to_linear_type(), lbound_intrinsic(), loc_intrinsic(), make_new_bd_entries(), make_ro_entry(), match_blk(), merge_parameter(), namelist_static_dv_whole_def(), ntr_attr_list_tbl(), ntr_boolean_const_tbl(), ntr_boz_const_tbl(), ntr_cc_sym_tbl(), ntr_common_in_global_attr_tbl(), ntr_const_tbl(), ntr_file_in_fp_tbl(), ntr_gl_ir_list_tbl(), ntr_gl_ir_tbl(), ntr_gl_sh_tbl(), ntr_global_attr_tbl(), ntr_global_name_tbl(), ntr_hidden_name_tbl(), ntr_host_in_sym_tbl(), ntr_io_string_constant(), ntr_ir_list_tbl(), ntr_ir_tbl(), ntr_msg_queue(), ntr_next_msg_queue(), ntr_ref_in_global_tbl(), ntr_sh_tbl(), ntr_stor_blk_tbl(), ntr_sym_tbl(), ntr_unshared_const_tbl(), open_include_file(), parse_cpnt_dcl_stmt(), parse_dir_directives(), parse_length_selector(), parse_open_mp_directives(), parse_openad_directives(), parse_operand(), parse_pointer_stmt(), parse_prog_unit(), parse_type_spec(), pre_parse_format(), push_data_value(), put_c_str_in_cn(), put_char_const_in_tbl(), put_format_in_tbl(), put_string_in_tmp(), rename_only_semantics(), reshape_intrinsic(), send_attr_ntry(), send_mod_file_name(), set_sb_first_attr_idx(), set_up_pe_offset_attr(), shape_intrinsic(), srch_for_calls(), srch_for_module_tbl(), stop_pause_stmt_semantics(), struct_construct_opr_handler(), substring_opr_handler(), transfer_intrinsic(), transform_char_sequence_ref(), ubound_intrinsic(), update_intrinsic(), and validate_char_len().

#define CLEAR_VARIANT_ATTR_INFO	(	IDX,
		CLASS
	)

Value:

{attr_tbl[(IDX)].wd[5]          = 0;                                   \
         attr_tbl[(IDX)].wd[6]          = 0;                                   \
         attr_tbl[(IDX)].wd[7]          = 0;                                   \
         attr_tbl[(IDX)].wd[8]          = 0;                                   \
         attr_tbl[(IDX)].wd[9]          = 0;                                   \
         attr_tbl[(IDX)].wd[10]         = 0;                                   \
         attr_tbl[(IDX)].wd[11]         = 0;                                   \
         attr_tbl[(IDX)].wd[12]         = 0;                                   \
         attr_tbl[(IDX)].wd[13]         = 0;                                   \
         AT_OBJ_CLASS(IDX)              = CLASS;                               \
         attr_aux_tbl[(IDX)].wd[2]      = 0;                                   \
         attr_aux_tbl[(IDX)].wd[3]      = 0;                                   \
         attr_aux_tbl[(IDX)].wd[4]      = 0;                                   \
         attr_aux_tbl[(IDX)].wd[5]      = 0;                                   \
        }

Definition at line 4344 of file sytb.m.

Referenced by bound_semantics(), chg_data_obj_to_pgm_unit(), expand_user_bound(), final_attr_semantics(), generic_spec_semantics(), parse_derived_type_stmt(), parse_dummy_args(), parse_module_stmt(), parse_type_spec(), send_mod_file_name(), and start_new_subpgm().

#define CN_BALANCE_FACTOR ( IDX ) const_tbl[IDX].balance_factor

Definition at line 3152 of file sytb.m.

Referenced by insert_constant().

#define CN_BOOLEAN_CONSTANT ( IDX ) const_tbl[IDX].boolean_constant

Definition at line 3143 of file sytb.m.

Referenced by cast_typeless_constant(), constant_value_semantics(), dump_cn_ntry(), insert_unordered_constant(), and ntr_boolean_const_tbl().

#define CN_BOZ_CONSTANT ( IDX ) const_tbl[IDX].boz_constant

Definition at line 3142 of file sytb.m.

Referenced by case_stmt_semantics(), case_value_range_semantics(), cast_typeless_constant(), check_target_and_value(), constant_value_semantics(), dump_cn_ntry(), insert_unordered_constant(), ntr_boz_const_tbl(), and uplus_opr_handler().

#define CN_CONST ( IDX ) const_pool[CN_POOL_IDX(IDX)]

Definition at line 3148 of file sytb.m.

Referenced by abs_intrinsic(), adjust_char_value_len(), adjustl_intrinsic(), align_bit_length(), and_opr_handler(), arith_if_stmt_semantics(), array_construct_semantics(), assign_new_idxs(), bits_and_bytes_to_words(), broadcast_scalar(), calculate_iteration_count(), call_list_semantics(), case_stmt_semantics(), cast_to_cg_default(), cast_to_type_idx(), chain_thru_sn_ntries(), char_intrinsic(), check_array_bounds(), check_target_and_value(), cif_call_site_rec(), cif_named_constant_rec(), cif_send_attr(), cif_send_sytb(), compare_array_entries(), compare_cn_and_value(), compare_global_array(), compare_global_derived_type(), compare_value_to_cn(), concat_opr_handler(), const_init_semantics(), convert_hex_literal(), convert_to_do_var_type(), copy_sbtree(), create_scalar_type_tbl(), csmg_intrinsic(), cvrt_exp_to_pdg(), cvrt_opr_handler(), dim_intrinsic(), dump_at_ntry(), dump_cn_tree(), emit_format_msg(), eoshift_intrinsic(), eq_opr_handler(), equivalence_semantics(), fill_in_struct_argchck_const(), final_arg_work(), fold_aggragate_expression(), fold_relationals(), folder_driver(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_init_stmt(), gen_internal_dope_vector(), gen_loop_end_ir(), gen_static_dv_whole_def(), get_operand_quote(), ichar_intrinsic(), imp_do_metamorphed(), index_intrinsic(), insert_constant(), int_intrinsic(), interpret_constructor(), interpret_data_imp_do(), interpret_implied_do(), interpret_ref(), interpret_size_intrinsic(), interpret_ubound_intrinsic(), io_list_semantics(), len_trim_intrinsic(), lg_opr_handler(), lge_intrinsic(), lt_opr_handler(), mask_intrinsic(), max_intrinsic(), merge_parameter(), mergee_intrinsic(), minus_opr_handler(), mod_intrinsic(), modulo_intrinsic(), mpp_cn_int_to_c(), mult_opr_handler(), namelist_static_dv_whole_def(), nint_intrinsic(), not_opr_handler(), ntr_const_tbl(), ntr_io_string_constant(), ntr_ref_in_global_tbl(), ntr_unshared_const_tbl(), outmoded_if_stmt_semantics(), parse_io_control_list(), parse_name_dir(), parse_open_mp_directives(), parse_openad_directives(), parse_operand(), plus_opr_handler(), power_opr_handler(), pre_parse_format(), print_attr_name(), print_const_entry(), print_const_f(), print_expanded_const(), print_fld_idx(), print_type_f(), push_data_value(), put_char_const_in_tbl(), put_format_in_tbl(), repeat_intrinsic(), selected_int_kind_intrinsic(), selected_real_kind_intrinsic(), send_attr_ntry(), send_label(), send_label_def(), shape_intrinsic(), shift_intrinsic(), sign_intrinsic(), size_offset_binary_calc(), size_offset_logical_calc(), size_offset_min_max_calc(), stop_pause_stmt_semantics(), substring_opr_handler(), transfer_intrinsic(), translate_distant_ref2(), trim_intrinsic(), update_fld_type(), uplus_opr_handler(), wait_send_semantics(), and write_constant().

#define CN_EXTRA_ZERO_WORD ( IDX ) const_tbl[IDX].extra_zero_word

Definition at line 3146 of file sytb.m.

Referenced by assign_new_idxs(), create_format_tmp(), dump_cn_ntry(), ntr_const_tbl(), ntr_unshared_const_tbl(), and set_mod_link_tbl_for_cn().

#define CN_HOLLERITH_ENDIAN ( IDX ) const_tbl[IDX].hollerith_endian

Definition at line 3144 of file sytb.m.

Referenced by dump_cn_ntry(), get_operand_digit(), and get_operand_quote().

#define CN_HOLLERITH_TYPE ( IDX ) const_tbl[IDX].hollerith_fld

Definition at line 3145 of file sytb.m.

Referenced by cast_typeless_constant(), compare_darg_to_actual_arg(), final_arg_work(), get_operand_digit(), get_operand_quote(), global_name_semantics(), insert_unordered_constant(), ntr_ref_in_global_tbl(), and process_data_imp_do_target().

#define CN_INT_TO_C ( IDX ) F_INT_TO_C(&CN_CONST(IDX), TYP_LINEAR(CN_TYPE_IDX(IDX)))

Definition at line 4638 of file sytb.m.

Referenced by adjust_char_value_len(), all_intrinsic(), assert_semantics(), broadcast_scalar(), build_loop_tbl(), call_list_semantics(), cast_to_type_idx(), cast_typeless_constant(), cif_named_constant_rec(), cif_send_attr(), concat_opr_handler(), const_init_semantics(), convert_const(), convert_to_do_var_type(), copy_to_gl_subtree(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), cvrt_exp_to_pdg(), data_imp_do_semantics(), directive_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), encode_decode_stmt_semantics(), eq_opr_handler(), final_arg_work(), final_attr_semantics(), fold_aggragate_expression(), fold_cc_expr(), folder_driver(), gen_internal_dope_vector(), gen_static_dv_whole_def(), get_basic_type(), get_type_desc(), ichar_intrinsic(), increment_count(), init_whole_array(), interpret_array_construct_opr(), interpret_constructor(), interpret_data_imp_do(), interpret_implied_do(), interpret_ref(), interpret_struct_construct_opr(), io_ctl_list_semantics(), ishft_intrinsic(), kind_to_linear_type(), lbound_intrinsic(), lt_opr_handler(), matmul_intrinsic(), merge_parameter(), minval_intrinsic(), ntr_const_tbl(), ntr_ref_in_global_tbl(), ntr_unshared_const_tbl(), open_mp_directive_semantics(), outer_imp_do_count(), pack_intrinsic(), parse_io_control_list(), parse_name_dir(), parse_type_spec(), pre_parse_format(), process_data_imp_do_target(), push_data_value(), put_format_in_tbl(), reshape_intrinsic(), section_semantics(), send_attr_ntry(), send_derived_type(), send_dummy_procedure(), send_label_def(), send_stor_blk(), set_global_value_variables(), set_mod_link_tbl_for_cn(), shift_intrinsic(), size_intrinsic(), sm_unit_in_bits(), substring_opr_handler(), ubound_intrinsic(), unpack_intrinsic(), wait_send_semantics(), and write_constant().

#define CN_INTEGER_BITS_PER_WORD_IDX 6

Definition at line 65 of file sytb.m.

Referenced by check_and_allocate_common_storage(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), init_const_tbl(), linearize_list_for_equiv(), and storage_blk_resolution().

#define CN_INTEGER_CHAR_BIT_IDX 7 /* CHAR_BIT from limits.h */

Definition at line 66 of file sytb.m.

Referenced by create_scalar_type_tbl(), determine_tmp_size(), finish_cdir_id(), gen_common_dv_init(), gen_dv_whole_def_init(), gen_sf_dv_whole_def(), init_const_tbl(), linearize_list_for_equiv(), namelist_static_dv_whole_def(), parse_id_directive(), stor_bit_size_of(), transform_char_sequence_ref(), and translate_distant_ref2().

#define CN_INTEGER_MIN_IDX 8

Definition at line 67 of file sytb.m.

Referenced by init_const_tbl().

#define CN_INTEGER_NEG_ONE_IDX 5

Definition at line 64 of file sytb.m.

Referenced by directive_stmt_semantics(), final_arg_work(), final_equivalence_semantics(), gen_assumed_shape_copy(), init_const_tbl(), parse_fill_align_symbol(), parse_star_dir_directives(), and selected_int_kind_intrinsic().

#define CN_INTEGER_ONE_IDX 2

Definition at line 61 of file sytb.m.

Referenced by add_substring_length(), adjust_char_value_len(), allocate_stmt_semantics(), allocated_intrinsic(), analyse_loops(), array_construct_semantics(), array_dim_resolution(), associated_intrinsic(), backspace_stmt_semantics(), bound_semantics(), build_loop_tbl(), calculate_iteration_count(), change_subscript(), char_intrinsic(), character_to_character(), close_stmt_semantics(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_bd_ntry_for_const(), create_constructor_constant(), create_format_tmp(), create_io_call_descriptor(), create_loop_stmts(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), cshift_intrinsic(), cvrt_exp_to_pdg(), data_stmt_semantics(), directive_stmt_semantics(), do_single_asg(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), endfile_stmt_semantics(), eoshift_intrinsic(), final_arg_work(), find_attrs_used_in_bound(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), fold_nested_substrings(), gen_arg_type_descriptor(), gen_array_element_init(), gen_assumed_shape_copy(), gen_bd_entry(), gen_call_type_descriptor(), gen_common_dv_init(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_init_stmt(), gen_initialized_tmp(), gen_loop_end_ir(), gen_rbounds_condition(), gen_runtime_bounds(), gen_sbounds_check_call(), gen_sf_dv_whole_def(), gen_temp_init(), gen_whole_subscript(), gen_whole_substring(), ibset_intrinsic(), imp_do_metamorphed(), increment_subscript(), init_const_tbl(), init_directive(), init_parse_prog_unit(), init_whole_array(), inquire_stmt_semantics(), insert_init_stmt_for_tmp(), interpret_constructor(), interpret_implied_do(), io_list_semantics(), lbound_intrinsic(), linearize_list_for_equiv(), linearize_pe_dims(), num_images_intrinsic(), open_mp_directive_semantics(), open_stmt_semantics(), parse_array_spec(), parse_case_stmt(), parse_cc_operand(), parse_do_stmt(), parse_doall_cmic(), parse_forall(), parse_id_directive(), parse_int_spec_expr(), parse_length_selector(), parse_mic_directives(), parse_mp_directive(), parse_open_mp_clauses(), parse_open_mp_directives(), parse_par_directives(), parse_parallel_cmic(), parse_pe_array_spec(), parse_prefetch_ref(), parse_star_directives(), pe_array_dim_resolution(), prefetch_ref_semantics(), process_all_initialized_cpnts(), ptr_assign_from_ptr(), put_string_in_tmp(), random_seed_intrinsic(), rewind_stmt_semantics(), selected_int_kind_intrinsic(), set_directives_on_label(), set_ieee_exception_intrinsic(), set_shape_for_deferred_funcs(), set_stride_for_first_dim(), set_up_bd_tmps(), set_up_which_entry_tmp(), shape_intrinsic(), subscript_opr_handler(), substring_opr_handler(), transform_char_sequence_ref(), translate_distant_ref1(), type_init_semantics(), ubound_intrinsic(), vv_subscript_semantics(), and wait_send_semantics().

#define CN_INTEGER_THREE_IDX 4

Definition at line 63 of file sytb.m.

Referenced by cif_send_sytb(), create_io_call_descriptor(), create_runtime_array_constructor(), fold_clen_opr(), gen_dbg_write_stmt(), gen_whole_substring(), init_const_tbl(), scalar_dope_to_scalar(), set_stride_for_first_dim(), and srch_for_calls().

#define CN_INTEGER_TWO_IDX 3

Definition at line 62 of file sytb.m.

Referenced by create_alloc_descriptor(), create_argchck_descriptor(), gen_dv_whole_def_init(), init_const_tbl(), num_images_intrinsic(), parse_prefetch_ref(), parse_star_directives(), prefetch_ref_semantics(), selected_int_kind_intrinsic(), and stor_bit_size_of().

#define CN_INTEGER_ZERO_IDX 1

Definition at line 60 of file sytb.m.

Referenced by add_substring_length(), allocate_stmt_semantics(), analyse_loops(), array_construct_semantics(), array_dim_resolution(), assign_offset(), assign_offsets_for_equiv_groups(), attr_semantics(), build_loop_tbl(), calculate_pad(), char_len_resolution(), check_and_allocate_common_storage(), cif_named_constant_rec(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_io_call_descriptor(), create_loop_stmts(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), cvmgp_intrinsic(), data_stmt_semantics(), deallocate_local_allocatables(), deallocate_stmt_semantics(), decl_semantics(), determine_num_elements(), dim_intrinsic(), directive_stmt_semantics(), do_stmt_semantics(), dope_vector_setup(), encode_decode_stmt_semantics(), end_internal_proc(), end_module_proc(), end_subroutine(), end_type_blk(), eoshift_intrinsic(), equivalence_semantics(), final_arg_work(), final_attr_semantics(), final_decl_semantics(), final_equivalence_semantics(), find_attrs_used_in_bound(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), folder_driver(), gen_arg_type_descriptor(), gen_array_element_init(), gen_bd_entry(), gen_bounds_check_call(), gen_call_type_descriptor(), gen_common_dv_init(), gen_conform_check_call(), gen_dbg_write_stmt(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_derived_type(), gen_forall_max_expr(), gen_forall_tmp(), gen_init_stmt(), gen_initialized_tmp(), gen_loop_end_ir(), gen_ptr_chk_call(), gen_rbounds_check_call(), gen_rbounds_condition(), gen_sbounds_check_call(), gen_sf_dv_whole_def(), gen_temp_init(), gen_tmp_eq_zero_ir(), gen_tmp_equal_max_zero(), generate_bounds_list(), get_ieee_status_intrinsic(), imp_do_metamorphed(), init_const_tbl(), init_directive(), init_whole_array(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), interpret_implied_do(), interpret_size_intrinsic(), interpret_ubound_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), ishft_intrinsic(), lbound_intrinsic(), linearize_list_for_equiv(), make_triplet_extent_tree(), mult_opr_handler(), ntr_stor_blk_tbl(), nullify_stmt_semantics(), parse_case_stmt(), parse_cc_operand(), parse_cpnt_dcl_stmt(), parse_derived_type_stmt(), parse_distribution_dir(), parse_doall_cmic(), parse_doparallel_cmic(), parse_fill_align_symbol(), parse_id_directive(), parse_int_or_star_list(), parse_mp_directive(), parse_open_mp_clauses(), parse_par_directives(), parse_prefetch_ref(), parse_redistribute_dir(), parse_star_directives(), parse_type_spec(), pe_array_dim_resolution(), power_opr_handler(), process_all_initialized_cpnts(), push_data_value(), put_string_in_tmp(), read_stmt_semantics(), return_stmt_semantics(), selected_int_kind_intrinsic(), set_directives_on_label(), set_ieee_exception_intrinsic(), set_sb_first_attr_idx(), set_up_pe_offset_attr(), sin_intrinsic(), size_intrinsic(), spread_intrinsic(), srch_for_calls(), stop_pause_stmt_semantics(), storage_blk_resolution(), transfer_intrinsic(), type_init_semantics(), ubound_intrinsic(), and write_stmt_semantics().

#define CN_LAST_USED_IDX 8

Definition at line 299 of file sytb.m.

#define CN_LEFT_CHILD ( IDX ) const_tbl[IDX].left_child

Definition at line 3150 of file sytb.m.

Referenced by dump_cn_tree(), insert_constant(), and insert_unordered_constant().

#define CN_POOL_IDX ( IDX ) const_tbl[IDX].const_pool_idx

#define CN_RIGHT_CHILD ( IDX ) const_tbl[IDX].right_child

Definition at line 3151 of file sytb.m.

Referenced by dump_cn_tree(), and insert_constant().

#define CN_TYPE_IDX ( IDX ) const_tbl[IDX].type_idx

Definition at line 3149 of file sytb.m.

Referenced by adjust_char_value_len(), align_bit_length(), array_dim_resolution(), assign_new_idxs(), assign_new_idxs_after_input(), bits_and_bytes_to_words(), bound_semantics(), buffer_stmt_semantics(), calculate_iteration_count(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), cast_opnd_to_type_idx(), cast_typeless_constant(), chain_thru_sn_ntries(), char_len_resolution(), check_actual_and_dummy(), check_array_bounds(), check_substring_bounds(), check_type_for_size_address(), cif_call_site_rec(), cif_named_constant_rec(), cif_send_attr(), cif_send_sytb(), collapse_interface_blk(), compare_array_entries(), compare_cn_and_value(), compare_global_array(), compare_global_derived_type(), compare_value_to_cn(), compress_tbls(), concat_opr_handler(), const_init_semantics(), constant_value_semantics(), convert_to_do_var_type(), copy_sbtree(), copy_to_gl_subtree(), create_constructor_constant(), create_format_tmp(), create_loop_stmts(), create_scalar_type_tbl(), cvrt_exp_to_pdg(), determine_lb_ub(), directive_stmt_semantics(), do_loop_expr_semantics(), dump_at_ntry(), dump_cn_ntry(), dump_cn_tree(), equivalence_semantics(), expand_user_bound(), fill_in_global_attr_ntry(), final_arg_work(), finish_cdir_id(), fold_aggragate_expression(), fold_clen_opr(), fold_relationals(), folder_driver(), gen_arg_type_descriptor(), gen_array_element_init(), gen_forall_max_expr(), gen_if_stmt(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_internal_dope_vector(), gen_loop_end_ir(), gen_whole_subscript(), get_char_len(), get_operand_quote(), imp_do_metamorphed(), init_whole_array(), insert_constant(), insert_init_stmt_for_tmp(), insert_unordered_constant(), interpret_constructor(), interpret_implied_do(), interpret_ref(), io_list_semantics(), kind_to_linear_type(), max_opr_handler(), merge_parameter(), mpp_cn_int_to_c(), namelist_static_dv_whole_def(), ntr_boolean_const_tbl(), ntr_boz_const_tbl(), ntr_const_tbl(), ntr_global_bounds_tbl(), ntr_global_type_tbl(), ntr_ref_in_global_tbl(), ntr_unshared_const_tbl(), paren_grp_is_cplx_const(), parse_decode_stmt(), parse_encode_stmt(), parse_id_directive(), parse_int_spec_expr(), parse_io_control_list(), parse_name_dir(), parse_operand(), parse_print_stmt(), parse_read_stmt(), parse_write_stmt(), power_o_two(), pre_parse_format(), print_attr_name(), print_const_entry(), print_const_f(), print_expanded_const(), print_fld_idx(), print_type_f(), process_cpnt_inits(), process_data_imp_do_target(), push_data_value(), put_format_in_tbl(), read_in_module_tbl(), send_attr_ntry(), set_global_value_variables(), set_mod_link_tbl_for_cn(), set_up_exp_desc(), size_offset_binary_calc(), size_offset_logical_calc(), size_offset_min_max_calc(), stop_pause_stmt_semantics(), subscript_opr_handler(), substring_opr_handler(), translate_distant_ref2(), update_fld_type(), and wait_send_semantics().

#define CONVERT_CVAL_TO_STR	(	CONSTANT,
		TYPE_IDX,
		RESULT
	)	convert_cval_to_string(CONSTANT, TYPE_IDX, RESULT)

Definition at line 4599 of file sytb.m.

Referenced by cif_send_attr(), dump_gt_ntry(), dump_typ_ntry(), print_attr_name(), print_const_entry(), print_global_type_f(), and print_type_f().

#define COPY_ATTR_NTRY	(	TO,
		FROM
	)

Value:

attr_tbl[TO]            = attr_tbl[FROM];                              \
        attr_aux_tbl[TO]        = attr_aux_tbl[FROM];

Definition at line 4196 of file sytb.m.

Referenced by assign_new_idxs(), attr_semantics(), call_list_semantics(), chg_data_obj_to_pgm_unit(), compress_tbls(), copy_sbtree(), final_attr_semantics(), get_type_desc(), host_associated_attr_semantics(), not_visible_semantics(), parse_call_stmt(), parse_deref(), parse_type_dcl_stmt(), parse_type_spec(), rename_only_semantics(), and send_mod_file_name().

#define COPY_BD_NTRY	(	TO,
		FROM
	)

Value:

{                                                                      \
        int     _idx, _bd_num;                                                 \
        int     _size;                                                         \
        long    *_to_idx, *_from_idx;                                          \
        _from_idx       = ((long *) (&bounds_tbl[FROM]));                      \
        _to_idx         = ((long *) (&bounds_tbl[TO]));                        \
        _bd_num         = BD_NTRY_SIZE(FROM);                                  \
        _size           = NUM_BD_WDS * _bd_num;                                \
        Pragma("_CRI shortloop")                                               \
        for (_idx = 0; _idx < _size; _idx++) {                                 \
            *(_to_idx)  = *(_from_idx);                                        \
            _to_idx++;                                                         \
            _from_idx++;                                                       \
         }                                                                     \
        }

Definition at line 4232 of file sytb.m.

Referenced by compress_tbls(), make_new_bd_entries(), parse_cpnt_dcl_stmt(), and parse_type_dcl_stmt().

#define COPY_COMMON_ATTR_INFO	(	FROM,
		TO,
		CLASS
	)

Value:

{attr_tbl[(TO)].wd[0]           = attr_tbl[(FROM)].wd[0];              \
         attr_tbl[(TO)].wd[1]           = attr_tbl[(FROM)].wd[1];              \
         attr_tbl[(TO)].wd[2]           = attr_tbl[(FROM)].wd[2];              \
         attr_tbl[(TO)].wd[3]           = attr_tbl[(FROM)].wd[3];              \
         attr_tbl[(TO)].wd[4]           = attr_tbl[(FROM)].wd[4];              \
         attr_aux_tbl[(TO)].wd[0]       = attr_aux_tbl[(FROM)].wd[0];          \
         attr_aux_tbl[(TO)].wd[1]       = attr_aux_tbl[(FROM)].wd[1];          \
         AT_OBJ_CLASS(TO)               = CLASS;                               \
         AT_CIF_SYMBOL_ID(TO)           = 0;                                   \
         AT_CIF_DONE(TO)                = FALSE;                               \
        }

Definition at line 4283 of file sytb.m.

Referenced by complete_intrinsic_definition(), copy_sbtree(), gen_end_prologue_debug_label(), generic_spec_semantics(), minval_intrinsic(), parse_module_stmt(), parse_stmt_func_stmt(), set_function_rslt(), srch_for_calls(), and start_new_subpgm().

#define COPY_GL_TBL_NTRY	(	TBL1,
		TBL2,
		TO,
		FROM
	)

Value:

{                                                                      \
         long   *_to_idx, *_from_idx;                                          \
         int     _idx;                                                         \
         _from_idx      = ((long *) (&TBL2[FROM]));                            \
         _to_idx        = ((long *) (&TBL1[TO]));                              \
         Pragma("_CRI shortloop")                                              \
         for (_idx = 0; _idx < TBL2##_num_wds; _idx++) {                       \
            *(_to_idx)  = *(_from_idx);                                        \
            _to_idx++;                                                         \
            _from_idx++;                                                       \
         }                                                                     \
        }

Definition at line 4217 of file sytb.m.

Referenced by copy_from_gl_subtree(), and copy_to_gl_subtree().

#define COPY_TBL_NTRY	(	TBL,
		TO,
		FROM
	)

Value:

{                                                                      \
         long   *_to_idx, *_from_idx;                                          \
         int     _idx;                                                         \
         int     _size;                                                        \
         _from_idx      = ((long *) (&TBL[FROM]));                             \
         _to_idx        = ((long *) (&TBL[TO]));                               \
         _size          = TBL##_num_wds;                                       \
         Pragma("_CRI shortloop")                                              \
         for (_idx = 0; _idx < _size; _idx++) {                                \
            *(_to_idx)  = *(_from_idx);                                        \
            _to_idx++;                                                         \
            _from_idx++;                                                       \
         }                                                                     \
        }

Definition at line 4201 of file sytb.m.

Referenced by align_bit_length(), bits_and_bytes_to_words(), call_list_semantics(), copy_sbtree(), copy_subtree(), copy_text_for_expansion(), data_imp_do_semantics(), gen_split_alloc(), init_whole_array(), insert_constant(), insert_sh_after_entries(), make_base_subtree(), make_copy_of_routine(), and transform_cri_ch_ptr().

#define COPY_VARIANT_ATTR_INFO	(	FROM,
		TO,
		CLASS
	)

Value:

{attr_tbl[(TO)].wd[5]           = attr_tbl[(FROM)].wd[5];              \
         attr_tbl[(TO)].wd[6]           = attr_tbl[(FROM)].wd[6];              \
         attr_tbl[(TO)].wd[7]           = attr_tbl[(FROM)].wd[7];              \
         attr_tbl[(TO)].wd[8]           = attr_tbl[(FROM)].wd[8];              \
         attr_tbl[(TO)].wd[9]           = attr_tbl[(FROM)].wd[9];              \
         attr_tbl[(TO)].wd[10]          = attr_tbl[(FROM)].wd[10];             \
         attr_tbl[(TO)].wd[11]          = attr_tbl[(FROM)].wd[11];             \
         attr_tbl[(TO)].wd[12]          = attr_tbl[(FROM)].wd[12];             \
         attr_tbl[(TO)].wd[13]          = attr_tbl[(FROM)].wd[13];             \
         attr_aux_tbl[(TO)].wd[2]       = attr_aux_tbl[(FROM)].wd[2];          \
         attr_aux_tbl[(TO)].wd[3]       = attr_aux_tbl[(FROM)].wd[3];          \
         attr_aux_tbl[(TO)].wd[4]       = attr_aux_tbl[(FROM)].wd[4];          \
         attr_aux_tbl[(TO)].wd[5]       = attr_aux_tbl[(FROM)].wd[5];          \
         AT_OBJ_CLASS(TO)               = CLASS;                               \
        }

Definition at line 4309 of file sytb.m.

Referenced by copy_sbtree(), generic_spec_semantics(), merge_intrinsic(), minval_intrinsic(), parse_deref(), parse_inline_always_never(), parse_sgi_dir_inline(), and srch_for_calls().

#define CP_LAST_USED_IDX 7 /* last reserved index */

Definition at line 300 of file sytb.m.

#define CREATE_ERR_ATTR	(	IDX,
		LINE,
		COL,
		CLASS
	)

Value:

{                                                                      \
         int    _al_idx;                                                       \
         int    _err_idx;                                                      \
         NTR_ATTR_TBL(_err_idx);                                               \
         AT_DCL_ERR(IDX)                = TRUE;                                \
         COPY_COMMON_ATTR_INFO(IDX, _err_idx, CLASS);                          \
         AT_ATTR_LINK(_err_idx)         = NULL_IDX;                            \
         AT_DEF_LINE(_err_idx)          = LINE;                                \
         AT_DEF_COLUMN(_err_idx)        = COL;                                 \
         IDX                            = _err_idx;                            \
         NTR_ATTR_LIST_TBL(_al_idx);                                           \
         AL_ATTR_IDX(_al_idx)           = _err_idx;                            \
         AL_NEXT_IDX(_al_idx)           = SCP_CIF_ERR_LIST(curr_scp_idx);      \
         SCP_CIF_ERR_LIST(curr_scp_idx) = _al_idx;                             \
        }

Definition at line 4250 of file sytb.m.

Referenced by ck_lbl_construct_name(), generic_spec_semantics(), parse_derived_type_stmt(), parse_entry_stmt(), parse_module_stmt(), parse_name_dir(), parse_pointer_stmt(), parse_stmt_func_stmt(), parse_type_spec(), parse_use_stmt(), set_function_rslt(), start_new_prog_unit(), and start_new_subpgm().

#define CREATE_FUNC_RSLT	(	AT_IDX,
		RSLT_IDX
	)

Value:

NTR_ATTR_TBL(RSLT_IDX);                                        \
         COPY_COMMON_ATTR_INFO(AT_IDX, RSLT_IDX, Data_Obj);                    \
         ATD_CLASS(RSLT_IDX)    = Function_Result;                             \
         ATD_FUNC_IDX(RSLT_IDX) = AT_IDX;                                      \
         ATP_RSLT_IDX(AT_IDX)   = RSLT_IDX;

Definition at line 4372 of file sytb.m.

Referenced by attr_semantics(), call_list_semantics(), merge_automatic(), merge_dimension(), merge_pointer(), merge_target(), merge_type(), parse_deref(), and parse_vfunction_dir().

#define CS_CN_IDX ( IDX ) const_search_tbl[IDX].const_tbl_idx

Definition at line 3140 of file sytb.m.

#define CS_LAST_USED_IDX 1000 /* Must be the same as the initial */

Definition at line 302 of file sytb.m.

#define DOUBLE_COMPLEX_TYPE_IDX Num_Linear_Types + 1

Definition at line 82 of file sytb.m.

Referenced by init_type(), and parse_type_spec().

#define DOUBLE_PRECISION_TYPE_IDX Num_Linear_Types

Definition at line 81 of file sytb.m.

Referenced by get_operand_digit(), get_operand_dot(), init_type(), and parse_type_spec().

#define DV_A_CONTIG ( DOPE ) (DOPE).a_contig

Definition at line 254 of file sytb.m.

#define DV_ASSOC ( DOPE ) (DOPE).assoc

Definition at line 251 of file sytb.m.

#define DV_BASE_ADDR ( DOPE ) (DOPE).base_addr

Definition at line 249 of file sytb.m.

#define DV_DIM_WORD_SIZE 3 /* Size of dope vector dimen */

Definition at line 246 of file sytb.m.

Referenced by gen_static_dv_whole_def(), namelist_static_dv_whole_def(), and stor_bit_size_of().

#define DV_EL_LEN ( DOPE ) (DOPE).el_len

Definition at line 250 of file sytb.m.

#define DV_EXTENT	(	DOPE,
		IDX
	)	(DOPE).dim[IDX].extent

Definition at line 263 of file sytb.m.

#define DV_HD_WORD_SIZE 6 /* Size of dope vector header */

Definition at line 247 of file sytb.m.

Referenced by gen_static_dv_whole_def(), namelist_static_dv_whole_def(), and stor_bit_size_of().

#define DV_LOW_BOUND	(	DOPE,
		IDX
	)	(DOPE).dim[IDX].low_bound

Definition at line 262 of file sytb.m.

#define DV_NUM_DIMS ( DOPE ) (DOPE).num_dims

Definition at line 255 of file sytb.m.

#define DV_ORIG_BASE ( DOPE ) (DOPE).orig_base

Definition at line 260 of file sytb.m.

#define DV_ORIG_SIZE ( DOPE ) (DOPE).orig_size

Definition at line 261 of file sytb.m.

#define DV_P_OR_A ( DOPE ) (DOPE).p_or_a

Definition at line 253 of file sytb.m.

#define DV_PTR_ALLOC ( DOPE ) (DOPE).ptr_alloc

Definition at line 252 of file sytb.m.

#define DV_SET_A_CONTIG	(	DOPE,
		RHS
	)	(DOPE).a_contig = (RHS)

Definition at line 272 of file sytb.m.

#define DV_SET_ASSOC	(	DOPE,
		RHS
	)	(DOPE).assoc = (RHS)

Definition at line 269 of file sytb.m.

Referenced by namelist_static_dv_whole_def().

#define DV_SET_BASE_ADDR	(	DOPE,
		RHS
	)	(DOPE).base_addr = (RHS)

Definition at line 267 of file sytb.m.

#define DV_SET_EL_LEN	(	DOPE,
		RHS
	)	(DOPE).el_len = (RHS)

Definition at line 268 of file sytb.m.

Referenced by gen_static_dv_whole_def(), and namelist_static_dv_whole_def().

#define DV_SET_EXTENT	(	DOPE,
		IDX,
		RHS
	)	(DOPE).dim[IDX].extent = (RHS)

Definition at line 281 of file sytb.m.

Referenced by namelist_static_dv_whole_def().

#define DV_SET_LOW_BOUND	(	DOPE,
		IDX,
		RHS
	)	(DOPE).dim[IDX].low_bound = (RHS)

Definition at line 280 of file sytb.m.

Referenced by gen_static_dv_whole_def(), and namelist_static_dv_whole_def().

#define DV_SET_NUM_DIMS	(	DOPE,
		RHS
	)	(DOPE).num_dims = (RHS)

Definition at line 273 of file sytb.m.

Referenced by gen_static_dv_whole_def(), and namelist_static_dv_whole_def().

#define DV_SET_ORIG_BASE	(	DOPE,
		RHS
	)	(DOPE).orig_base = (RHS)

Definition at line 278 of file sytb.m.

#define DV_SET_ORIG_SIZE	(	DOPE,
		RHS
	)	(DOPE).orig_size = (RHS)

Definition at line 279 of file sytb.m.

#define DV_SET_P_OR_A	(	DOPE,
		RHS
	)	(DOPE).p_or_a = (RHS)

Definition at line 271 of file sytb.m.

Referenced by gen_static_dv_whole_def(), and namelist_static_dv_whole_def().

#define DV_SET_PTR_ALLOC	(	DOPE,
		RHS
	)	(DOPE).ptr_alloc = (RHS)

Definition at line 270 of file sytb.m.

#define DV_SET_STRIDE_MULT	(	DOPE,
		IDX,
		RHS
	)	(DOPE).dim[IDX].stride_mult = (RHS)

Definition at line 282 of file sytb.m.

Referenced by gen_static_dv_whole_def(), and namelist_static_dv_whole_def().

#define DV_SET_TYPE_CODE	(	DOPE,
		RHS
	)	(DOPE).type_code = (RHS)

Definition at line 274 of file sytb.m.

Referenced by gen_static_dv_whole_def(), and namelist_static_dv_whole_def().

#define DV_SET_UNUSED_1	(	DOPE,
		RHS
	)	(DOPE).unused_1 = (RHS)

Definition at line 275 of file sytb.m.

#define DV_SET_UNUSED_2	(	DOPE,
		RHS
	)	(DOPE).unused_2 = (RHS)

Definition at line 276 of file sytb.m.

#define DV_SET_UNUSED_3	(	DOPE,
		RHS
	)	(DOPE).unused_3 = (RHS)

Definition at line 277 of file sytb.m.

#define DV_STRIDE_MULT	(	DOPE,
		IDX
	)	(DOPE).dim[IDX].stride_mult

Definition at line 264 of file sytb.m.

#define DV_TYPE_CODE ( DOPE ) (DOPE).type_code

Definition at line 256 of file sytb.m.

#define DV_UNUSED_1 ( DOPE ) (DOPE).unused_1

Definition at line 257 of file sytb.m.

#define DV_UNUSED_2 ( DOPE ) (DOPE).unused_2

Definition at line 258 of file sytb.m.

#define DV_UNUSED_3 ( DOPE ) (DOPE).unused_3

Definition at line 259 of file sytb.m.

#define EQ_ATTR_IDX ( IDX ) equiv_tbl[IDX].attr_idx

Definition at line 3159 of file sytb.m.

Referenced by attr_semantics(), check_and_allocate_common_storage(), decl_semantics(), dump_eq_ntry(), equivalence_semantics(), final_equivalence_semantics(), host_associated_attr_semantics(), init_whole_array(), linearize_list_for_equiv(), merge_equivalence_groups1(), merge_equivalence_groups2(), parse_equivalence_stmt(), storage_blk_resolution(), and transform_cri_ch_ptr().

#define EQ_COLUMN_NUM ( IDX ) equiv_tbl[IDX].column_num

Definition at line 3160 of file sytb.m.

Referenced by attr_semantics(), check_and_allocate_common_storage(), decl_semantics(), dump_eq_ntry(), equivalence_semantics(), final_equivalence_semantics(), and parse_equivalence_stmt().

#define EQ_DALIGN_ME ( IDX ) equiv_tbl[IDX].dalign_me

Definition at line 3161 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_eq_ntry(), final_equivalence_semantics(), and storage_blk_resolution().

#define EQ_DALIGN_SHIFT ( IDX ) equiv_tbl[IDX].dalign_shift

Definition at line 3162 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_eq_ntry(), final_equivalence_semantics(), and storage_blk_resolution().

#define EQ_DO_NOT_DALIGN ( IDX ) equiv_tbl[IDX].do_not_dalign

Definition at line 3163 of file sytb.m.

Referenced by dump_eq_ntry(), equivalence_semantics(), and final_equivalence_semantics().

#define EQ_ERROR ( IDX ) equiv_tbl[IDX].error

Definition at line 3164 of file sytb.m.

Referenced by assign_offsets_for_equiv_groups(), dump_eq_ntry(), equivalence_semantics(), merge_equivalence_groups1(), and merge_equivalence_groups2().

#define EQ_GRP_END_IDX ( IDX ) equiv_tbl[IDX].grp_end_idx

Definition at line 3165 of file sytb.m.

Referenced by attr_semantics(), decl_semantics(), dump_eq_ntry(), merge_equivalence_groups1(), merge_equivalence_groups2(), and parse_equivalence_stmt().

#define EQ_GRP_IDX ( IDX ) equiv_tbl[IDX].grp_idx

Definition at line 3166 of file sytb.m.

Referenced by attr_semantics(), decl_semantics(), dump_eq_ntry(), merge_equivalence_groups1(), merge_equivalence_groups2(), and parse_equivalence_stmt().

#define EQ_LINE_NUM ( IDX ) equiv_tbl[IDX].line_num

Definition at line 3167 of file sytb.m.

Referenced by attr_semantics(), check_and_allocate_common_storage(), decl_semantics(), dump_eq_ntry(), equivalence_semantics(), final_equivalence_semantics(), and parse_equivalence_stmt().

#define EQ_LIST_IDX ( IDX ) equiv_tbl[IDX].list_idx

Definition at line 3168 of file sytb.m.

Referenced by assign_offsets_for_equiv_groups(), dump_eq_ntry(), equivalence_semantics(), linearize_list_for_equiv(), and merge_equivalence_groups1().

#define EQ_MERGED ( IDX ) equiv_tbl[IDX].merged

Definition at line 3169 of file sytb.m.

Referenced by dump_eq_ntry(), merge_equivalence_groups1(), and merge_equivalence_groups2().

#define EQ_NEXT_EQUIV_GRP ( IDX ) equiv_tbl[IDX].next_equiv_grp

Definition at line 3170 of file sytb.m.

Referenced by assign_offsets_for_equiv_groups(), check_and_allocate_common_storage(), decl_semantics(), dump_eq_ntry(), equivalence_semantics(), final_equivalence_semantics(), host_associated_attr_semantics(), init_whole_array(), merge_equivalence_groups1(), merge_equivalence_groups2(), parse_equivalence_stmt(), print_eq_tbl(), storage_blk_resolution(), and transform_cri_ch_ptr().

#define EQ_NEXT_EQUIV_OBJ ( IDX ) equiv_tbl[IDX].next_equiv_obj

Definition at line 3171 of file sytb.m.

Referenced by assign_offsets_for_equiv_groups(), attr_semantics(), check_and_allocate_common_storage(), decl_semantics(), dump_eq_ntry(), equivalence_semantics(), final_equivalence_semantics(), host_associated_attr_semantics(), init_whole_array(), merge_equivalence_groups1(), merge_equivalence_groups2(), parse_equivalence_stmt(), print_eq_tbl(), storage_blk_resolution(), and transform_cri_ch_ptr().

#define EQ_OFFSET_FLD ( IDX ) equiv_tbl[IDX].fld

Definition at line 3172 of file sytb.m.

Referenced by assign_offsets_for_equiv_groups(), check_and_allocate_common_storage(), dump_eq_ntry(), final_equivalence_semantics(), init_whole_array(), and merge_equivalence_groups2().

#define EQ_OFFSET_IDX ( IDX ) equiv_tbl[IDX].offset_idx

Definition at line 3173 of file sytb.m.

Referenced by assign_offsets_for_equiv_groups(), check_and_allocate_common_storage(), dump_eq_ntry(), equivalence_semantics(), final_equivalence_semantics(), init_whole_array(), and merge_equivalence_groups2().

#define EQ_OPND_FLD ( IDX ) equiv_tbl[IDX].opnd_fld

Definition at line 3174 of file sytb.m.

Referenced by dump_eq_ntry(), equivalence_semantics(), and parse_equivalence_stmt().

#define EQ_OPND_IDX ( IDX ) equiv_tbl[IDX].opnd_idx

Definition at line 3175 of file sytb.m.

Referenced by dump_eq_ntry(), equivalence_semantics(), and parse_equivalence_stmt().

#define EQ_SEARCH_DONE ( IDX ) equiv_tbl[IDX].search_done

Definition at line 3176 of file sytb.m.

Referenced by dump_eq_ntry(), equivalence_semantics(), and merge_equivalence_groups1().

#define EQ_SEMANTICS_DONE ( IDX ) equiv_tbl[IDX].semantics_done

Definition at line 3177 of file sytb.m.

Referenced by decl_semantics(), and final_equivalence_semantics().

#define EQ_SUBSTRINGED ( IDX ) equiv_tbl[IDX].substring

Definition at line 3178 of file sytb.m.

Referenced by dump_eq_ntry(), equivalence_semantics(), linearize_list_for_equiv(), and parse_equivalence_stmt().

#define EXTRA_WORD 0

Definition at line 4467 of file sytb.m.

Referenced by ntr_ref_in_global_tbl().

#define F_INT_TO_C	(	ARRAY,
		LIN_TYPE
	)	f_int_to_cval(ARRAY, LIN_TYPE)

Definition at line 4632 of file sytb.m.

Referenced by cif_send_sytb(), cvrt_exp_to_pdg(), final_attr_semantics(), get_type_desc(), interpret_ref(), interpret_repeat_intrinsic(), interpret_sik_intrinsic(), interpret_size_intrinsic(), interpret_trim_intrinsic(), interpret_unary_intrinsic_opr(), ntr_const_tbl(), repeat_intrinsic(), send_attr_ntry(), send_dummy_procedure(), set_mod_link_tbl_for_cn(), and trim_intrinsic().

#define FP_CIF_ID ( IDX ) file_path_tbl[IDX].cif_id

Definition at line 3183 of file sytb.m.

Referenced by cif_use_module_rec(), and open_include_file().

#define FP_CLASS ( IDX ) file_path_tbl[IDX].file_class

Definition at line 3184 of file sytb.m.

Referenced by create_mod_info_file(), dump_fp_ntry(), find_files_in_directory(), find_prog_unit_tbl(), ntr_file_in_fp_tbl(), open_module_file(), and srch_for_module_tbl().

#define FP_FILE_IDX ( IDX ) file_path_tbl[IDX].file_idx

Definition at line 3186 of file sytb.m.

Referenced by create_mod_info_file(), dump_fp_ntry(), find_prog_unit_tbl(), ntr_file_in_fp_tbl(), open_module_file(), and srch_for_module_tbl().

#define FP_MODULE_IDX ( IDX ) file_path_tbl[IDX].next_idx

Definition at line 3187 of file sytb.m.

Referenced by create_mod_info_file(), dump_fp_ntry(), find_prog_unit_tbl(), and srch_for_module_tbl().

#define FP_MODULE_INLINE_IDX ( IDX ) file_path_tbl[IDX].module_inline_idx

Definition at line 3188 of file sytb.m.

Referenced by dump_fp_ntry().

#define FP_NAME ( IDX ) (str_pool[FP_NAME_IDX(IDX)].name_char)

Definition at line 3191 of file sytb.m.

Referenced by find_files_in_directory().

#define FP_NAME_IDX ( IDX ) file_path_tbl[IDX].name_idx

Definition at line 3189 of file sytb.m.

Referenced by create_mod_info_file(), dump_fp_ntry(), ntr_file_in_fp_tbl(), open_include_file(), read_in_module_tbl(), and srch_for_module_tbl().

#define FP_NAME_LEN ( IDX ) file_path_tbl[IDX].name_len

Definition at line 3190 of file sytb.m.

Referenced by create_mod_info_file(), dump_fp_ntry(), find_prog_unit_tbl(), implicit_use_semantics(), ntr_file_in_fp_tbl(), open_include_file(), read_in_module_tbl(), reshape_array_semantics(), and srch_for_module_tbl().

#define FP_NAME_LONG ( IDX ) &(str_pool[FP_NAME_IDX(IDX)].name_long)

Definition at line 3192 of file sytb.m.

Referenced by find_prog_unit_tbl().

#define FP_NAME_PTR ( IDX ) &str_pool[FP_NAME_IDX(IDX)].name_char

Definition at line 3193 of file sytb.m.

Referenced by cif_misc_compiler_opts_rec(), cif_use_module_rec(), clean_up_module_files(), create_mod_info_file(), dump_fp_ntry(), find_files_in_directory(), find_prog_unit_tbl(), implicit_use_semantics(), ntr_file_in_fp_tbl(), open_include_file(), open_module_file(), output_mod_info_file(), print_cmd_tbl(), print_fp_includes(), reshape_array_semantics(), and send_mod_file_name().

#define FP_NEXT_FILE_IDX ( IDX ) file_path_tbl[IDX].next_file_idx

Definition at line 3194 of file sytb.m.

Referenced by cif_misc_compiler_opts_rec(), create_mod_info_file(), dump_fp_ntry(), find_prog_unit_tbl(), implicit_use_semantics(), ntr_file_in_fp_tbl(), open_include_file(), print_cmd_tbl(), print_fp_includes(), print_fp_tbl(), and reshape_array_semantics().

#define FP_OFFSET ( IDX ) file_path_tbl[IDX].offset

Definition at line 3195 of file sytb.m.

Referenced by create_mod_info_file(), dump_fp_ntry(), find_prog_unit_tbl(), read_module_tbl_header(), srch_ar_file_for_module_tbl(), and srch_for_module_tbl().

#define FP_OUTPUT_TO_O ( IDX ) file_path_tbl[IDX].output_to_o

Definition at line 3196 of file sytb.m.

Referenced by create_mod_info_file(), dump_fp_ntry(), and send_mod_file_name().

#define FP_SRCH_THE_FILE ( IDX ) file_path_tbl[IDX].srch_the_file

Definition at line 3197 of file sytb.m.

Referenced by create_mod_info_file(), dump_fp_ntry(), find_files_in_directory(), find_prog_unit_tbl(), ntr_file_in_fp_tbl(), open_module_file(), srch_ar_file_for_module_tbl(), and srch_for_module_tbl().

#define FP_SYSTEM_FILE ( IDX ) file_path_tbl[IDX].system_file

Definition at line 3198 of file sytb.m.

Referenced by dump_fp_ntry(), find_files_in_directory(), find_prog_unit_tbl(), ntr_file_in_fp_tbl(), and srch_ar_file_for_module_tbl().

#define FP_TMP_FILE ( IDX ) file_path_tbl[IDX].tmp_file

Definition at line 3185 of file sytb.m.

Referenced by clean_up_module_files(), create_mod_info_file(), and dump_fp_ntry().

#define FREE_GL_IR_LIST_NODE ( IDX )

Value:

GL_IL_NEXT_LIST_IDX(IDX)           = GL_IL_NEXT_LIST_IDX(NULL_IDX);    \
        GL_IL_NEXT_LIST_IDX(NULL_IDX)      = IDX;

Definition at line 4394 of file sytb.m.

#define FREE_GL_IR_NODE ( IDX )

Value:

GL_IR_NEXT_IDX(IDX)                = GL_IR_NEXT_IDX(NULL_IDX);         \
        GL_IR_NEXT_IDX(NULL_IDX)           = IDX;

Definition at line 4399 of file sytb.m.

#define FREE_GL_SH_NODE ( IDX )

Value:

GL_SH_NEXT_IDX(IDX)                = GL_SH_NEXT_IDX(NULL_IDX);         \
        GL_SH_NEXT_IDX(NULL_IDX)           = IDX;

Definition at line 4404 of file sytb.m.

#define FREE_IR_LIST_NODE ( IDX )

Value:

IL_NEXT_LIST_IDX(IDX)           = IL_NEXT_LIST_IDX(NULL_IDX);          \
        IL_NEXT_LIST_IDX(NULL_IDX)      = IDX;

Definition at line 4380 of file sytb.m.

Referenced by attr_semantics(), bounds_cdir_handler(), encode_decode_stmt_semantics(), end_select_semantics(), free_ir_list(), free_stmt_expansion_opr(), free_stmt_tmp_tbl(), init_directive(), interpret_array_construct_opr(), interpret_implied_do(), interpret_ref(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), outmoded_if_stmt_semantics(), parse_do_stmt(), parse_imp_do(), pop_task_blk(), reshape_intrinsic(), resolve_fwd_lbl_refs(), and subscript_opr_handler().

#define FREE_IR_NODE ( IDX )

Value:

IR_NEXT_IDX(IDX)                = IR_NEXT_IDX(NULL_IDX);               \
        IR_NEXT_IDX(NULL_IDX)           = IDX;

Definition at line 4385 of file sytb.m.

Referenced by create_array_constructor_asg(), create_interp_stmts(), end_do_parallel_blk(), end_open_mp_do_blk(), end_open_mp_parallel_do_blk(), end_pdo_blk(), end_select_semantics(), expand_user_bound(), free_ir_stream(), free_stmt_expansion_opr(), gen_whole_subscript(), parse_open_mp_directives(), parse_par_directives(), reshape_intrinsic(), subscript_opr_handler(), and type_init_semantics().

#define FREE_SH_NODE ( IDX )

#define GA_COMPILER_GEND ( IDX ) global_attr_tbl[IDX].fld.compiler_gend

Definition at line 3204 of file sytb.m.

Referenced by dump_ga_ntry(), global_name_semantics(), and ntr_global_attr_tbl().

#define GA_DEF_COLUMN ( IDX ) global_attr_tbl[IDX].fld.def_column

Definition at line 3206 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), ntr_common_in_global_attr_tbl(), ntr_global_attr_tbl(), and ntr_ref_in_global_tbl().

#define GA_DEF_LINE ( IDX ) global_attr_tbl[IDX].fld.def_line

Definition at line 3205 of file sytb.m.

Referenced by check_call_for_global_def(), dump_ga_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), ntr_common_in_global_attr_tbl(), ntr_global_attr_tbl(), and ntr_ref_in_global_tbl().

#define GA_DEFINED ( IDX ) global_attr_tbl[IDX].fld.defined

Definition at line 3207 of file sytb.m.

Referenced by check_call_for_global_def(), check_global_pgm_unit(), copy_sbtree(), dump_ga_ntry(), fill_in_global_attr_ntry(), find_prog_unit_tbl(), and global_name_semantics().

#define GA_MODULE_IDX ( IDX ) global_attr_tbl[IDX].fld.module_idx

Definition at line 3208 of file sytb.m.

Referenced by compare_global_derived_type(), dump_ga_ntry(), fill_in_global_attr_ntry(), and ntr_common_in_global_attr_tbl().

#define GA_NAME_IDX ( IDX ) global_attr_tbl[IDX].fld.name_idx

Definition at line 3209 of file sytb.m.

Referenced by ntr_common_in_global_attr_tbl(), ntr_global_attr_tbl(), ntr_global_name_tbl(), and ntr_ref_in_global_tbl().

#define GA_NAME_LEN ( IDX ) global_attr_tbl[IDX].fld.length

Definition at line 3210 of file sytb.m.

Referenced by compare_global_derived_type(), copy_from_gl_subtree(), dump_ga_ntry(), ntr_common_in_global_attr_tbl(), ntr_global_attr_tbl(), ntr_global_name_tbl(), and ntr_ref_in_global_tbl().

#define GA_OBJ_CLASS ( IDX ) global_attr_tbl[IDX].fld.object_class

Definition at line 3211 of file sytb.m.

Referenced by check_call_for_global_def(), check_global_pgm_unit(), create_mod_info_file(), directive_stmt_semantics(), dump_ga_ntry(), fill_in_global_attr_ntry(), find_prog_unit_tbl(), global_name_semantics(), ntr_common_in_global_attr_tbl(), ntr_global_attr_tbl(), ntr_ref_in_global_tbl(), set_inline_state(), and storage_blk_resolution().

#define GA_OBJ_NAME_LONG ( IDX ) &(str_pool[GA_NAME_IDX(IDX)].name_long)

Definition at line 3212 of file sytb.m.

Referenced by compare_global_derived_type().

#define GA_OBJ_NAME_PTR ( IDX ) &str_pool[GA_NAME_IDX(IDX)].name_char

Definition at line 3213 of file sytb.m.

Referenced by copy_from_gl_subtree(), dump_ga_ntry(), global_name_semantics(), and print_global_type_f().

#define GA_OPTIONAL ( IDX ) global_attr_tbl[IDX].fld.optional

Definition at line 3214 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), and ntr_global_attr_tbl().

#define GA_ORIG_NAME_IDX ( IDX ) global_attr_tbl[IDX].fld.orig_name_idx

Definition at line 3216 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_global_attr_tbl(), and ntr_ref_in_global_tbl().

#define GA_ORIG_NAME_LEN ( IDX ) global_attr_tbl[IDX].fld.orig_name_len

Definition at line 3215 of file sytb.m.

Referenced by compare_global_derived_type(), dump_ga_ntry(), ntr_global_attr_tbl(), and ntr_ref_in_global_tbl().

#define GA_ORIG_NAME_LONG ( IDX ) &(str_pool[GA_ORIG_NAME_IDX(IDX)].name_long)

Definition at line 3218 of file sytb.m.

Referenced by compare_global_derived_type().

#define GA_ORIG_NAME_PTR ( IDX ) &str_pool[GA_ORIG_NAME_IDX(IDX)].name_char

Definition at line 3217 of file sytb.m.

Referenced by dump_ga_ntry().

#define GA_REFERENCED ( IDX ) global_attr_tbl[IDX].fld.referenced

Definition at line 3219 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), and ntr_ref_in_global_tbl().

#define GA_USE_ASSOCIATED ( IDX ) global_attr_tbl[IDX].fld.use_associated

Definition at line 3220 of file sytb.m.

Referenced by compare_global_derived_type(), dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and ntr_global_attr_tbl().

#define GAC_ALIGN_SYMBOL ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_ALIGN_SYMBOL", IDX))       \
                [IDX].fld.flag5

Definition at line 3337 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAC_AUXILIARY ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_AUXILIARY", IDX))          \
                [IDX].fld.flag1

Definition at line 3346 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAC_CACHE_ALIGN ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_CACHE_ALIGN", IDX))        \
                [IDX].fld.flag2

Definition at line 3355 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAC_EQUIVALENCED ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_EQUIVALENCED", IDX))       \
                [IDX].fld.flag4

Definition at line 3364 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAC_FILL_SYMBOL ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_FILL_SYMBOL", IDX))        \
                [IDX].fld.flag6

Definition at line 3373 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAC_FIRST_MEMBER_IDX ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_FIRST_MEMBER_IDX", IDX))   \
                [IDX].fld.field3

Definition at line 3382 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAC_FOUND_DIFFS ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_FOUND_DIFFS", IDX))        \
                [IDX].fld.flag7

Definition at line 3391 of file sytb.m.

Referenced by dump_ga_ntry(), and storage_blk_resolution().

#define GAC_PGM_UNIT_IDX ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_PGM_UNIT_IDX", IDX))       \
                [IDX].fld.field1

Definition at line 3400 of file sytb.m.

Referenced by check_call_for_global_def(), check_global_pgm_unit(), create_mod_info_file(), fill_in_global_attr_ntry(), find_prog_unit_tbl(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAC_SECTION_GP ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_SECTION_GP", IDX))         \
                [IDX].fld.flag8

Definition at line 3409 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAC_SECTION_NON_GP ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_SECTION_NON_GP", IDX))     \
                [IDX].fld.flag9

Definition at line 3418 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAC_TASK_COMMON ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Common_Block) ?                                 \
                global_attr_tbl : ga_var_error("GAC_TASK_COMMON", IDX))        \
                [IDX].fld.flag3

Definition at line 3427 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAD_ARRAY_ELEMENT_REF ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                global_attr_tbl : ga_var_error("GAD_ARRAY_ELEMENT_REF", IDX))  \
                [IDX].fld.flag5

Definition at line 3225 of file sytb.m.

Referenced by dump_ga_ntry(), global_name_semantics(), and ntr_ref_in_global_tbl().

#define GAD_ARRAY_IDX ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                global_attr_tbl : ga_var_error("GAD_ARRAY_IDX", IDX))          \
                [IDX].fld.field3

Definition at line 3234 of file sytb.m.

Referenced by compare_global_derived_type(), compare_global_type_rank(), dump_ga_ntry(), and fill_in_global_attr_ntry().

#define GAD_ASSUMED_SHAPE_ARRAY ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                global_attr_tbl : ga_var_error("GAD_ASSUMED_SHAPE_ARRAY", IDX))\
                [IDX].fld.flag2

Definition at line 3243 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAD_CLASS ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                global_attr_tbl : ga_var_error("GAD_CLASS", IDX))              \
                [IDX].fld.field5

Definition at line 3252 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), and ntr_ref_in_global_tbl().

#define GAD_HOLLERITH ( IDX )

Value:

(((GA_OBJ_CLASS(IDX) == Data_Obj) &&                                   \
          (GAD_CLASS(IDX) == Constant)) ?                                      \
                global_attr_tbl : ga_var_error("GAD_HOLLERITH", IDX))          \
                [IDX].fld.field4

Definition at line 3261 of file sytb.m.

Referenced by dump_ga_ntry(), global_name_semantics(), and ntr_ref_in_global_tbl().

#define GAD_IGNORE_TKR ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                global_attr_tbl : ga_var_error("GAD_IGNORE_TKR", IDX))         \
                [IDX].fld.flag1

Definition at line 3271 of file sytb.m.

Referenced by global_name_semantics().

#define GAD_INTENT ( IDX )

Value:

(((GA_OBJ_CLASS(IDX) == Data_Obj) &&                                   \
          (GAD_CLASS(IDX) == Dummy_Argument)) ?                                \
                global_attr_tbl : ga_var_error("GAD_INTENT", IDX))             \
                [IDX].fld.field4

Definition at line 3280 of file sytb.m.

Referenced by dump_ga_ntry(), and fill_in_global_attr_ntry().

#define GAD_NEXT_IDX ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                global_attr_tbl : ga_var_error("GAD_NEXT_IDX", IDX))           \
                [IDX].fld.field8

Definition at line 3290 of file sytb.m.

Referenced by dump_ga_ntry(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define GAD_POINTER ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                global_attr_tbl : ga_var_error("GAD_POINTER", IDX))            \
                [IDX].fld.flag3

Definition at line 3299 of file sytb.m.

Referenced by compare_global_derived_type(), dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAD_RANK ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                global_attr_tbl : ga_var_error("GAD_RANK", IDX))               \
                [IDX].fld.field2

Definition at line 3308 of file sytb.m.

Referenced by compare_global_type_rank(), dump_ga_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), and ntr_ref_in_global_tbl().

#define GAD_TARGET ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                global_attr_tbl : ga_var_error("GAD_TARGET", IDX))             \
                [IDX].fld.flag4

Definition at line 3317 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAD_TYPE_IDX ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Data_Obj) ?                                     \
                global_attr_tbl : ga_var_error("GAD_TYPE_IDX", IDX))           \
                [IDX].fld.field1

Definition at line 3326 of file sytb.m.

Referenced by compare_global_derived_type(), compare_global_type_rank(), dump_ga_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), and ntr_ref_in_global_tbl().

#define GAP_ELEMENTAL ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_ELEMENTAL", IDX))          \
                [IDX].fld.flag3

Definition at line 3439 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAP_FIRST_IDX ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_FIRST_IDX", IDX))          \
                [IDX].fld.field1

Definition at line 3448 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), and ntr_ref_in_global_tbl().

#define GAP_FP_IDX ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_FP_IDX", IDX))             \
                [IDX].fld.field6

Definition at line 3457 of file sytb.m.

Referenced by create_mod_info_file(), dump_ga_ntry(), and find_prog_unit_tbl().

#define GAP_GLOBAL_DIR ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_GLOBAL_DIR", IDX))         \
                [IDX].fld.flag9

Definition at line 3466 of file sytb.m.

Referenced by directive_stmt_semantics(), dump_ga_ntry(), and global_name_semantics().

#define GAP_IN_INTERFACE_BLK ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_IN_INTERFACE_BLK", IDX))   \
                [IDX].fld.flag2

Definition at line 3475 of file sytb.m.

Referenced by check_global_pgm_unit(), dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAP_INLINE_STATE ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_INLINE_STATE", IDX))       \
                [IDX].fld.field2

Definition at line 3566 of file sytb.m.

Referenced by directive_stmt_semantics(), and set_inline_state().

#define GAP_NEEDS_EXPL_ITRFC ( IDX ) global_attr_tbl[IDX].fld.flag1

Definition at line 3490 of file sytb.m.

Referenced by check_call_for_global_def(), dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAP_NEXT_PGM_UNIT_IDX ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_NEXT_PGM_UNIT_IDX", IDX))  \
                [IDX].fld.field8

Definition at line 3494 of file sytb.m.

Referenced by check_call_for_global_def(), check_global_pgm_unit(), and dump_ga_ntry().

#define GAP_NOSIDE_EFFECTS ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_NOSIDE_EFFECTS", IDX))     \
                [IDX].fld.flag5

Definition at line 3503 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAP_NUM_DARGS ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_NUM_DARGS", IDX))          \
                [IDX].fld.field7

Definition at line 3512 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), and ntr_ref_in_global_tbl().

#define GAP_PGM_UNIT ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_PGM_UNIT", IDX))           \
                [IDX].fld.field5

Definition at line 3521 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), find_prog_unit_tbl(), global_name_semantics(), and storage_blk_resolution().

#define GAP_PGM_UNIT_DEFINED ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_PGM_UNIT_DEFINED", IDX))   \
                [IDX].fld.flag4

Definition at line 3530 of file sytb.m.

Referenced by check_global_pgm_unit(), dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAP_PURE ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_PURE", IDX))               \
                [IDX].fld.flag6

Definition at line 3539 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAP_RECURSIVE ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_RECURSIVE", IDX))          \
                [IDX].fld.flag7

Definition at line 3548 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAP_RSLT_IDX ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_RSLT_IDX", IDX))           \
                [IDX].fld.field3

Definition at line 3557 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAP_VFUNCTION ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Pgm_Unit) ?                                     \
                global_attr_tbl : ga_var_error("GAP_VFUNCTION", IDX))          \
                [IDX].fld.flag8

Definition at line 3575 of file sytb.m.

Referenced by dump_ga_ntry(), fill_in_global_attr_ntry(), and global_name_semantics().

#define GAT_FIRST_CPNT_IDX ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                global_attr_tbl : ga_var_error("GAT_FIRST_CPNT_IDX", IDX))     \
                [IDX].fld.field1

Definition at line 3587 of file sytb.m.

Referenced by compare_global_derived_type(), dump_ga_ntry(), and ntr_global_type_tbl().

#define GAT_NUM_CPNTS ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                global_attr_tbl : ga_var_error("GAT_NUM_CPNTS", IDX))          \
                [IDX].fld.field3

Definition at line 3596 of file sytb.m.

Referenced by compare_global_derived_type(), dump_ga_ntry(), and fill_in_global_attr_ntry().

#define GAT_PRIVATE_CPNT ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                global_attr_tbl : ga_var_error("GAT_PRIVATE_CPNT", IDX))       \
                [IDX].fld.flag1

Definition at line 3605 of file sytb.m.

Referenced by compare_global_derived_type(), dump_ga_ntry(), and fill_in_global_attr_ntry().

#define GAT_SEQUENCE_SET ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                global_attr_tbl : ga_var_error("GAT_SEQUENCE_SET", IDX))       \
                [IDX].fld.flag2

Definition at line 3614 of file sytb.m.

Referenced by compare_global_derived_type(), dump_ga_ntry(), and fill_in_global_attr_ntry().

#define GAT_STRUCT_BIT_LEN ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                global_attr_tbl : ga_var_error("GAT_STRUCT_BIT_LEN", IDX))     \
                [IDX].wd.length

Definition at line 3632 of file sytb.m.

Referenced by compare_global_derived_type(), dump_ga_ntry(), and fill_in_global_attr_ntry().

#define GAT_STRUCT_LIN_TYPE ( IDX )

Value:

((GA_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                global_attr_tbl : ga_var_error("GAT_STRUCT_LIN_TYPE", IDX))    \
                [IDX].wd.field32_6

Definition at line 3623 of file sytb.m.

Referenced by compare_global_derived_type(), and fill_in_global_attr_ntry().

#define GB_ARRAY_CLASS ( IDX ) global_bounds_tbl[IDX].hdr.array_class

Definition at line 3642 of file sytb.m.

Referenced by compare_global_array(), dump_gb_ntry(), init_compiler(), ntr_global_bounds_tbl(), and print_gb_tbl().

#define GB_ARRAY_SIZE ( IDX ) global_bounds_tbl[IDX].hdr.array_size

Definition at line 3643 of file sytb.m.

Referenced by compare_global_array(), dump_gb_ntry(), ntr_global_bounds_tbl(), and print_gb_tbl().

#define GB_LB_TYPE	(	IDX,
		DIM
	)	global_bounds_tbl[(IDX)+(DIM*3)].type.lb_type

Definition at line 3650 of file sytb.m.

Referenced by compare_global_array(), dump_gb_ntry(), and ntr_global_bounds_tbl().

#define GB_LOWER_BOUND	(	IDX,
		DIM
	)	global_bounds_tbl[(IDX)+(DIM*3)-2].len

Definition at line 3648 of file sytb.m.

Referenced by compare_global_array(), dump_gb_ntry(), and ntr_global_bounds_tbl().

#define GB_RANK ( IDX ) global_bounds_tbl[IDX].hdr.rank

Definition at line 3644 of file sytb.m.

Referenced by compare_global_array(), dump_gb_ntry(), init_compiler(), ntr_global_bounds_tbl(), and print_gb_tbl().

#define GB_UB_TYPE	(	IDX,
		DIM
	)	global_bounds_tbl[(IDX)+(DIM*3)].type.ub_type

Definition at line 3651 of file sytb.m.

Referenced by compare_global_array(), dump_gb_ntry(), and ntr_global_bounds_tbl().

#define GB_UPPER_BOUND	(	IDX,
		DIM
	)	global_bounds_tbl[(IDX)+(DIM*3)-1].len

Definition at line 3649 of file sytb.m.

Referenced by compare_global_array(), dump_gb_ntry(), and ntr_global_bounds_tbl().

#define GEN_COMPILER_TMP_ASG	(	IR_IDX,
		ATTR_IDX,
		SEM_DONE,
		LINE,
		COL,
		TYPE_IDX,
		SCOPE
	)

Value:

{NTR_IR_TBL(IR_IDX);                                                   \
         ATTR_IDX                     = gen_compiler_tmp(LINE,COL,SCOPE,TRUE); \
         AT_SEMANTICS_DONE(ATTR_IDX)    = SEM_DONE;                            \
         ATD_TYPE_IDX(ATTR_IDX)         = TYPE_IDX;                            \
         ATD_TMP_IDX(ATTR_IDX)          = IR_IDX;                              \
         ATD_FLD(ATTR_IDX)              = IR_Tbl_Idx;                          \
         ATD_STOR_BLK_IDX(ATTR_IDX)     = SCP_SB_STACK_IDX(curr_scp_idx);      \
         AT_DEFINED(ATTR_IDX)           = TRUE;                                \
         IR_OPR(IR_IDX)                 = Asg_Opr;                             \
         IR_TYPE_IDX(IR_IDX)            = ATD_TYPE_IDX(ATTR_IDX);              \
         IR_FLD_L(IR_IDX)               = AT_Tbl_Idx;                          \
         IR_IDX_L(IR_IDX)               = ATTR_IDX;                            \
         IR_LINE_NUM_L(IR_IDX)          = LINE;                                \
         IR_LINE_NUM(IR_IDX)            = LINE;                                \
         IR_COL_NUM_L(IR_IDX)           = COL;                                 \
         IR_COL_NUM(IR_IDX)             = COL;                                 \
        }

Definition at line 4410 of file sytb.m.

Referenced by char_len_resolution(), copy_and_replace_tmps(), create_loop_stmts(), create_runtime_array_constructor(), create_tmp_asg(), create_tmp_DV_asg(), create_tmp_from_stmt_func(), do_loop_expr_semantics(), do_stmt_semantics(), final_arg_work(), flatten_function_call(), gen_bd_entry(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_loop_end_ir(), gen_single_automatic_allocate(), ntr_bnds_sh_tmp_list(), ntr_bnds_tmp_list(), save_array_syntax_subscripts(), short_circuit_branch(), short_circuit_high_level_if(), stmt_func_call_opr_handler(), test_size_stmts(), transfer_intrinsic(), and validate_char_len().

#define GL_CIF_FILE_ID ( IDX ) global_line_tbl[IDX].cif_file_id

Definition at line 3655 of file sytb.m.

Referenced by cif_flush_include_recs(), dump_gl_ntry(), get_line_and_file_id(), global_to_file_id(), init_src_input(), open_include_file(), print_buffered_messages(), set_related_gl_source_lines(), and update_global_line().

#define GL_FILE_LINE ( IDX ) global_line_tbl[IDX].file_line

Definition at line 3656 of file sytb.m.

Referenced by dump_gl_ntry(), fixed_classify_line(), free_classify_line(), init_src_input(), and update_global_line().

#define GL_FILE_NAME_IDX ( IDX ) global_line_tbl[IDX].file_name_idx

Definition at line 3657 of file sytb.m.

Referenced by dump_gl_ntry(), and update_global_line().

#define GL_FILE_NAME_LEN ( IDX ) global_line_tbl[IDX].file_name_len

Definition at line 3658 of file sytb.m.

Referenced by dump_gl_ntry(), and update_global_line().

#define GL_FILE_NAME_LONG ( IDX ) &(str_pool[GL_FILE_NAME_IDX(IDX)].name_long)

Definition at line 3666 of file sytb.m.

#define GL_FILE_NAME_PTR ( IDX ) &str_pool[GL_FILE_NAME_IDX(IDX)].name_char

Definition at line 3667 of file sytb.m.

Referenced by check_call_for_global_def(), cvrt_to_pdg(), dump_gl_ntry(), global_name_semantics(), global_to_local_file(), init_PDGCS(), output_msg(), print_buffered_messages(), and update_global_line().

#define GL_GLOBAL_LINE ( IDX ) global_line_tbl[IDX].global_line

Definition at line 3659 of file sytb.m.

Referenced by dump_gl_ntry(), fixed_classify_line(), free_classify_line(), init_src_input(), print_buffered_messages(), and update_global_line().

#define GL_IL_ARG_DESC_IDX ( IDX ) global_ir_list_tbl[IDX].il.link.prev_idx

Definition at line 3934 of file sytb.m.

#define GL_IL_ARG_DESC_VARIANT ( IDX ) global_ir_list_tbl[IDX].il.link.arg_desc

Definition at line 3931 of file sytb.m.

Referenced by copy_from_gl_subtree().

#define GL_IL_COL_NUM ( IDX ) global_ir_list_tbl[IDX].il.op.col_num

Definition at line 3928 of file sytb.m.

#define GL_IL_CONSTANT_SUBSCRIPT ( IDX ) global_ir_list_tbl[IDX].il.link.flag_2

Definition at line 3938 of file sytb.m.

#define GL_IL_DISTRIBUTION ( IDX ) global_ir_list_tbl[IDX].il.link.for_ref

Definition at line 3957 of file sytb.m.

#define GL_IL_DISTRIBUTION_VARIANT ( IDX ) global_ir_list_tbl[IDX].il.link.flag_8

Definition at line 3953 of file sytb.m.

#define GL_IL_FLD ( IDX ) global_ir_list_tbl[IDX].il.op.fld

Definition at line 3930 of file sytb.m.

Referenced by copy_from_gl_subtree().

#define GL_IL_FORMAT_EXPECTED ( IDX ) global_ir_list_tbl[IDX].il.link.flag_2

Definition at line 3943 of file sytb.m.

#define GL_IL_FORWARD_REF ( IDX ) global_ir_list_tbl[IDX].il.link.for_ref

Definition at line 3956 of file sytb.m.

#define GL_IL_HAS_CONSTRUCTOR ( IDX ) global_ir_list_tbl[IDX].il.link.flag_4

Definition at line 3949 of file sytb.m.

#define GL_IL_HAS_FUNCTIONS ( IDX ) global_ir_list_tbl[IDX].il.link.flag_1

Definition at line 3946 of file sytb.m.

#define GL_IL_IDX ( IDX ) global_ir_list_tbl[IDX].il.op.idx

Definition at line 3926 of file sytb.m.

Referenced by copy_from_gl_subtree(), and copy_to_gl_subtree().

#define GL_IL_INTRIN_PLACE_HOLDER ( IDX ) global_ir_list_tbl[IDX].il.link.flag_6

Definition at line 3951 of file sytb.m.

#define GL_IL_LINE_NUM ( IDX ) global_ir_list_tbl[IDX].il.op.line_num

Definition at line 3927 of file sytb.m.

#define GL_IL_LIST_CNT ( IDX ) global_ir_list_tbl[IDX].il.op.line_num

Definition at line 3929 of file sytb.m.

#define GL_IL_MUST_BE_LOOP ( IDX ) global_ir_list_tbl[IDX].il.link.flag_2

Definition at line 3947 of file sytb.m.

#define GL_IL_MUST_FLATTEN ( IDX ) global_ir_list_tbl[IDX].il.link.flag_3

Definition at line 3948 of file sytb.m.

#define GL_IL_NAMELIST_EXPECTED ( IDX ) global_ir_list_tbl[IDX].il.link.flag_1

Definition at line 3942 of file sytb.m.

#define GL_IL_NEXT_LIST_IDX ( IDX ) global_ir_list_tbl[IDX].il.link.nxt_idx

Definition at line 3925 of file sytb.m.

Referenced by copy_from_gl_subtree(), and copy_to_gl_subtree().

#define GL_IL_NONDEFAULT_IMP_DO_LCV ( IDX ) global_ir_list_tbl[IDX].il.link.flag_7

Definition at line 3952 of file sytb.m.

#define GL_IL_OPND ( IDX ) global_ir_list_tbl[IDX].il.op

Definition at line 3961 of file sytb.m.

#define GL_IL_PE_SUBSCRIPT ( IDX ) global_ir_list_tbl[IDX].il.link.flag_3

Definition at line 3939 of file sytb.m.

#define GL_IL_PREV_LIST_IDX ( IDX ) global_ir_list_tbl[IDX].il.link.prev_idx

Definition at line 3933 of file sytb.m.

Referenced by copy_to_gl_subtree().

#define GL_IL_STRUCT_REF ( IDX ) global_ir_list_tbl[IDX].il.link.flag_5

Definition at line 3950 of file sytb.m.

#define GL_IL_VECTOR_SUBSCRIPT ( IDX ) global_ir_list_tbl[IDX].il.link.flag_1

Definition at line 3937 of file sytb.m.

#define GL_IL_WORD	(	IDX,
		WD
	)	global_ir_list_tbl[IDX].words[WD]

Definition at line 3959 of file sytb.m.

#define GL_INCLUDE_FILE_COL ( IDX ) global_line_tbl[IDX].incld_file_col

Definition at line 3660 of file sytb.m.

Referenced by dump_gl_ntry(), and update_global_line().

#define GL_INCLUDE_FILE_LINE ( IDX ) global_line_tbl[IDX].incld_file_line

Definition at line 3661 of file sytb.m.

Referenced by dump_gl_ntry(), and update_global_line().

#define GL_IR_ARRAY_SYNTAX ( IDX ) global_ir_tbl[IDX].op_l.flag_2

Definition at line 3910 of file sytb.m.

#define GL_IR_COL_NUM ( IDX ) global_ir_tbl[IDX].opr.col_num

Definition at line 3892 of file sytb.m.

#define GL_IR_COL_NUM_L ( IDX ) global_ir_tbl[IDX].op_l.col_num

Definition at line 3904 of file sytb.m.

#define GL_IR_COL_NUM_R ( IDX ) global_ir_tbl[IDX].op_r.col_num

Definition at line 3912 of file sytb.m.

#define GL_IR_CONTIG_ARRAY ( IDX ) global_ir_tbl[IDX].opr.dim

Definition at line 3900 of file sytb.m.

#define GL_IR_DV_DIM ( IDX ) global_ir_tbl[IDX].opr.dim

Definition at line 3899 of file sytb.m.

#define GL_IR_FLD_L ( IDX ) global_ir_tbl[IDX].op_l.fld

Definition at line 3905 of file sytb.m.

Referenced by copy_from_gl_subtree().

#define GL_IR_FLD_R ( IDX ) global_ir_tbl[IDX].op_r.fld

Definition at line 3913 of file sytb.m.

Referenced by copy_from_gl_subtree().

#define GL_IR_IDX_L ( IDX ) global_ir_tbl[IDX].op_l.idx

Definition at line 3906 of file sytb.m.

Referenced by copy_from_gl_subtree(), and copy_to_gl_subtree().

#define GL_IR_IDX_R ( IDX ) global_ir_tbl[IDX].op_r.idx

Definition at line 3914 of file sytb.m.

Referenced by copy_from_gl_subtree(), and copy_to_gl_subtree().

#define GL_IR_INLINE_STATE ( IDX ) global_ir_tbl[IDX].opr.dim

Definition at line 3902 of file sytb.m.

#define GL_IR_LINE_NUM ( IDX ) global_ir_tbl[IDX].opr.line_num

Definition at line 3893 of file sytb.m.

#define GL_IR_LINE_NUM_L ( IDX ) global_ir_tbl[IDX].op_l.line_num

Definition at line 3907 of file sytb.m.

#define GL_IR_LINE_NUM_R ( IDX ) global_ir_tbl[IDX].op_r.line_num

Definition at line 3915 of file sytb.m.

#define GL_IR_LIST_CNT_L ( IDX ) global_ir_tbl[IDX].op_l.line_num

Definition at line 3908 of file sytb.m.

#define GL_IR_LIST_CNT_R ( IDX ) global_ir_tbl[IDX].op_r.line_num

Definition at line 3916 of file sytb.m.

#define GL_IR_NEXT_IDX ( IDX ) global_ir_tbl[IDX].opr.line_num

Definition at line 3894 of file sytb.m.

#define GL_IR_OPND_L ( IDX ) global_ir_tbl[IDX].op_l

Definition at line 3919 of file sytb.m.

#define GL_IR_OPND_R ( IDX ) global_ir_tbl[IDX].op_r

Definition at line 3920 of file sytb.m.

#define GL_IR_OPR ( IDX ) global_ir_tbl[IDX].opr.the_operator

Definition at line 3895 of file sytb.m.

#define GL_IR_RANK ( IDX ) global_ir_tbl[IDX].opr.rank

Definition at line 3898 of file sytb.m.

#define GL_IR_SHORT_CIRCUIT_L ( IDX ) global_ir_tbl[IDX].op_l.flag_1

Definition at line 3909 of file sytb.m.

#define GL_IR_SHORT_CIRCUIT_R ( IDX ) global_ir_tbl[IDX].op_r.flag_1

Definition at line 3917 of file sytb.m.

#define GL_IR_TYPE_IDX ( IDX ) global_ir_tbl[IDX].opr.type_idx

Definition at line 3896 of file sytb.m.

#define GL_IR_WHOLE_ARRAY ( IDX ) global_ir_tbl[IDX].opr.dim

Definition at line 3901 of file sytb.m.

#define GL_PATH_NAME_IDX ( IDX ) global_line_tbl[IDX].path_name_idx

Definition at line 3662 of file sytb.m.

Referenced by dump_gl_ntry(), and update_global_line().

#define GL_PATH_NAME_LEN ( IDX ) global_line_tbl[IDX].path_name_len

Definition at line 3663 of file sytb.m.

Referenced by dump_gl_ntry(), and update_global_line().

#define GL_PATH_NAME_LONG ( IDX ) &(str_pool[GL_PATH_NAME_IDX(IDX)].name_long)

Definition at line 3669 of file sytb.m.

#define GL_PATH_NAME_PTR ( IDX ) &str_pool[GL_PATH_NAME_IDX(IDX)].name_char

Definition at line 3670 of file sytb.m.

Referenced by dump_gl_ntry(), global_to_local_path(), and update_global_line().

#define GL_SH_CIF_SKIP_ME ( IDX ) global_sh_tbl[IDX].cif_skip_me

Definition at line 3966 of file sytb.m.

#define GL_SH_COL_NUM ( IDX ) global_sh_tbl[IDX].col_num

Definition at line 3967 of file sytb.m.

Referenced by gen_gl_sh().

#define GL_SH_COMPILER_GEN ( IDX ) global_sh_tbl[IDX].compiler_gen

Definition at line 3968 of file sytb.m.

Referenced by gen_gl_sh().

#define GL_SH_DOALL_LOOP_END ( IDX ) global_sh_tbl[IDX].doall_loop_end

Definition at line 3969 of file sytb.m.

#define GL_SH_ERR_FLG ( IDX ) global_sh_tbl[IDX].stmt_parse_err

Definition at line 3970 of file sytb.m.

Referenced by gen_gl_sh().

#define GL_SH_GLB_LINE ( IDX ) global_sh_tbl[IDX].glb_line_num

Definition at line 3971 of file sytb.m.

Referenced by gen_gl_sh().

#define GL_SH_INLINING_ATTEMPTED ( IDX ) global_sh_tbl[IDX].inlining_attempted

Definition at line 3972 of file sytb.m.

#define GL_SH_IR_IDX ( IDX ) global_sh_tbl[IDX].ir_idx

Definition at line 3973 of file sytb.m.

Referenced by copy_from_gl_subtree(), copy_to_gl_subtree(), directive_stmt_semantics(), parse_assert_directive(), and parse_star_directives().

#define GL_SH_LABELED ( IDX ) global_sh_tbl[IDX].labeled

Definition at line 3974 of file sytb.m.

Referenced by gen_gl_sh().

#define GL_SH_LOOP_END ( IDX ) global_sh_tbl[IDX].loop_end

Definition at line 3975 of file sytb.m.

#define GL_SH_NEXT_IDX ( IDX ) global_sh_tbl[IDX].next_sh_idx

Definition at line 3976 of file sytb.m.

Referenced by gen_gl_sh(), and insert_global_sh().

#define GL_SH_P2_SKIP_ME ( IDX ) global_sh_tbl[IDX].skip_pass_2

Definition at line 3977 of file sytb.m.

Referenced by gen_gl_sh().

#define GL_SH_PARENT_BLK_IDX ( IDX ) global_sh_tbl[IDX].parent_blk_idx

Definition at line 3978 of file sytb.m.

#define GL_SH_PREV_IDX ( IDX ) global_sh_tbl[IDX].prev_sh_idx

Definition at line 3979 of file sytb.m.

Referenced by gen_gl_sh().

#define GL_SH_STMT_TYPE ( IDX ) global_sh_tbl[IDX].stmt_type

Definition at line 3980 of file sytb.m.

Referenced by gen_gl_sh().

#define GL_SOURCE_LINES ( IDX ) global_line_tbl[IDX].source_lines

Definition at line 3664 of file sytb.m.

Referenced by dump_gl_ntry(), end_blockdata(), end_function(), end_module(), end_program_unit(), end_subroutine(), fixed_get_stmt(), free_get_stmt(), preprocess_only_driver(), set_related_gl_source_lines(), and update_global_line().

#define GN_ATTR_IDX ( IDX ) global_name_tbl[IDX].attr_idx

Definition at line 3675 of file sytb.m.

Referenced by check_call_for_global_def(), check_global_pgm_unit(), copy_sbtree(), copy_to_gl_subtree(), create_mod_info_file(), directive_stmt_semantics(), dump_gn_ntry(), fill_in_global_attr_ntry(), find_prog_unit_tbl(), ntr_common_in_global_attr_tbl(), ntr_global_name_tbl(), ntr_ref_in_global_tbl(), print_gn_tbl(), set_inline_state(), and storage_blk_resolution().

#define GN_NAME_IDX ( IDX ) global_name_tbl[IDX].name_idx

Definition at line 3676 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_gn_ntry(), init_compiler(), ntr_common_in_global_attr_tbl(), ntr_global_attr_tbl(), ntr_global_name_tbl(), parse_module_stmt(), parse_use_stmt(), and srch_global_name_tbl().

#define GN_NAME_LEN ( IDX ) global_name_tbl[IDX].name_len

Definition at line 3677 of file sytb.m.

Referenced by dump_gn_ntry(), init_compiler(), ntr_common_in_global_attr_tbl(), ntr_global_attr_tbl(), ntr_global_name_tbl(), and ntr_ref_in_global_tbl().

#define GN_NAME_LONG ( IDX ) &(str_pool[GN_NAME_IDX(IDX)].name_long)

Definition at line 3678 of file sytb.m.

#define GN_NAME_PTR ( IDX ) &str_pool[GN_NAME_IDX(IDX)].name_char

Definition at line 3679 of file sytb.m.

Referenced by dump_gn_ntry().

#define GT_BIT_LEN ( IDX ) global_type_tbl[IDX].fld.bit_len

Definition at line 3683 of file sytb.m.

Referenced by dump_gt_ntry().

#define GT_CHAR_CLASS ( IDX ) global_type_tbl[IDX].fld.char_class

Definition at line 3684 of file sytb.m.

Referenced by dump_gt_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), ntr_global_type_tbl(), and print_global_type_f().

#define GT_DCL_VALUE ( IDX ) global_type_tbl[IDX].fld.dcl_value

Definition at line 3685 of file sytb.m.

Referenced by dump_gt_ntry(), ntr_global_type_tbl(), and print_global_type_f().

#define GT_DESC ( IDX ) global_type_tbl[IDX].fld.desc

Definition at line 3686 of file sytb.m.

Referenced by dump_gt_ntry(), ntr_global_type_tbl(), and print_global_type_f().

#define GT_LENGTH ( IDX ) global_type_tbl[IDX].wd.length

Definition at line 3688 of file sytb.m.

Referenced by compare_global_derived_type(), dump_gt_ntry(), and ntr_global_type_tbl().

#define GT_LENGTH_LIN_TYPE ( IDX ) global_type_tbl[IDX].fld.len_lin_type

Definition at line 3689 of file sytb.m.

Referenced by compare_global_derived_type(), dump_gt_ntry(), and ntr_global_type_tbl().

#define GT_LINEAR_TYPE ( IDX ) global_type_tbl[IDX].fld.linear_type

Definition at line 3690 of file sytb.m.

Referenced by compare_global_array(), compare_global_derived_type(), compare_global_type_rank(), dump_gb_ntry(), dump_gt_ntry(), global_name_semantics(), ntr_global_type_tbl(), and print_global_type_f().

#define GT_PTR_INCREMENT ( IDX ) global_type_tbl[IDX].wd.length[MAX_WORDS_FOR_INTEGER]

Definition at line 3691 of file sytb.m.

Referenced by dump_gt_ntry().

#define GT_STRUCT_IDX ( IDX ) global_type_tbl[IDX].fld.type_idx

Definition at line 3687 of file sytb.m.

Referenced by compare_global_derived_type(), compare_global_type_rank(), dump_gt_ntry(), global_name_semantics(), ntr_global_type_tbl(), print_global_type_f(), and print_gn_tbl().

#define GT_TYPE ( IDX ) global_type_tbl[IDX].fld.type

Definition at line 3693 of file sytb.m.

Referenced by compare_global_derived_type(), compare_global_type_rank(), dump_gt_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), ntr_global_type_tbl(), print_global_type_f(), and print_gn_tbl().

#define HN_ATTR_IDX ( IDX ) hidden_name_tbl[IDX].attr_idx

Definition at line 3697 of file sytb.m.

Referenced by compress_tbls(), dump_hn_ntry(), ntr_hidden_name_tbl(), resolve_attr(), and srch_hidden_name_tbl().

#define HN_NAME_IDX ( IDX ) hidden_name_tbl[IDX].name_idx

Definition at line 3698 of file sytb.m.

Referenced by compress_tbls(), create_hidden_name_tbl(), dump_hn_ntry(), ntr_hidden_name_tbl(), resolve_attr(), and srch_hidden_name_tbl().

#define HN_NAME_LEN ( IDX ) hidden_name_tbl[IDX].name_len

Definition at line 3699 of file sytb.m.

Referenced by create_hidden_name_tbl(), dump_hn_ntry(), and ntr_hidden_name_tbl().

#define IL_ARG_DESC_IDX ( IDX )

Value:

(IL_ARG_DESC_VARIANT(IDX) ?                                          \
                ir_list_tbl : ir_list_var_error("IL_ARG_DESC_IDX", IDX))      \
                [IDX].il.link.prev_idx

Definition at line 3830 of file sytb.m.

Referenced by abs_intrinsic(), adjustl_intrinsic(), aimag_intrinsic(), aint_intrinsic(), all_intrinsic(), allocated_intrinsic(), anint_intrinsic(), array_construct_semantics(), assign_new_idxs_after_input(), associated_intrinsic(), atan2_intrinsic(), bit_size_intrinsic(), btest_intrinsic(), buffer_stmt_semantics(), call_list_semantics(), ceiling_intrinsic(), char_intrinsic(), check_elemental_conformance(), cif_call_site_rec(), clock_intrinsic(), cmplx_intrinsic(), compare_global_type_rank(), conform_check(), conjg_intrinsic(), copy_sbtree(), create_argchck_descriptor(), create_struct_constructor_asg(), cshift_intrinsic(), csmg_intrinsic(), cvmgp_intrinsic(), determine_slice_size(), digits_intrinsic(), dim_intrinsic(), do_slice_asg(), dot_product_intrinsic(), dprod_intrinsic(), dshiftl_intrinsic(), dsm_numthreads_intrinsic(), dump_il_ntry(), eoshift_intrinsic(), epsilon_intrinsic(), expand_io_list(), fetch_and_add_intrinsic(), floor_intrinsic(), fraction_intrinsic(), gen_arg_type_descriptor(), get_ieee_status_intrinsic(), global_name_semantics(), huge_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ichar_intrinsic(), idate_intrinsic(), ieee_real_intrinsic(), ilen_intrinsic(), index_intrinsic(), int_intrinsic(), interpret_repeat_intrinsic(), interpret_reshape_intrinsic(), interpret_shape_intrinsic(), interpret_size_intrinsic(), interpret_transfer_intrinsic(), interpret_ubound_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), ishft_intrinsic(), ishftc_intrinsic(), kind_intrinsic(), lbound_intrinsic(), leadz_intrinsic(), len_trim_intrinsic(), lge_intrinsic(), loc_intrinsic(), logical_intrinsic(), mask_intrinsic(), matmul_intrinsic(), max_intrinsic(), maxexponent_intrinsic(), mergee_intrinsic(), minexponent_intrinsic(), minval_intrinsic(), mod_intrinsic(), modulo_intrinsic(), mvbits_intrinsic(), nearest_intrinsic(), nint_intrinsic(), not_intrinsic(), ntr_ref_in_global_tbl(), null_intrinsic(), num_images_intrinsic(), omp_set_lock_intrinsic(), optimize_reshape(), pack_intrinsic(), precision_intrinsic(), present_intrinsic(), process_char_len(), process_variable_size_func(), random_number_intrinsic(), random_seed_intrinsic(), range_intrinsic(), ranget_intrinsic(), real_intrinsic(), repeat_intrinsic(), reshape_intrinsic(), resolve_ext_opr(), rrspacing_intrinsic(), scale_intrinsic(), selected_int_kind_intrinsic(), selected_real_kind_intrinsic(), set_exponent_intrinsic(), set_ieee_exception_intrinsic(), set_shape_for_deferred_funcs(), shape_intrinsic(), shift_intrinsic(), sign_intrinsic(), sin_intrinsic(), size_intrinsic(), sizeof_intrinsic(), spacing_intrinsic(), spread_intrinsic(), stmt_func_call_opr_handler(), stop_pause_stmt_semantics(), struct_construct_opr_handler(), system_clock_intrinsic(), tiny_intrinsic(), transfer_intrinsic(), transpose_intrinsic(), trim_intrinsic(), ubound_intrinsic(), and unpack_intrinsic().

#define IL_ARG_DESC_VARIANT ( IDX ) ir_list_tbl[IDX].il.link.arg_desc

Definition at line 3817 of file sytb.m.

Referenced by add_alt_return_lbl(), all_intrinsic(), array_construct_semantics(), assign_new_idxs_after_input(), buffer_stmt_semantics(), call_list_semantics(), compress_tbls(), copy_sbtree(), copy_subtree(), copy_to_gl_subtree(), dim_intrinsic(), dump_il_ntry(), expand_io_list(), flatten_function_call(), gen_il(), io_list_semantics(), ishft_intrinsic(), ishftc_intrinsic(), lbound_intrinsic(), make_base_subtree(), minval_intrinsic(), mvbits_intrinsic(), nearest_intrinsic(), num_images_intrinsic(), parse_actual_arg_spec(), parse_backspace_stmt(), parse_buffer_stmt(), parse_endfile_stmt(), parse_io_control_list(), parse_rewind_stmt(), print_list(), resolve_ext_opr(), rrspacing_intrinsic(), selected_int_kind_intrinsic(), size_intrinsic(), spacing_intrinsic(), stmt_func_call_opr_handler(), stop_pause_stmt_semantics(), struct_construct_opr_handler(), transfer_intrinsic(), and ubound_intrinsic().

#define IL_ARG_MULTI_FLAGS ( IDX ) ir_list_tbl[IDX].il.link.multi_flags

Definition at line 3818 of file sytb.m.

Referenced by cvrt_exp_to_pdg(), final_arg_work(), and print_list().

#define IL_COL_NUM ( IDX ) ir_list_tbl[IDX].il.op.col_num

Definition at line 3814 of file sytb.m.

Referenced by add_alt_return_lbl(), add_common_blk_objects_to_list(), add_substring_length(), adjust_char_value_len(), allocate_stmt_semantics(), analyse_loops(), array_construct_semantics(), assign_new_idxs_after_input(), assignment_stmt_semantics(), attr_semantics(), bounds_cdir_handler(), btest_intrinsic(), buffer_stmt_semantics(), build_fwd_ref_entry(), build_loop_tbl(), call_list_semantics(), case_stmt_semantics(), change_section_to_do(), char_len_resolution(), check_multiple_entry_func(), check_stat_variable(), cmplx_intrinsic(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_io_call_descriptor(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), cshift_intrinsic(), data_stmt_semantics(), deallocate_stmt_semantics(), decl_semantics(), determine_num_elements(), dim_intrinsic(), directive_stmt_semantics(), do_loop_expr_semantics(), do_single_asg(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dump_il_ntry(), else_stmt_semantics(), encode_decode_stmt_semantics(), end_select_blk(), eoshift_intrinsic(), equivalence_semantics(), expand_io_list(), final_arg_work(), find_attrs_used_in_bound(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), fold_all_subscripts(), fold_clen_opr(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_dbg_write_stmt(), gen_dv_def_loops(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_max_expr(), gen_forall_tmp(), gen_il(), gen_init_stmt(), gen_initialized_tmp(), gen_lb_array_ref(), gen_loop_end_ir(), gen_section_ref(), gen_sf_dv_whole_def(), gen_split_alloc(), gen_stmt_expansion_opr(), gen_tmp_equal_max_zero(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), get_ieee_status_intrinsic(), get_stmt_tmp(), goto_stmt_semantics(), ibset_intrinsic(), if_stmt_semantics(), imp_do_metamorphed(), index_intrinsic(), init_whole_array(), inquire_stmt_semantics(), insert_init_stmt_for_tmp(), interpret_implied_do(), io_ctl_list_semantics(), io_list_semantics(), ishftc_intrinsic(), lbound_intrinsic(), linearize_list_for_equiv(), make_base_assumed_size(), make_triplet_extent_tree(), mp_directive_semantics(), nearest_intrinsic(), num_images_intrinsic(), open_mp_directive_semantics(), parallel_cmic_semantics(), parse_actual_arg_spec(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_directives(), parse_do_stmt(), parse_doall_cmic(), parse_doparallel_cmic(), parse_else_stmt(), parse_encode_stmt(), parse_forall(), parse_id_directive(), parse_if_stmt(), parse_imp_do(), parse_io_control_list(), parse_label_list(), parse_mp_directive(), parse_open_mp_clauses(), parse_parallel_cmic(), parse_permutation_mic(), parse_prefetch_ref(), parse_print_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_sgi_dir_inline(), parse_type_dcl_stmt(), parse_var_common_list(), parse_write_stmt(), prefetch_ref_semantics(), print_Dv_Whole_Def_Opr(), print_list(), print_mp_dir_opr(), print_open_mp_dir_opr(), process_all_initialized_cpnts(), process_blockable_dir(), process_cpnt_inits(), process_interchange_dir(), put_string_in_tmp(), ranget_intrinsic(), read_stmt_semantics(), resolve_fwd_lbl_refs(), rrspacing_intrinsic(), save_array_syntax_subscripts(), search_expr_for_dargs(), section_semantics(), selected_int_kind_intrinsic(), set_directives_on_label(), set_ieee_exception_intrinsic(), shape_intrinsic(), size_intrinsic(), size_offset_min_max_calc(), spacing_intrinsic(), spread_intrinsic(), stop_pause_stmt_semantics(), subscript_opr_handler(), substring_opr_handler(), transform_char_sequence_ref(), translate_distant_ref1(), type_init_semantics(), ubound_intrinsic(), vv_subscript_semantics(), wait_send_semantics(), and write_stmt_semantics().

#define IL_CONSTANT_SUBSCRIPT ( IDX ) ir_list_tbl[IDX].il.link.flag_2

Definition at line 3840 of file sytb.m.

Referenced by print_list(), save_array_syntax_subscripts(), subscript_opr_handler(), substring_opr_handler(), and triplet_opr_handler().

#define IL_DISTRIBUTION ( IDX ) ir_list_tbl[IDX].il.link.for_ref

Definition at line 3859 of file sytb.m.

Referenced by cvrt_exp_to_pdg(), parse_redistribute_dir(), and print_list().

#define IL_DISTRIBUTION_VARIANT ( IDX ) ir_list_tbl[IDX].il.link.flag_8

Definition at line 3855 of file sytb.m.

Referenced by parse_redistribute_dir(), and print_list().

#define IL_ELEMENT ( IDX ) ir_list_tbl[IDX].il_long64.lwd2

Definition at line 3862 of file sytb.m.

Referenced by interpret_array_construct_opr(), interpret_implied_do(), and interpret_ref().

#define IL_FLD ( IDX ) ir_list_tbl[IDX].il.op.fld

Definition at line 3816 of file sytb.m.

Referenced by abs_intrinsic(), add_alt_return_lbl(), add_common_blk_objects_to_list(), add_substring_length(), adjust_char_value_len(), adjustl_intrinsic(), all_intrinsic(), alloc_obj_opr_handler(), allocate_stmt_semantics(), analyse_loops(), array_construct_semantics(), assign_new_idxs_after_input(), assign_offsets_for_equiv_groups(), assignment_stmt_semantics(), attr_is_in_list(), attr_semantics(), bounds_cdir_handler(), btest_intrinsic(), buffer_stmt_semantics(), build_fwd_ref_entry(), build_loop_tbl(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), change_asg_to_where(), change_section_to_do(), change_section_to_this_element(), change_subscript(), char_intrinsic(), char_len_resolution(), check_array_bounds(), check_dependence(), check_il_for_attrs(), check_mp_dir_nesting(), check_multiple_entry_func(), check_ordered_open_mp_nesting(), check_stat_variable(), check_substring_bounds(), cif_call_site_rec(), cif_loop_def_rec(), cmplx_intrinsic(), compare_il(), compress_tbls(), conform_check(), copy_sbtree(), copy_to_gl_subtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_io_call_descriptor(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), create_tmp_DV_asg(), cshift_intrinsic(), csmg_intrinsic(), cvmgp_intrinsic(), cvrt_exp_to_pdg(), data_imp_do_semantics(), data_stmt_semantics(), deallocate_local_allocatables(), deallocate_stmt_semantics(), decl_semantics(), determine_lb_ub(), determine_num_elements(), determine_slice_size(), dim_intrinsic(), directive_stmt_semantics(), discombobulate_structure_ref(), do_loop_expr_semantics(), do_single_asg(), do_slice_asg(), do_stmt_semantics(), doall_cmic_semantics(), doall_end_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dshiftl_intrinsic(), dsm_numthreads_intrinsic(), dump_at_ntry(), dump_il_ntry(), else_stmt_semantics(), encode_decode_stmt_semantics(), end_forall_semantics(), end_select_blk(), endparallel_cmic_semantics(), eoshift_intrinsic(), equivalence_semantics(), expand_io_list(), final_arg_work(), find_attr_in_il(), find_attrs_in_il(), find_attrs_used_in_bound(), find_host_associated_attrs_in_il(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), fold_all_subscripts(), fold_clen_opr(), forall_semantics(), free_ir_list(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_dbg_write_stmt(), gen_dv_def_loops(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_if_mask(), gen_forall_loops(), gen_forall_max_expr(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_il(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_ir(), gen_lb_array_ref(), gen_loop_end_ir(), gen_runtime_bounds(), gen_section_ref(), gen_sf_dv_whole_def(), gen_split_alloc(), gen_stmt_expansion_opr(), gen_tmp_equal_max_zero(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), get_ieee_status_intrinsic(), get_stmt_tmp(), global_name_semantics(), has_been_reprivatized(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ichar_intrinsic(), idate_intrinsic(), if_stmt_semantics(), il_is_symbolic_constant(), imp_do_metamorphed(), index_intrinsic(), init_whole_array(), inquire_stmt_semantics(), insert_argchck_calls(), insert_init_stmt_for_tmp(), int_intrinsic(), interpret_array_construct_opr(), interpret_implied_do(), interpret_ref(), interpret_reshape_intrinsic(), interpret_struct_construct_opr(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), is_local_forall_index(), ishft_intrinsic(), ishftc_intrinsic(), kind_intrinsic(), lbound_intrinsic(), len_trim_intrinsic(), lge_intrinsic(), linearize_list_for_equiv(), loc_intrinsic(), make_base_assumed_size(), make_new_bd_entries(), make_triplet_extent_tree(), mask_intrinsic(), max_intrinsic(), minval_intrinsic(), mod_intrinsic(), modulo_intrinsic(), mp_directive_semantics(), multiple_clause_err(), mvbits_intrinsic(), nearest_intrinsic(), nint_intrinsic(), not_intrinsic(), ntr_ref_in_global_tbl(), null_intrinsic(), nullify_stmt_semantics(), num_images_intrinsic(), open_mp_directive_semantics(), optimize_reshape(), optimize_whole_array_init(), parallel_cmic_semantics(), parse_actual_arg_spec(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_directives(), parse_do_stmt(), parse_doall_cmic(), parse_doparallel_cmic(), parse_else_stmt(), parse_encode_stmt(), parse_forall(), parse_id_directive(), parse_if_stmt(), parse_imp_do(), parse_io_control_list(), parse_label_list(), parse_lhs(), parse_mic_directives(), parse_mp_directive(), parse_open_mp_clauses(), parse_parallel_cmic(), parse_permutation_mic(), parse_prefetch_ref(), parse_print_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_sgi_dir_inline(), parse_type_dcl_stmt(), parse_var_common_list(), parse_write_stmt(), prefetch_ref_semantics(), present_intrinsic(), print_Dv_Whole_Def_Opr(), print_expanded_il(), print_list(), print_mp_dir_opr(), print_open_mp_dir_opr(), print_stmt_semantics(), process_all_initialized_cpnts(), process_blockable_dir(), process_char_len(), process_cpnt_inits(), process_data_imp_do_target(), process_deferred_functions(), process_interchange_dir(), push_data_value(), push_task_blk(), put_string_in_tmp(), random_number_intrinsic(), random_seed_intrinsic(), ranget_intrinsic(), read_stmt_semantics(), repeat_intrinsic(), reshape_intrinsic(), resolve_ext_opr(), resolve_fwd_lbl_refs(), rrspacing_intrinsic(), save_array_syntax_subscripts(), search_expr_for_dargs(), section_semantics(), select_stmt_semantics(), selected_int_kind_intrinsic(), selected_real_kind_intrinsic(), send_label_def(), set_directives_on_label(), set_global_value_variables(), set_ieee_exception_intrinsic(), set_mod_link_tbl_for_attr(), set_mod_link_tbl_for_il(), set_mp_task_flags(), set_open_mp_task_flags(), setup_interchange_level_list(), shape_intrinsic(), shift_intrinsic(), sign_intrinsic(), sin_intrinsic(), size_intrinsic(), size_offset_min_max_calc(), spacing_intrinsic(), spread_intrinsic(), srch_for_calls(), stmt_func_call_opr_handler(), stop_pause_stmt_semantics(), subscript_opr_handler(), substring_opr_handler(), test_size_stmts(), tmp_il_resolution(), transfer_intrinsic(), transform_char_sequence_ref(), translate_distant_ref(), translate_distant_ref1(), translate_distant_ref2(), tree_produces_dealloc(), trim_intrinsic(), triplet_opr_handler(), type_init_semantics(), ubound_intrinsic(), update_fld_type(), vv_subscript_semantics(), and write_stmt_semantics().

#define IL_FORMAT_EXPECTED ( IDX ) ir_list_tbl[IDX].il.link.flag_2

Definition at line 3845 of file sytb.m.

Referenced by io_ctl_list_semantics(), and parse_io_control_list().

#define IL_FORWARD_REF ( IDX ) ir_list_tbl[IDX].il.link.for_ref

Definition at line 3858 of file sytb.m.

Referenced by build_fwd_ref_entry(), and resolve_fwd_lbl_refs().

#define IL_HAS_CONSTRUCTOR ( IDX ) ir_list_tbl[IDX].il.link.flag_4

Definition at line 3851 of file sytb.m.

Referenced by expand_io_list(), and io_list_semantics().

#define IL_HAS_FUNCTIONS ( IDX ) ir_list_tbl[IDX].il.link.flag_1

Definition at line 3848 of file sytb.m.

Referenced by array_construct_semantics(), expand_imp_do(), expand_io_list(), io_list_semantics(), print_list(), and stmt_func_call_opr_handler().

#define IL_IDX ( IDX ) ir_list_tbl[IDX].il.op.idx

Definition at line 3812 of file sytb.m.

Referenced by abs_intrinsic(), add_alt_return_lbl(), add_common_blk_objects_to_list(), add_substring_length(), adjust_char_value_len(), adjustl_intrinsic(), aint_intrinsic(), all_intrinsic(), alloc_obj_opr_handler(), allocate_stmt_semantics(), analyse_loops(), anint_intrinsic(), array_construct_semantics(), assert_semantics(), assign_new_idxs_after_input(), assign_offsets_for_equiv_groups(), assignment_stmt_semantics(), attr_is_in_list(), attr_semantics(), bounds_cdir_handler(), btest_intrinsic(), buffer_stmt_semantics(), build_fwd_ref_entry(), build_loop_tbl(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), ceiling_intrinsic(), change_asg_to_where(), change_section_to_do(), change_section_to_this_element(), change_subscript(), char_intrinsic(), char_len_resolution(), check_array_bounds(), check_il_for_attrs(), check_mp_dir_nesting(), check_multiple_entry_func(), check_stat_variable(), check_substring_bounds(), cif_call_site_rec(), cif_loop_def_rec(), cmplx_intrinsic(), compare_il(), compress_tbls(), conform_check(), copy_from_gl_subtree(), copy_sbtree(), copy_text_for_expansion(), copy_to_gl_subtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_interp_stmts(), create_io_call_descriptor(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), create_tmp_DV_asg(), cshift_intrinsic(), csmg_intrinsic(), cvmgp_intrinsic(), cvrt_exp_to_pdg(), data_imp_do_semantics(), data_stmt_semantics(), deallocate_local_allocatables(), deallocate_stmt_semantics(), decl_semantics(), determine_lb_ub(), determine_num_elements(), determine_slice_size(), dim_intrinsic(), directive_stmt_semantics(), discombobulate_structure_ref(), do_loop_expr_semantics(), do_single_asg(), do_slice_asg(), do_stmt_semantics(), doall_cmic_semantics(), doall_end_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dshiftl_intrinsic(), dsm_numthreads_intrinsic(), dump_at_ntry(), dump_eq_ntry(), dump_il_ntry(), else_stmt_semantics(), encode_decode_stmt_semantics(), end_blk_mp_semantics(), end_forall_semantics(), end_select_blk(), end_where_semantics(), endparallel_cmic_semantics(), eoshift_intrinsic(), equivalence_semantics(), expand_imp_do(), expand_io_list(), final_arg_work(), final_attr_semantics(), find_attr_in_il(), find_attrs_in_il(), find_attrs_used_in_bound(), find_host_associated_attrs_in_il(), finish_cdir_id(), flatten_function_call(), floor_intrinsic(), fold_aggragate_expression(), fold_all_subscripts(), fold_clen_opr(), forall_semantics(), free_ir_list(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_dbg_write_stmt(), gen_dv_def_loops(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_loops(), gen_forall_max_expr(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_il(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_ir(), gen_lb_array_ref(), gen_loop_end_ir(), gen_runtime_bounds(), gen_section_ref(), gen_sf_dv_whole_def(), gen_split_alloc(), gen_tmp_equal_max_zero(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), get_ieee_status_intrinsic(), get_stmt_tmp(), global_name_semantics(), goto_stmt_semantics(), has_been_reprivatized(), host_associated_attr_semantics(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ichar_intrinsic(), ieee_real_intrinsic(), if_stmt_semantics(), il_is_symbolic_constant(), imp_do_metamorphed(), index_intrinsic(), init_directive(), init_whole_array(), inquire_stmt_semantics(), insert_argchck_calls(), insert_init_stmt_for_tmp(), int_intrinsic(), interpret_array_construct_opr(), interpret_csmg_opr(), interpret_cvmgt_opr(), interpret_data_imp_do(), interpret_implied_do(), interpret_index_opr(), interpret_max_min_opr(), interpret_ref(), interpret_srk_intrinsic(), interpret_struct_construct_opr(), io_ctl_list_semantics(), io_list_semantics(), is_local_forall_index(), ishft_intrinsic(), ishftc_intrinsic(), kind_intrinsic(), lbound_intrinsic(), len_intrinsic(), len_trim_intrinsic(), lge_intrinsic(), linearize_list_for_equiv(), loc_intrinsic(), logical_intrinsic(), make_base_assumed_size(), make_new_bd_entries(), make_triplet_extent_tree(), mask_intrinsic(), max_intrinsic(), max_opr_handler(), merge_equivalence_groups1(), minval_intrinsic(), mod_intrinsic(), modulo_intrinsic(), mp_directive_semantics(), multiple_clause_err(), must_reassign_XT_temp(), mvbits_intrinsic(), nearest_intrinsic(), nint_intrinsic(), not_intrinsic(), not_visible_semantics(), ntr_ref_in_global_tbl(), null_intrinsic(), nullify_stmt_semantics(), num_images_intrinsic(), open_mp_directive_semantics(), pack_intrinsic(), parallel_cmic_semantics(), parse_actual_arg_spec(), parse_copy_assumed_shape_dir(), parse_data_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_directives(), parse_do_stmt(), parse_doall_cmic(), parse_doparallel_cmic(), parse_else_stmt(), parse_encode_stmt(), parse_forall(), parse_id_directive(), parse_if_stmt(), parse_io_control_list(), parse_label_list(), parse_lhs(), parse_mic_directives(), parse_mp_directive(), parse_open_mp_clauses(), parse_parallel_cmic(), parse_permutation_mic(), parse_prefetch_ref(), parse_print_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_sgi_dir_inline(), parse_type_dcl_stmt(), parse_var_common_list(), parse_write_stmt(), pop_task_blk(), prefetch_ref_semantics(), present_intrinsic(), print_Dv_Whole_Def_Opr(), print_expanded_il(), print_list(), print_mp_dir_opr(), print_open_mp_dir_opr(), print_stmt_semantics(), process_all_initialized_cpnts(), process_blockable_dir(), process_cpnt_inits(), process_data_imp_do_target(), process_deferred_io_list(), process_interchange_dir(), process_variable_size_func(), push_data_value(), push_task_blk(), put_string_in_tmp(), random_number_intrinsic(), random_seed_intrinsic(), ranget_intrinsic(), read_stmt_semantics(), real_intrinsic(), repeat_intrinsic(), reshape_intrinsic(), resolve_attr(), resolve_ext_opr(), resolve_fwd_lbl_refs(), rrspacing_intrinsic(), save_array_syntax_subscripts(), search_expr_for_dargs(), section_semantics(), select_stmt_semantics(), selected_int_kind_intrinsic(), selected_real_kind_intrinsic(), send_attr_ntry(), send_label_def(), set_directives_on_label(), set_global_value_variables(), set_ieee_exception_intrinsic(), set_mod_link_tbl_for_attr(), set_mod_link_tbl_for_il(), set_mp_task_flags(), set_open_mp_task_flags(), setup_interchange_level_list(), shape_intrinsic(), shift_intrinsic(), sign_intrinsic(), sin_intrinsic(), size_intrinsic(), size_offset_min_max_calc(), spacing_intrinsic(), spread_intrinsic(), srch_for_calls(), stop_pause_stmt_semantics(), struct_construct_opr_handler(), subscript_opr_handler(), substring_opr_handler(), system_clock_intrinsic(), test_size_stmts(), tmp_il_resolution(), transfer_intrinsic(), transform_char_sequence_ref(), translate_distant_ref(), translate_distant_ref1(), translate_distant_ref2(), trim_intrinsic(), triplet_opr_handler(), type_init_semantics(), ubound_intrinsic(), update_fld_type(), vv_subscript_semantics(), wait_send_semantics(), where_stmt_semantics(), and write_stmt_semantics().

#define IL_INTRIN_PLACE_HOLDER ( IDX ) ir_list_tbl[IDX].il.link.flag_6

Definition at line 3853 of file sytb.m.

Referenced by all_intrinsic(), final_arg_work(), lbound_intrinsic(), minval_intrinsic(), size_intrinsic(), transfer_intrinsic(), and ubound_intrinsic().

#define IL_LINE_NUM ( IDX ) ir_list_tbl[IDX].il.op.line_num

Definition at line 3813 of file sytb.m.

Referenced by add_alt_return_lbl(), add_common_blk_objects_to_list(), add_substring_length(), adjust_char_value_len(), allocate_stmt_semantics(), analyse_loops(), array_construct_semantics(), assign_new_idxs_after_input(), assignment_stmt_semantics(), attr_semantics(), bounds_cdir_handler(), btest_intrinsic(), buffer_stmt_semantics(), build_fwd_ref_entry(), build_loop_tbl(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), change_section_to_do(), char_len_resolution(), check_multiple_entry_func(), check_stat_variable(), cmplx_intrinsic(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_io_call_descriptor(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), cshift_intrinsic(), cvrt_exp_to_pdg(), data_stmt_semantics(), deallocate_stmt_semantics(), decl_semantics(), determine_num_elements(), dim_intrinsic(), directive_stmt_semantics(), do_loop_expr_semantics(), do_single_asg(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dump_il_ntry(), else_stmt_semantics(), encode_decode_stmt_semantics(), end_select_blk(), eoshift_intrinsic(), equivalence_semantics(), expand_io_list(), final_arg_work(), find_attrs_used_in_bound(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), fold_all_subscripts(), fold_clen_opr(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_dbg_write_stmt(), gen_dv_def_loops(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_max_expr(), gen_forall_tmp(), gen_il(), gen_init_stmt(), gen_initialized_tmp(), gen_lb_array_ref(), gen_loop_end_ir(), gen_section_ref(), gen_sf_dv_whole_def(), gen_split_alloc(), gen_stmt_expansion_opr(), gen_tmp_equal_max_zero(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), get_ieee_status_intrinsic(), get_stmt_tmp(), goto_stmt_semantics(), ibset_intrinsic(), if_stmt_semantics(), imp_do_metamorphed(), index_intrinsic(), init_whole_array(), inquire_stmt_semantics(), insert_init_stmt_for_tmp(), interpret_implied_do(), io_ctl_list_semantics(), io_list_semantics(), ishftc_intrinsic(), lbound_intrinsic(), linearize_list_for_equiv(), make_base_assumed_size(), make_triplet_extent_tree(), mp_directive_semantics(), nearest_intrinsic(), num_images_intrinsic(), open_mp_directive_semantics(), parallel_cmic_semantics(), parse_actual_arg_spec(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_directives(), parse_do_stmt(), parse_doall_cmic(), parse_doparallel_cmic(), parse_else_stmt(), parse_encode_stmt(), parse_forall(), parse_id_directive(), parse_if_stmt(), parse_imp_do(), parse_io_control_list(), parse_label_list(), parse_mp_directive(), parse_open_mp_clauses(), parse_parallel_cmic(), parse_permutation_mic(), parse_prefetch_ref(), parse_print_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_sgi_dir_inline(), parse_type_dcl_stmt(), parse_var_common_list(), parse_write_stmt(), prefetch_ref_semantics(), print_Dv_Whole_Def_Opr(), print_list(), print_mp_dir_opr(), print_open_mp_dir_opr(), process_all_initialized_cpnts(), process_blockable_dir(), process_cpnt_inits(), process_interchange_dir(), put_string_in_tmp(), ranget_intrinsic(), read_stmt_semantics(), resolve_fwd_lbl_refs(), rrspacing_intrinsic(), save_array_syntax_subscripts(), search_expr_for_dargs(), section_semantics(), selected_int_kind_intrinsic(), set_directives_on_label(), set_ieee_exception_intrinsic(), shape_intrinsic(), size_intrinsic(), size_offset_min_max_calc(), spacing_intrinsic(), spread_intrinsic(), stop_pause_stmt_semantics(), subscript_opr_handler(), substring_opr_handler(), transform_char_sequence_ref(), translate_distant_ref1(), type_init_semantics(), ubound_intrinsic(), vv_subscript_semantics(), wait_send_semantics(), and write_stmt_semantics().

#define IL_LIST_CNT ( IDX ) ir_list_tbl[IDX].il.op.line_num

Definition at line 3815 of file sytb.m.

Referenced by add_common_blk_objects_to_list(), build_fwd_ref_entry(), change_subscript(), check_mp_dir_nesting(), compare_il(), cvrt_exp_to_pdg(), do_stmt_semantics(), doall_cmic_semantics(), dump_il_ntry(), gen_forall_tmp_bd_entry(), gen_il(), init_whole_array(), interpret_implied_do(), interpret_ref(), mp_directive_semantics(), open_mp_directive_semantics(), parallel_cmic_semantics(), parse_copy_assumed_shape_dir(), parse_decode_stmt(), parse_do_stmt(), parse_doall_cmic(), parse_encode_stmt(), parse_forall(), parse_io_control_list(), parse_mp_directive(), parse_open_mp_clauses(), parse_parallel_cmic(), parse_prefetch_ref(), parse_print_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_write_stmt(), prefetch_ref_semantics(), print_Dv_Whole_Def_Opr(), print_list(), print_mp_dir_opr(), print_open_mp_dir_opr(), push_data_value(), send_label_def(), and set_directives_on_label().

#define IL_MUST_BE_LOOP ( IDX ) ir_list_tbl[IDX].il.link.flag_2

Definition at line 3849 of file sytb.m.

Referenced by expand_io_list(), io_list_semantics(), and print_list().

#define IL_MUST_FLATTEN ( IDX ) ir_list_tbl[IDX].il.link.flag_3

Definition at line 3850 of file sytb.m.

Referenced by expand_io_list(), io_list_semantics(), and print_list().

#define IL_NAMELIST_EXPECTED ( IDX ) ir_list_tbl[IDX].il.link.flag_1

Definition at line 3844 of file sytb.m.

Referenced by io_ctl_list_semantics(), and parse_io_control_list().

#define IL_NEXT_LIST_IDX ( IDX ) ir_list_tbl[IDX].il.link.nxt_idx

Definition at line 3811 of file sytb.m.

Referenced by add_alt_return_lbl(), add_common_blk_objects_to_list(), add_substring_length(), adjust_char_value_len(), aint_intrinsic(), all_intrinsic(), alloc_obj_opr_handler(), allocate_stmt_semantics(), analyse_loops(), anint_intrinsic(), array_construct_semantics(), array_element_to_scalar(), assert_semantics(), assign_new_idxs_after_input(), associated_intrinsic(), atan2_intrinsic(), attr_is_in_list(), attr_semantics(), bounds_cdir_handler(), btest_intrinsic(), buffer_stmt_semantics(), build_fwd_ref_entry(), build_loop_tbl(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), ceiling_intrinsic(), change_asg_to_where(), change_section_to_do(), change_section_to_this_element(), change_subscript(), char_intrinsic(), char_len_resolution(), character_to_character(), check_arg_for_co_array(), check_array_bounds(), check_dependence(), check_elemental_conformance(), check_expr_for_elementals(), check_for_constructors(), check_for_dependencies(), check_for_elementals(), check_forall_triplet_for_index(), check_il_for_attrs(), check_mp_dir_nesting(), check_multiple_entry_func(), check_ordered_open_mp_nesting(), check_substring_bounds(), cif_call_site_rec(), cif_loop_def_rec(), cmp_ref_trees(), cmplx_intrinsic(), compare_il(), compress_tbls(), concat_opr_handler(), conform_check(), copy_from_gl_subtree(), copy_sbtree(), copy_subtree(), copy_text_for_expansion(), copy_to_gl_subtree(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_interp_stmts(), create_io_call_descriptor(), create_loop_stmts(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_struct_constructor_asg(), create_tmp_asg(), cshift_intrinsic(), csmg_intrinsic(), cvmgp_intrinsic(), cvrt_exp_to_pdg(), data_imp_do_semantics(), data_stmt_semantics(), deallocate_local_allocatables(), deallocate_stmt_semantics(), decl_semantics(), defined_bin_opr_handler(), determine_lb_ub(), determine_num_elements(), determine_slice_size(), dim_intrinsic(), directive_stmt_semantics(), discombobulate_structure_ref(), do_single_asg(), do_slice_asg(), do_stmt_semantics(), doall_cmic_semantics(), doall_end_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dprod_intrinsic(), dshiftl_intrinsic(), dsm_numthreads_intrinsic(), dump_at_ntry(), dump_il_ntry(), else_stmt_semantics(), encode_decode_stmt_semantics(), end_blk_mp_semantics(), end_forall_semantics(), end_select_blk(), end_select_semantics(), endparallel_cmic_semantics(), eoshift_intrinsic(), equivalence_semantics(), expand_imp_do(), expand_io_list(), final_arg_work(), final_attr_semantics(), find_attr_in_il(), find_attrs_in_il(), find_attrs_used_in_bound(), find_host_associated_attrs_in_il(), finish_cdir_id(), flatten_function_call(), floor_intrinsic(), fold_aggragate_expression(), fold_all_subscripts(), fold_clen_opr(), fold_nested_substrings(), forall_semantics(), free_ir_list(), free_stmt_expansion_opr(), free_stmt_tmp_tbl(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_dbg_write_stmt(), gen_dv_def_loops(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_if_mask(), gen_forall_loops(), gen_forall_max_expr(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_il(), gen_init_stmt(), gen_initialized_tmp(), gen_ir(), gen_lb_array_ref(), gen_loop_end_ir(), gen_runtime_bounds(), gen_runtime_checks(), gen_runtime_substring(), gen_section_ref(), gen_sf_dv_whole_def(), gen_split_alloc(), gen_stmt_expansion_opr(), gen_tmp_equal_max_zero(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), get_char_len(), get_concat_len(), get_stmt_tmp(), global_name_semantics(), goto_stmt_semantics(), has_been_reprivatized(), host_associated_attr_semantics(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), idate_intrinsic(), ieee_real_intrinsic(), if_stmt_semantics(), il_is_symbolic_constant(), imp_do_metamorphed(), implied_do_depth(), index_intrinsic(), init_directive(), init_whole_array(), insert_argchck_calls(), insert_init_stmt_for_tmp(), insert_on_left(), int_intrinsic(), interpret_array_construct_opr(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_concat_opr(), interpret_constructor(), interpret_csmg_opr(), interpret_cvmgt_opr(), interpret_data_imp_do(), interpret_implied_do(), interpret_index_opr(), interpret_max_min_opr(), interpret_ref(), interpret_repeat_intrinsic(), interpret_reshape_intrinsic(), interpret_srk_intrinsic(), interpret_struct_construct_opr(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), is_local_forall_index(), ishft_intrinsic(), ishftc_intrinsic(), item_has_bounds_chk(), lbound_intrinsic(), lge_intrinsic(), linearize_list_for_equiv(), linearize_pe_dims(), logical_intrinsic(), look_for_real_div(), make_base_assumed_size(), make_base_subtree(), make_triplet_extent_tree(), matmul_intrinsic(), max_intrinsic(), max_opr_handler(), mergee_intrinsic(), minval_intrinsic(), mod_intrinsic(), modulo_intrinsic(), mp_directive_semantics(), multiple_clause_err(), must_reassign_XT_temp(), mvbits_intrinsic(), nearest_intrinsic(), nint_intrinsic(), not_intrinsic(), not_visible_semantics(), ntr_ir_list_tbl(), ntr_ref_in_global_tbl(), nullify_stmt_semantics(), num_images_intrinsic(), open_mp_directive_semantics(), optimize_reshape(), optimize_whole_array_init(), outer_imp_do_count(), outmoded_if_stmt_semantics(), pack_intrinsic(), parallel_cmic_semantics(), parse_actual_arg_spec(), parse_allocate_stmt(), parse_backspace_stmt(), parse_buffer_stmt(), parse_cache_align_name_list(), parse_cache_bypass_dir(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_deallocate_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_var_list(), parse_do_stmt(), parse_doall_cmic(), parse_dollar_directives(), parse_doparallel_cmic(), parse_else_stmt(), parse_encode_stmt(), parse_endfile_stmt(), parse_equivalence_stmt(), parse_expr(), parse_forall(), parse_id_directive(), parse_if_stmt(), parse_imp_do(), parse_initializer(), parse_int_or_star_list(), parse_io_control_list(), parse_io_list(), parse_label_list(), parse_lhs(), parse_mp_directive(), parse_nullify_stmt(), parse_open_mp_clauses(), parse_open_mp_directives(), parse_operand(), parse_parallel_cmic(), parse_permutation_mic(), parse_prefetch_ref(), parse_print_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_reference_list(), parse_rewind_stmt(), parse_sgi_dir_inline(), parse_var_common_list(), parse_var_name_list(), parse_write_stmt(), pop_task_blk(), prefetch_ref_semantics(), print_Dv_Whole_Def_Opr(), print_expanded_il(), print_list(), print_mp_dir_opr(), print_open_mp_dir_opr(), process_all_initialized_cpnts(), process_attr_links(), process_blockable_dir(), process_char_len(), process_cpnt_inits(), process_data_imp_do_target(), process_deferred_functions(), process_deferred_io_list(), process_interchange_dir(), process_variable_size_func(), push_data_value(), push_task_blk(), put_string_in_tmp(), random_seed_intrinsic(), read_stmt_semantics(), real_intrinsic(), repeat_intrinsic(), reshape_intrinsic(), reshape_reference_subscripts(), resolve_attr(), resolve_ext_opr(), resolve_fwd_lbl_refs(), rrspacing_intrinsic(), save_array_syntax_subscripts(), scan_for_ptr_chk(), search_expr_for_dargs(), section_semantics(), select_stmt_semantics(), selected_int_kind_intrinsic(), selected_real_kind_intrinsic(), send_attr_ntry(), send_label_def(), set_directives_on_label(), set_global_value_variables(), set_ieee_exception_intrinsic(), set_mod_link_tbl_for_attr(), set_mod_link_tbl_for_il(), set_mp_task_flags(), set_open_mp_task_flags(), set_shape_for_deferred_funcs(), set_up_allocate_as_call(), setup_interchange_level_list(), shape_intrinsic(), shift_intrinsic(), sign_intrinsic(), size_intrinsic(), size_offset_min_max_calc(), spacing_intrinsic(), spread_intrinsic(), srch_for_calls(), stmt_func_call_opr_handler(), struct_construct_opr_handler(), subscript_opr_handler(), substring_opr_handler(), system_clock_intrinsic(), test_size_stmts(), tmp_il_resolution(), transfer_intrinsic(), transform_char_sequence_ref(), translate_distant_dv_ref(), translate_distant_ref1(), translate_distant_ref2(), tree_produces_dealloc(), triplet_opr_handler(), type_init_semantics(), ubound_intrinsic(), unpack_intrinsic(), update_components(), update_fld_type(), vv_subscript_semantics(), wait_send_semantics(), where_stmt_semantics(), and write_stmt_semantics().

#define IL_NONDEFAULT_IMP_DO_LCV ( IDX ) ir_list_tbl[IDX].il.link.flag_7

Definition at line 3854 of file sytb.m.

Referenced by expand_io_list(), and io_list_semantics().

#define IL_OPND ( IDX ) ir_list_tbl[IDX].il.op

Definition at line 3864 of file sytb.m.

#define IL_PE_SUBSCRIPT ( IDX ) ir_list_tbl[IDX].il.link.flag_3

Definition at line 3841 of file sytb.m.

Referenced by allocate_stmt_semantics(), change_subscript(), check_arg_for_co_array(), check_array_bounds(), copy_sbtree(), cvrt_exp_to_pdg(), directive_stmt_semantics(), fold_all_subscripts(), gen_whole_subscript(), interpret_ref(), parse_deref(), parse_lhs(), print_list(), and subscript_opr_handler().

#define IL_PREV_LIST_IDX ( IDX )

Value:

(! IL_ARG_DESC_VARIANT(IDX) ?                                        \
                ir_list_tbl : ir_list_var_error("IL_PREV_LIST_IDX", IDX))     \
                [IDX].il.link.prev_idx

Definition at line 3821 of file sytb.m.

Referenced by add_common_blk_objects_to_list(), add_substring_length(), adjust_char_value_len(), allocate_stmt_semantics(), analyse_loops(), assign_new_idxs_after_input(), bounds_cdir_handler(), build_fwd_ref_entry(), build_loop_tbl(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), change_asg_to_where(), change_section_to_do(), char_len_resolution(), compress_tbls(), concat_opr_handler(), copy_from_gl_subtree(), copy_sbtree(), copy_subtree(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_io_call_descriptor(), create_loop_stmts(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), cvrt_exp_to_pdg(), data_imp_do_semantics(), data_stmt_semantics(), deallocate_local_allocatables(), deallocate_stmt_semantics(), decl_semantics(), determine_num_elements(), discombobulate_structure_ref(), do_single_asg(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dump_il_ntry(), else_stmt_semantics(), encode_decode_stmt_semantics(), end_blk_mp_semantics(), end_select_blk(), final_arg_work(), find_attrs_used_in_bound(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), fold_clen_opr(), forall_semantics(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_dbg_write_stmt(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_il(), gen_init_stmt(), gen_initialized_tmp(), gen_lb_array_ref(), gen_loop_end_ir(), gen_section_ref(), gen_sf_dv_whole_def(), gen_split_alloc(), gen_stmt_expansion_opr(), gen_tmp_equal_max_zero(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), if_stmt_semantics(), imp_do_metamorphed(), insert_argchck_calls(), insert_init_stmt_for_tmp(), insert_on_left(), interpret_ref(), io_ctl_list_semantics(), io_list_semantics(), linearize_list_for_equiv(), make_base_assumed_size(), make_base_subtree(), make_triplet_extent_tree(), mp_directive_semantics(), must_reassign_XT_temp(), open_mp_directive_semantics(), optimize_whole_array_init(), outmoded_if_stmt_semantics(), parallel_cmic_semantics(), parse_allocate_stmt(), parse_cache_align_name_list(), parse_cache_bypass_dir(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_deallocate_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_var_list(), parse_do_stmt(), parse_doall_cmic(), parse_dollar_directives(), parse_doparallel_cmic(), parse_else_stmt(), parse_encode_stmt(), parse_equivalence_stmt(), parse_expr(), parse_forall(), parse_id_directive(), parse_if_stmt(), parse_imp_do(), parse_initializer(), parse_int_or_star_list(), parse_io_control_list(), parse_io_list(), parse_label_list(), parse_lhs(), parse_mp_directive(), parse_nullify_stmt(), parse_open_mp_clauses(), parse_open_mp_directives(), parse_operand(), parse_parallel_cmic(), parse_permutation_mic(), parse_prefetch_ref(), parse_print_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_reference_list(), parse_sgi_dir_inline(), parse_var_common_list(), parse_var_name_list(), parse_write_stmt(), pop_task_blk(), process_all_initialized_cpnts(), process_blockable_dir(), process_cpnt_inits(), process_interchange_dir(), push_task_blk(), put_string_in_tmp(), read_stmt_semantics(), reshape_reference_subscripts(), set_directives_on_label(), set_global_value_variables(), size_offset_min_max_calc(), subscript_opr_handler(), transform_char_sequence_ref(), type_init_semantics(), vv_subscript_semantics(), where_stmt_semantics(), and write_stmt_semantics().

#define IL_STRUCT_REF ( IDX ) ir_list_tbl[IDX].il.link.flag_5

Definition at line 3852 of file sytb.m.

Referenced by expand_io_list(), and io_list_semantics().

#define IL_VECTOR_SUBSCRIPT ( IDX ) ir_list_tbl[IDX].il.link.flag_1

Definition at line 3839 of file sytb.m.

Referenced by change_section_to_do(), change_section_to_this_element(), data_stmt_semantics(), gen_runtime_bounds(), interpret_ref(), print_list(), subscript_opr_handler(), and vv_subscript_semantics().

#define IL_WORD	(	IDX,
		WD
	)	ir_list_tbl[IDX].words[WD]

Definition at line 3861 of file sytb.m.

#define IM_SET	(	SIDX,
		IDX
	)	scp_tbl[SIDX].wd[IDX].fld1.typed

Definition at line 3768 of file sytb.m.

Referenced by attr_semantics(), decl_semantics(), dump_scp_ntry(), init_parse_prog_unit(), parse_implicit_stmt(), and start_new_scp().

#define IM_STORAGE	(	SIDX,
		IDX
	)	scp_tbl[SIDX].wd[IDX].fld1.storage

Definition at line 3769 of file sytb.m.

Referenced by dump_scp_ntry(), and parse_implicit_stmt().

#define IM_TYPE_IDX	(	SIDX,
		IDX
	)	scp_tbl[SIDX].wd[IDX].fld1.type_idx

Definition at line 3770 of file sytb.m.

Referenced by call_list_semantics(), decl_semantics(), dump_scp_ntry(), init_parse_prog_unit(), parse_implicit_stmt(), and start_new_scp().

#define IMPL_IDX ( CH ) CH - 'A'

Definition at line 3767 of file sytb.m.

Referenced by attr_semantics(), call_list_semantics(), init_parse_prog_unit(), parse_implicit_stmt(), and start_new_scp().

#define INTRINSIC_SCP_IDX NULL_IDX /* Intrinsic scope. */

Definition at line 70 of file sytb.m.

Referenced by dump_scp_ntry(), generic_spec_semantics(), init_parse_prog_unit(), merge_intrinsic(), parse_deref(), print_sytb(), and update_intrinsic().

#define IR_ARRAY_SYNTAX ( IDX ) ir_tbl[IDX].op_l.flag_2

#define IR_BOUNDS_DONE ( IDX ) ir_tbl[IDX].op_r.flag_2

Definition at line 3803 of file sytb.m.

Referenced by cvrt_exp_to_pdg(), dump_ir_ntry(), gen_runtime_bounds(), gen_runtime_substring(), and needs_bounds_check().

#define IR_COL_NUM ( IDX ) ir_tbl[IDX].opr.col_num

Definition at line 3777 of file sytb.m.

Referenced by abs_intrinsic(), add_alt_return_lbl(), add_substring_length(), adjust_char_value_len(), adjustl_intrinsic(), align_bit_length(), alloc_obj_opr_handler(), allocate_stmt_semantics(), allocated_intrinsic(), analyse_loops(), and_opr_handler(), arith_if_stmt_semantics(), array_dim_resolution(), array_element_to_scalar(), asg_opnd_to_tmp(), assign_new_idxs_after_input(), assign_stmt_semantics(), assignment_stmt_semantics(), associated_intrinsic(), atan2_intrinsic(), attr_semantics(), backspace_stmt_semantics(), bit_size_intrinsic(), bits_and_bytes_to_words(), bounds_cdir_handler(), btest_intrinsic(), build_loop_tbl(), calculate_iteration_count(), call_list_semantics(), case_value_range_semantics(), cast_to_cg_default(), cast_to_type_idx(), change_section_to_do(), change_section_to_this_element(), change_subscript(), char_intrinsic(), char_len_resolution(), character_to_character(), check_do_open_mp_nesting(), check_multiple_entry_func(), check_ordered_open_mp_nesting(), check_section_open_mp_context(), check_stat_variable(), check_type_for_size_address(), check_where_conformance(), cif_call_site_rec(), ck_lbl_construct_name(), close_stmt_semantics(), cmplx_intrinsic(), compute_char_element_len(), concat_opr_handler(), constant_value_semantics(), continue_stmt_semantics(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_interp_stmts(), create_io_call_descriptor(), create_kwd_text(), create_runtime_array_constructor(), create_runtime_struct_constructor(), create_strct_tbl(), create_struct_argchck_tbl(), create_struct_constructor_asg(), create_tmp_asg(), cshift_intrinsic(), csmg_intrinsic(), cvmgp_intrinsic(), cvrt_exp_to_pdg(), cvrt_opr_handler(), data_stmt_semantics(), dealloc_obj_opr_handler(), deallocate_local_allocatables(), deallocate_stmt_semantics(), determine_num_elements(), determine_slice_size(), determine_tmp_size(), digits_intrinsic(), dim_intrinsic(), directive_stmt_semantics(), discombobulate_structure_ref(), do_single_asg(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dprod_intrinsic(), dshiftl_intrinsic(), dsm_numthreads_intrinsic(), dump_ir_ntry(), else_stmt_semantics(), end_function(), end_function_semantics(), end_if_blk(), end_internal_proc(), end_module_proc(), end_program_unit(), end_select_blk(), end_subroutine(), end_task_do_blk(), endfile_stmt_semantics(), eoshift_intrinsic(), epsilon_intrinsic(), eq_opr_handler(), final_arg_work(), find_attrs_used_in_bound(), find_opnd_line_and_column(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), fold_all_subscripts(), fold_cc_expr(), fold_clen_opr(), fold_nested_substrings(), forall_semantics(), gen_arg_type_descriptor(), gen_array_element_init(), gen_assumed_shape_copy(), gen_attr_and_IR_for_lbl(), gen_auto_length(), gen_bd_entry(), gen_bias_ref(), gen_branch_around_ir(), gen_call_type_descriptor(), gen_common_dv_init(), gen_darg_branch_test(), gen_dbg_write_stmt(), gen_debug_lbl_stmt(), gen_directive_ir(), gen_Dv_Set_stmt(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_end_prologue_debug_label(), gen_forall_tmp(), gen_if_ir(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_ir(), gen_lb_array_ref(), gen_loop_end_ir(), gen_present_ir(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_split_alloc(), gen_static_dv_whole_def(), gen_stmt_expansion_opr(), gen_tmp_eq_zero_ir(), gen_tmp_equal_max_zero(), gen_user_code_start_opr(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), get_concat_len(), get_ieee_status_intrinsic(), get_shape_from_attr(), good_data_imp_do_expr(), huge_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ichar_intrinsic(), if_stmt_semantics(), imp_do_metamorphed(), increment_subscript(), index_intrinsic(), inquire_stmt_semantics(), insert_argchck_calls(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), int_intrinsic(), interpret_adjustl_intrinsic(), interpret_array_construct_opr(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_concat_opr(), interpret_constructor(), interpret_csmg_opr(), interpret_cvmgt_opr(), interpret_implied_do(), interpret_index_opr(), interpret_max_min_opr(), interpret_ref(), interpret_reshape_intrinsic(), interpret_size_intrinsic(), interpret_srk_intrinsic(), interpret_transfer_intrinsic(), interpret_ubound_intrinsic(), interpret_unary_intrinsic_opr(), interpret_unary_opr(), io_ctl_list_semantics(), io_list_semantics(), ishft_intrinsic(), ishftc_intrinsic(), just_find_dope_and_rank(), kind_intrinsic(), lbound_intrinsic(), len_trim_intrinsic(), lg_opr_handler(), lge_intrinsic(), linearize_pe_dims(), look_for_real_div(), loop_end_processing(), lower_ptr_asg(), lt_opr_handler(), make_base_assumed_size(), make_base_subtree(), make_triplet_extent_tree(), mask_intrinsic(), max_intrinsic(), max_opr_handler(), maxexponent_intrinsic(), mergee_intrinsic(), minexponent_intrinsic(), minus_opr_handler(), mod_intrinsic(), modulo_intrinsic(), mult_opr_handler(), mvbits_intrinsic(), nearest_intrinsic(), nint_intrinsic(), not_intrinsic(), not_opr_handler(), null_intrinsic(), nullify_stmt_semantics(), num_images_intrinsic(), open_stmt_semantics(), optimize_whole_array_init(), outer_imp_do_count(), outmoded_if_stmt_semantics(), parallel_cmic_semantics(), parse_actual_arg_spec(), parse_add_opnd(), parse_allocate_stmt(), parse_and_opnd(), parse_assign_stmt(), parse_assignment_stmt(), parse_backspace_stmt(), parse_buffer_stmt(), parse_call_stmt(), parse_case_stmt(), parse_cc_add_opnd(), parse_cc_equiv_opnd(), parse_cc_level_2(), parse_cc_level_3(), parse_cc_level_4(), parse_cc_level_5(), parse_cc_level_6(), parse_cc_level_7(), parse_cc_level_8(), parse_cc_mult_opnd(), parse_cc_operand(), parse_cc_or_opnd(), parse_close_stmt(), parse_cpnt_dcl_stmt(), parse_cycle_stmt(), parse_data_imp_do(), parse_data_stmt(), parse_deallocate_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_directives(), parse_do_stmt(), parse_dollar_directives(), parse_else_stmt(), parse_encode_stmt(), parse_endfile_stmt(), parse_entry_stmt(), parse_equiv_opnd(), parse_equivalence_stmt(), parse_exit_stmt(), parse_expr(), parse_forall(), parse_goto_stmt(), parse_id_directive(), parse_if_stmt(), parse_imp_do(), parse_initializer(), parse_inquire_stmt(), parse_int_spec_expr(), parse_level_1(), parse_level_2(), parse_level_3(), parse_level_4(), parse_level_5(), parse_lhs(), parse_mic_directives(), parse_mult_opnd(), parse_nullify_stmt(), parse_open_mp_clauses(), parse_open_mp_directives(), parse_open_stmt(), parse_openad_directives(), parse_operand(), parse_or_opnd(), parse_par_directives(), parse_permutation_mic(), parse_prefetch_ref(), parse_print_stmt(), parse_prog_unit(), parse_read_stmt(), parse_return_stmt(), parse_rewind_stmt(), parse_select_stmt(), parse_star_directives(), parse_stop_pause_stmt(), parse_type_dcl_stmt(), parse_use_stmt(), parse_where_stmt(), parse_write_stmt(), pe_array_dim_resolution(), plus_opr_handler(), power_opr_handler(), precision_intrinsic(), present_intrinsic(), print_stmt_semantics(), process_all_initialized_cpnts(), process_cpnt_inits(), process_data_imp_do_target(), process_deferred_functions(), process_variable_size_func(), ptr_assign_from_ptr(), put_string_in_tmp(), radix_intrinsic(), random_number_intrinsic(), random_seed_intrinsic(), range_intrinsic(), ranget_intrinsic(), read_stmt_semantics(), repeat_intrinsic(), reshape_intrinsic(), reshape_reference_subscripts(), resolve_ext_opr(), return_stmt_semantics(), rewind_stmt_semantics(), rrspacing_intrinsic(), scalar_dope_to_scalar(), section_semantics(), selected_int_kind_intrinsic(), selected_real_kind_intrinsic(), set_global_value_variables(), set_ieee_exception_intrinsic(), set_mp_task_flags(), set_shape_for_deferred_funcs(), set_up_allocate_as_call(), set_up_which_entry_tmp(), shape_intrinsic(), shift_intrinsic(), short_circuit_branch(), short_circuit_high_level_if(), sign_intrinsic(), sin_intrinsic(), size_intrinsic(), size_offset_binary_calc(), size_offset_logical_calc(), size_offset_min_max_calc(), sizeof_intrinsic(), spread_intrinsic(), srch_for_calls(), start_new_prog_unit(), start_new_subpgm(), stmt_func_call_opr_handler(), stop_pause_stmt_semantics(), struct_construct_opr_handler(), struct_opr_handler(), subscript_opr_handler(), substring_opr_handler(), test_size_stmts(), tiny_intrinsic(), transfer_intrinsic(), transform_char_sequence_ref(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_distant_ref2(), translate_dv_component(), trim_intrinsic(), ubound_intrinsic(), update_components(), uplus_opr_handler(), use_stmt_semantics(), vv_subscript_semantics(), wait_send_semantics(), and write_stmt_semantics().

#define IR_COL_NUM_L ( IDX ) ir_tbl[IDX].op_l.col_num

Definition at line 3789 of file sytb.m.

Referenced by add_substring_length(), adjust_char_value_len(), align_bit_length(), array_dim_resolution(), array_element_to_scalar(), asg_opnd_to_tmp(), assign_new_idxs_after_input(), assign_stmt_semantics(), assignment_stmt_semantics(), attr_init_semantics(), attr_semantics(), backspace_stmt_semantics(), bits_and_bytes_to_words(), btest_intrinsic(), calculate_iteration_count(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), char_len_resolution(), character_to_character(), check_multiple_entry_func(), check_stat_variable(), cif_call_site_rec(), ck_lbl_construct_name(), close_stmt_semantics(), compute_char_element_len(), const_init_semantics(), continue_stmt_semantics(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_interp_stmts(), create_io_call_descriptor(), create_kwd_text(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), data_stmt_semantics(), deallocate_local_allocatables(), directive_stmt_semantics(), do_single_asg(), do_stmt_semantics(), dshiftl_intrinsic(), dump_ir_ntry(), else_stmt_semantics(), end_forall_blk(), end_if_blk(), end_internal_proc(), end_module_proc(), end_program_unit(), end_select_blk(), end_subroutine(), endfile_stmt_semantics(), final_arg_work(), find_attrs_used_in_bound(), flatten_function_call(), fold_aggragate_expression(), gen_arg_type_descriptor(), gen_array_element_init(), gen_assumed_shape_copy(), gen_attr_and_IR_for_lbl(), gen_auto_length(), gen_bd_entry(), gen_bias_ref(), gen_branch_around_ir(), gen_call_type_descriptor(), gen_common_dv_init(), gen_darg_branch_test(), gen_debug_lbl_stmt(), gen_dv_stride_mult(), gen_dv_whole_def_init(), gen_end_prologue_debug_label(), gen_forall_tmp(), gen_if_ir(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_ir(), gen_lb_array_ref(), gen_loop_end_ir(), gen_present_ir(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_dv_whole_def(), gen_tmp_eq_zero_ir(), gen_whole_subscript(), gen_whole_substring(), get_shape_from_attr(), goto_stmt_semantics(), iand_intrinsic(), ibits_intrinsic(), imp_do_metamorphed(), increment_subscript(), init_whole_array(), inquire_stmt_semantics(), insert_argchck_calls(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), interpret_constructor(), io_list_semantics(), ishft_intrinsic(), ishftc_intrinsic(), lbound_intrinsic(), loop_end_processing(), make_base_assumed_size(), max_intrinsic(), not_intrinsic(), null_intrinsic(), open_stmt_semantics(), optimize_whole_array_init(), parse_assert_directive(), parse_assign_stmt(), parse_backspace_stmt(), parse_buffer_stmt(), parse_call_stmt(), parse_case_stmt(), parse_close_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_dir_directives(), parse_else_stmt(), parse_endfile_stmt(), parse_entry_stmt(), parse_expr(), parse_fill_align_symbol(), parse_forall(), parse_goto_stmt(), parse_inquire_stmt(), parse_level_1(), parse_lhs(), parse_mic_directives(), parse_open_mp_directives(), parse_open_stmt(), parse_openad_directives(), parse_operand(), parse_par_directives(), parse_permutation_mic(), parse_redistribute_dir(), parse_rewind_stmt(), parse_star_dir_directives(), parse_star_directives(), parse_stop_pause_stmt(), parse_type_dcl_stmt(), parse_use_stmt(), pe_array_dim_resolution(), present_intrinsic(), print_stmt_semantics(), process_all_initialized_cpnts(), process_cpnt_inits(), process_variable_size_func(), random_number_intrinsic(), random_seed_intrinsic(), read_stmt_semantics(), resolve_ext_opr(), return_stmt_semantics(), rewind_stmt_semantics(), scalar_dope_to_scalar(), set_shape_for_deferred_funcs(), set_up_allocate_as_call(), set_up_which_entry_tmp(), shape_intrinsic(), short_circuit_branch(), short_circuit_high_level_if(), size_offset_binary_calc(), size_offset_logical_calc(), srch_for_calls(), start_new_prog_unit(), start_new_subpgm(), stop_pause_stmt_semantics(), subscript_opr_handler(), substring_opr_handler(), test_size_stmts(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_dv_component(), type_init_semantics(), ubound_intrinsic(), use_stmt_semantics(), wait_send_semantics(), and write_stmt_semantics().

#define IR_COL_NUM_R ( IDX ) ir_tbl[IDX].op_r.col_num

Definition at line 3797 of file sytb.m.

Referenced by adjust_char_value_len(), align_bit_length(), array_dim_resolution(), array_element_to_scalar(), assign_new_idxs_after_input(), assign_stmt_semantics(), assignment_stmt_semantics(), attr_semantics(), backspace_stmt_semantics(), bits_and_bytes_to_words(), calculate_iteration_count(), case_stmt_semantics(), case_value_range_semantics(), change_subscript(), character_to_character(), check_multiple_entry_func(), check_stat_variable(), close_stmt_semantics(), copy_sbtree(), create_alloc_descriptor(), create_constructor_constant(), create_io_call_descriptor(), create_kwd_text(), create_runtime_array_constructor(), create_strct_tbl(), create_struct_constructor_asg(), determine_lb_ub(), determine_slice_size(), determine_tmp_size(), directive_stmt_semantics(), discombobulate_structure_ref(), do_single_asg(), do_stmt_semantics(), dope_vector_setup(), dshiftl_intrinsic(), dump_ir_ntry(), else_stmt_semantics(), end_function_semantics(), end_open_mp_do_blk(), end_open_mp_parallel_do_blk(), end_pdo_blk(), end_task_do_blk(), endfile_stmt_semantics(), final_arg_work(), finish_cdir_id(), fold_aggragate_expression(), fold_nested_substrings(), gen_arg_type_descriptor(), gen_assumed_shape_copy(), gen_auto_length(), gen_bd_entry(), gen_bias_ref(), gen_branch_around_ir(), gen_call_type_descriptor(), gen_common_dv_init(), gen_darg_branch_test(), gen_dv_whole_def_init(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_if_stmt(), gen_init_stmt(), gen_ir(), gen_loop_end_ir(), gen_present_ir(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_dv_whole_def(), gen_tmp_eq_zero_ir(), gen_whole_subscript(), imp_do_metamorphed(), increment_subscript(), inquire_stmt_semantics(), insert_argchck_calls(), insert_sh_after_entries(), interpret_repeat_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), lbound_intrinsic(), linearize_pe_dims(), mult_opr_handler(), ntr_bnds_sh_tmp_list(), null_intrinsic(), nullify_stmt_semantics(), open_stmt_semantics(), parse_assert_directive(), parse_case_stmt(), parse_cycle_stmt(), parse_deref(), parse_dir_directives(), parse_else_stmt(), parse_entry_stmt(), parse_exit_stmt(), parse_fill_align_symbol(), parse_goto_stmt(), parse_id_directive(), parse_if_stmt(), parse_star_dir_directives(), parse_star_directives(), pe_array_dim_resolution(), power_opr_handler(), process_all_initialized_cpnts(), process_cpnt_inits(), ptr_assign_from_ptr(), put_string_in_tmp(), random_number_intrinsic(), random_seed_intrinsic(), read_stmt_semantics(), return_stmt_semantics(), rewind_stmt_semantics(), scalar_dope_to_scalar(), set_shape_for_deferred_funcs(), set_up_which_entry_tmp(), short_circuit_branch(), short_circuit_high_level_if(), size_offset_binary_calc(), size_offset_logical_calc(), srch_for_calls(), struct_opr_handler(), test_size_stmts(), transform_char_sequence_ref(), translate_distant_dv_ref(), ubound_intrinsic(), and write_stmt_semantics().

#define IR_CONTIG_ARRAY ( IDX ) ir_tbl[IDX].opr.dim

Definition at line 3785 of file sytb.m.

Referenced by cvrt_exp_to_pdg(), dump_ir_ntry(), and flatten_function_call().

#define IR_DV_DIM ( IDX ) ir_tbl[IDX].opr.dim

#define IR_FLD_L ( IDX ) ir_tbl[IDX].op_l.fld

Definition at line 3790 of file sytb.m.

Referenced by add_substring_length(), adjust_char_value_len(), align_bit_length(), allocate_stmt_semantics(), analyse_loops(), and_opr_handler(), array_dim_resolution(), array_element_to_scalar(), asg_opnd_to_tmp(), assign_new_idxs_after_input(), assign_stmt_semantics(), assignment_stmt_semantics(), attr_semantics(), backspace_stmt_semantics(), bits_and_bytes_to_words(), bounds_cdir_handler(), btest_intrinsic(), calculate_iteration_count(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), change_asg_to_where(), change_section_to_do(), char_len_resolution(), character_to_character(), check_dependence(), check_ir_for_attrs(), check_multiple_entry_func(), check_substring_bounds(), ck_lbl_construct_name(), close_stmt_semantics(), compare_ir(), compress_tbls(), compute_char_element_len(), concat_opr_handler(), conform_check(), constant_value_semantics(), copy_sbtree(), copy_to_gl_subtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_interp_stmts(), create_io_call_descriptor(), create_kwd_text(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), cvrt_exp_to_pdg(), cvrt_opr_handler(), data_repeat_semantics(), data_stmt_semantics(), deallocate_local_allocatables(), determine_num_elements(), determine_tmp_size(), dim_intrinsic(), directive_stmt_semantics(), do_single_asg(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dshiftl_intrinsic(), dump_ir_ntry(), else_stmt_semantics(), end_forall_blk(), end_if_blk(), end_internal_proc(), end_module_proc(), end_program_unit(), end_select_blk(), end_subroutine(), end_where_semantics(), endfile_stmt_semantics(), eq_opr_handler(), equivalence_semantics(), final_arg_work(), find_attr_in_ir(), find_attrs_in_ir(), find_attrs_used_in_bound(), find_host_associated_attrs_in_ir(), flatten_function_call(), fold_aggragate_expression(), fold_all_subscripts(), fold_clen_opr(), fold_nested_substrings(), free_ir_stream(), gen_arg_type_descriptor(), gen_array_element_init(), gen_assumed_shape_copy(), gen_attr_and_IR_for_lbl(), gen_auto_length(), gen_bd_entry(), gen_bias_ref(), gen_branch_around_ir(), gen_call_type_descriptor(), gen_common_dv_init(), gen_darg_branch_test(), gen_dbg_write_stmt(), gen_debug_lbl_stmt(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_end_prologue_debug_label(), gen_forall_tmp(), gen_if_ir(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_ir(), gen_lb_array_ref(), gen_loop_end_ir(), gen_present_ir(), gen_section_ref(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_dv_whole_def(), gen_tmp_eq_zero_ir(), gen_tmp_equal_max_zero(), gen_whole_subscript(), gen_whole_substring(), get_shape_from_attr(), good_data_imp_do_expr(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), if_stmt_semantics(), imp_do_metamorphed(), increment_subscript(), init_whole_array(), inquire_stmt_semantics(), insert_argchck_calls(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_constructor(), interpret_unary_intrinsic_opr(), interpret_unary_opr(), io_list_semantics(), ir_is_symbolic_constant(), ishft_intrinsic(), ishftc_intrinsic(), lbound_intrinsic(), lg_opr_handler(), linearize_pe_dims(), loop_end_processing(), lower_ptr_asg(), lt_opr_handler(), make_base_assumed_size(), make_triplet_extent_tree(), max_intrinsic(), minus_opr_handler(), mult_opr_handler(), not_intrinsic(), not_opr_handler(), num_images_intrinsic(), open_stmt_semantics(), paren_grp_is_cplx_const(), paren_opr_handler(), parse_allocate_stmt(), parse_assert_directive(), parse_assign_stmt(), parse_backspace_stmt(), parse_buffer_stmt(), parse_call_stmt(), parse_case_stmt(), parse_close_stmt(), parse_cpnt_dcl_stmt(), parse_data_imp_do(), parse_data_stmt(), parse_deallocate_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_directives(), parse_dir_var_list(), parse_doall_cmic(), parse_dollar_directives(), parse_doparallel_cmic(), parse_else_stmt(), parse_encode_stmt(), parse_endfile_stmt(), parse_entry_stmt(), parse_expr(), parse_fill_align_symbol(), parse_forall(), parse_goto_stmt(), parse_imp_do(), parse_inquire_stmt(), parse_level_1(), parse_lhs(), parse_mic_directives(), parse_mp_directive(), parse_nullify_stmt(), parse_open_mp_clauses(), parse_open_mp_directives(), parse_open_stmt(), parse_openad_directives(), parse_operand(), parse_par_directives(), parse_parallel_cmic(), parse_permutation_mic(), parse_prefetch_ref(), parse_print_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_rewind_stmt(), parse_select_stmt(), parse_sgi_dir_inline(), parse_star_dir_directives(), parse_star_directives(), parse_stop_pause_stmt(), parse_type_dcl_stmt(), parse_use_stmt(), parse_write_stmt(), pe_array_dim_resolution(), plus_opr_handler(), power_opr_handler(), present_intrinsic(), print_stmt_semantics(), process_all_initialized_cpnts(), process_cpnt_inits(), process_data_imp_do_target(), process_deferred_functions(), process_variable_size_func(), random_number_intrinsic(), random_seed_intrinsic(), read_stmt_semantics(), reshape_intrinsic(), resolve_ext_opr(), return_stmt_semantics(), rewind_stmt_semantics(), save_array_syntax_subscripts(), scalar_dope_to_scalar(), selected_int_kind_intrinsic(), set_directives_on_label(), set_mod_link_tbl_for_ir(), set_shape_for_deferred_funcs(), set_up_allocate_as_call(), set_up_which_entry_tmp(), shape_intrinsic(), short_circuit_branch(), short_circuit_high_level_if(), size_intrinsic(), size_offset_binary_calc(), size_offset_logical_calc(), size_offset_min_max_calc(), srch_for_calls(), start_new_prog_unit(), start_new_subpgm(), stop_pause_stmt_semantics(), struct_opr_handler(), subscript_opr_handler(), substring_opr_handler(), test_size_stmts(), tmp_ir_resolution(), transfer_intrinsic(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref(), translate_distant_ref1(), translate_distant_ref2(), translate_dv_component(), tree_produces_dealloc(), ubound_intrinsic(), update_components(), update_fld_type(), uplus_opr_handler(), use_stmt_semantics(), vv_subscript_semantics(), wait_send_semantics(), where_stmt_semantics(), and write_stmt_semantics().

#define IR_FLD_R ( IDX ) ir_tbl[IDX].op_r.fld

Definition at line 3798 of file sytb.m.

Referenced by add_substring_length(), adjust_char_value_len(), adjustl_intrinsic(), align_bit_length(), alloc_obj_opr_handler(), allocate_stmt_semantics(), analyse_loops(), and_opr_handler(), array_dim_resolution(), array_element_to_scalar(), assign_new_idxs_after_input(), assign_stmt_semantics(), assignment_stmt_semantics(), attr_semantics(), backspace_stmt_semantics(), bits_and_bytes_to_words(), calculate_iteration_count(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), change_section_to_do(), character_to_character(), check_dependence(), check_for_elementals(), check_ir_for_attrs(), check_multiple_entry_func(), check_stat_variable(), check_type_for_size_address(), ck_lbl_construct_name(), close_stmt_semantics(), compare_ir(), compress_tbls(), concat_opr_handler(), copy_sbtree(), copy_to_gl_subtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_interp_stmts(), create_io_call_descriptor(), create_kwd_text(), create_runtime_array_constructor(), create_strct_tbl(), create_struct_argchck_tbl(), create_struct_constructor_asg(), create_tmp_asg(), cvrt_exp_to_pdg(), data_imp_do_semantics(), data_stmt_semantics(), dealloc_obj_opr_handler(), deallocate_local_allocatables(), deallocate_stmt_semantics(), determine_lb_ub(), determine_num_elements(), determine_tmp_size(), directive_stmt_semantics(), discombobulate_structure_ref(), do_single_asg(), do_stmt_semantics(), dope_vector_setup(), dshiftl_intrinsic(), dump_ir_ntry(), else_stmt_semantics(), end_blk_mp_semantics(), end_function_semantics(), end_if_blk(), end_open_mp_do_blk(), end_open_mp_parallel_blk(), end_open_mp_parallel_do_blk(), end_open_mp_parallel_sections_blk(), end_open_mp_parallel_workshare_blk(), end_open_mp_sections_blk(), end_open_mp_single_blk(), end_open_mp_workshare_blk(), end_pdo_blk(), end_psection_blk(), end_select_blk(), end_SGI_parallel_blk(), end_single_process_blk(), end_task_do_blk(), end_where_blk(), endfile_stmt_semantics(), eq_opr_handler(), expand_io_list(), expand_user_bound(), final_arg_work(), final_attr_semantics(), find_attr_in_ir(), find_attrs_in_ir(), find_attrs_used_in_bound(), find_host_associated_attrs_in_ir(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), fold_cc_expr(), fold_nested_substrings(), free_ir_stream(), gen_arg_type_descriptor(), gen_array_element_init(), gen_assumed_shape_copy(), gen_attr_and_IR_for_lbl(), gen_auto_length(), gen_bd_entry(), gen_bias_ref(), gen_branch_around_ir(), gen_call_type_descriptor(), gen_common_dv_init(), gen_darg_branch_test(), gen_dbg_write_stmt(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_if_stmt(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_ir(), gen_lb_array_ref(), gen_loop_end_ir(), gen_present_ir(), gen_section_ref(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_split_alloc(), gen_static_dv_whole_def(), gen_stmt_expansion_opr(), gen_tmp_eq_zero_ir(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), get_ieee_status_intrinsic(), good_data_imp_do_expr(), iand_intrinsic(), if_stmt_semantics(), imp_do_metamorphed(), increment_subscript(), inquire_stmt_semantics(), insert_argchck_calls(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), interpret_ref(), io_ctl_list_semantics(), io_list_semantics(), ir_is_symbolic_constant(), ishft_intrinsic(), lbound_intrinsic(), lg_opr_handler(), linearize_pe_dims(), lt_opr_handler(), make_base_assumed_size(), max_intrinsic(), minus_opr_handler(), mult_opr_handler(), mvbits_intrinsic(), ntr_bnds_sh_tmp_list(), nullify_stmt_semantics(), open_stmt_semantics(), optimize_whole_array_init(), parse_assert_directive(), parse_backspace_stmt(), parse_buffer_stmt(), parse_call_stmt(), parse_case_stmt(), parse_cycle_stmt(), parse_data_imp_do(), parse_deref(), parse_dir_directives(), parse_do_stmt(), parse_else_stmt(), parse_endfile_stmt(), parse_entry_stmt(), parse_equivalence_stmt(), parse_exit_stmt(), parse_expr(), parse_fill_align_symbol(), parse_forall(), parse_goto_stmt(), parse_id_directive(), parse_if_stmt(), parse_imp_do(), parse_initializer(), parse_label_list(), parse_lhs(), parse_mic_directives(), parse_operand(), parse_permutation_mic(), parse_redistribute_dir(), parse_rewind_stmt(), parse_star_dir_directives(), parse_star_directives(), parse_where_stmt(), pe_array_dim_resolution(), plus_opr_handler(), power_opr_handler(), print_stmt_semantics(), process_all_initialized_cpnts(), process_blockable_dir(), process_cpnt_inits(), process_deferred_functions(), process_interchange_dir(), ptr_assign_from_ptr(), push_data_value(), put_string_in_tmp(), random_number_intrinsic(), random_seed_intrinsic(), read_stmt_semantics(), reshape_intrinsic(), resolve_ext_opr(), return_stmt_semantics(), rewind_stmt_semantics(), scalar_dope_to_scalar(), send_attr_ntry(), set_mod_link_tbl_for_ir(), set_shape_for_deferred_funcs(), set_up_allocate_as_call(), set_up_which_entry_tmp(), shape_intrinsic(), short_circuit_branch(), short_circuit_high_level_if(), size_offset_binary_calc(), size_offset_logical_calc(), srch_for_calls(), stop_pause_stmt_semantics(), test_size_stmts(), tmp_ir_resolution(), transform_char_sequence_ref(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_distant_ref2(), translate_dv_component(), tree_produces_dealloc(), type_init_semantics(), ubound_intrinsic(), update_fld_type(), vv_subscript_semantics(), wait_send_semantics(), where_stmt_semantics(), and write_stmt_semantics().

#define IR_IDX_L ( IDX ) ir_tbl[IDX].op_l.idx

Definition at line 3791 of file sytb.m.

#define IR_IDX_R ( IDX ) ir_tbl[IDX].op_r.idx

Definition at line 3799 of file sytb.m.

#define IR_INLINE_STATE ( IDX ) ir_tbl[IDX].opr.dim

Definition at line 3787 of file sytb.m.

Referenced by call_list_semantics(), cvrt_exp_to_pdg(), dump_ir_ntry(), and set_inline_state().

#define IR_LINE_NUM ( IDX ) ir_tbl[IDX].opr.line_num

Definition at line 3778 of file sytb.m.

#define IR_LINE_NUM_L ( IDX ) ir_tbl[IDX].op_l.line_num

Definition at line 3792 of file sytb.m.

Referenced by add_substring_length(), adjust_char_value_len(), align_bit_length(), array_dim_resolution(), array_element_to_scalar(), asg_opnd_to_tmp(), assign_new_idxs_after_input(), assign_stmt_semantics(), assignment_stmt_semantics(), attr_init_semantics(), attr_semantics(), backspace_stmt_semantics(), bits_and_bytes_to_words(), btest_intrinsic(), calculate_iteration_count(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), char_len_resolution(), character_to_character(), check_multiple_entry_func(), check_stat_variable(), cif_call_site_rec(), ck_lbl_construct_name(), close_stmt_semantics(), compute_char_element_len(), const_init_semantics(), continue_stmt_semantics(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_interp_stmts(), create_io_call_descriptor(), create_kwd_text(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), cvrt_exp_to_pdg(), data_stmt_semantics(), deallocate_local_allocatables(), decl_semantics(), directive_stmt_semantics(), do_single_asg(), do_stmt_semantics(), dshiftl_intrinsic(), dump_ir_ntry(), else_stmt_semantics(), end_forall_blk(), end_if_blk(), end_internal_proc(), end_module_proc(), end_program_unit(), end_select_blk(), end_subroutine(), endfile_stmt_semantics(), final_arg_work(), find_attrs_used_in_bound(), flatten_function_call(), fold_aggragate_expression(), gen_arg_type_descriptor(), gen_array_element_init(), gen_assumed_shape_copy(), gen_attr_and_IR_for_lbl(), gen_auto_length(), gen_bd_entry(), gen_bias_ref(), gen_branch_around_ir(), gen_call_type_descriptor(), gen_common_dv_init(), gen_darg_branch_test(), gen_debug_lbl_stmt(), gen_dv_stride_mult(), gen_dv_whole_def_init(), gen_end_prologue_debug_label(), gen_forall_tmp(), gen_if_ir(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_ir(), gen_lb_array_ref(), gen_loop_end_ir(), gen_present_ir(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_dv_whole_def(), gen_tmp_eq_zero_ir(), gen_whole_subscript(), gen_whole_substring(), get_shape_from_attr(), goto_stmt_semantics(), iand_intrinsic(), ibits_intrinsic(), imp_do_metamorphed(), increment_subscript(), init_whole_array(), inquire_stmt_semantics(), insert_argchck_calls(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), interpret_constructor(), io_list_semantics(), ishft_intrinsic(), ishftc_intrinsic(), lbound_intrinsic(), loop_end_processing(), make_base_assumed_size(), max_intrinsic(), not_intrinsic(), null_intrinsic(), open_stmt_semantics(), optimize_whole_array_init(), parse_assert_directive(), parse_assign_stmt(), parse_backspace_stmt(), parse_buffer_stmt(), parse_call_stmt(), parse_case_stmt(), parse_close_stmt(), parse_cpnt_dcl_stmt(), parse_deref(), parse_dir_directives(), parse_else_stmt(), parse_endfile_stmt(), parse_entry_stmt(), parse_expr(), parse_fill_align_symbol(), parse_forall(), parse_goto_stmt(), parse_inquire_stmt(), parse_level_1(), parse_lhs(), parse_mic_directives(), parse_open_mp_directives(), parse_open_stmt(), parse_openad_directives(), parse_operand(), parse_par_directives(), parse_permutation_mic(), parse_redistribute_dir(), parse_rewind_stmt(), parse_star_dir_directives(), parse_star_directives(), parse_stop_pause_stmt(), parse_type_dcl_stmt(), parse_use_stmt(), pe_array_dim_resolution(), present_intrinsic(), print_stmt_semantics(), process_all_initialized_cpnts(), process_cpnt_inits(), process_variable_size_func(), random_number_intrinsic(), random_seed_intrinsic(), read_stmt_semantics(), resolve_ext_opr(), return_stmt_semantics(), rewind_stmt_semantics(), scalar_dope_to_scalar(), set_shape_for_deferred_funcs(), set_up_allocate_as_call(), set_up_which_entry_tmp(), shape_intrinsic(), short_circuit_branch(), short_circuit_high_level_if(), size_offset_binary_calc(), size_offset_logical_calc(), srch_for_calls(), start_new_prog_unit(), start_new_subpgm(), stop_pause_stmt_semantics(), subscript_opr_handler(), substring_opr_handler(), test_size_stmts(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_dv_component(), type_init_semantics(), ubound_intrinsic(), use_stmt_semantics(), wait_send_semantics(), and write_stmt_semantics().

#define IR_LINE_NUM_R ( IDX ) ir_tbl[IDX].op_r.line_num

Definition at line 3800 of file sytb.m.

Referenced by adjust_char_value_len(), align_bit_length(), array_dim_resolution(), array_element_to_scalar(), assign_new_idxs_after_input(), assign_stmt_semantics(), assignment_stmt_semantics(), attr_semantics(), backspace_stmt_semantics(), bits_and_bytes_to_words(), calculate_iteration_count(), case_stmt_semantics(), case_value_range_semantics(), change_subscript(), character_to_character(), check_multiple_entry_func(), check_stat_variable(), close_stmt_semantics(), copy_sbtree(), create_alloc_descriptor(), create_constructor_constant(), create_io_call_descriptor(), create_kwd_text(), create_runtime_array_constructor(), create_strct_tbl(), create_struct_constructor_asg(), cvrt_exp_to_pdg(), determine_lb_ub(), determine_slice_size(), determine_tmp_size(), directive_stmt_semantics(), discombobulate_structure_ref(), do_single_asg(), do_stmt_semantics(), dope_vector_setup(), dshiftl_intrinsic(), dump_ir_ntry(), else_stmt_semantics(), end_function_semantics(), end_open_mp_do_blk(), end_open_mp_parallel_do_blk(), end_pdo_blk(), end_task_do_blk(), endfile_stmt_semantics(), final_arg_work(), finish_cdir_id(), fold_aggragate_expression(), fold_nested_substrings(), gen_arg_type_descriptor(), gen_assumed_shape_copy(), gen_auto_length(), gen_bd_entry(), gen_bias_ref(), gen_branch_around_ir(), gen_call_type_descriptor(), gen_common_dv_init(), gen_darg_branch_test(), gen_dv_whole_def_init(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_if_stmt(), gen_init_stmt(), gen_ir(), gen_loop_end_ir(), gen_present_ir(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_dv_whole_def(), gen_tmp_eq_zero_ir(), gen_whole_subscript(), imp_do_metamorphed(), increment_subscript(), inquire_stmt_semantics(), insert_argchck_calls(), insert_sh_after_entries(), interpret_repeat_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), lbound_intrinsic(), linearize_pe_dims(), mult_opr_handler(), ntr_bnds_sh_tmp_list(), null_intrinsic(), nullify_stmt_semantics(), open_stmt_semantics(), parse_assert_directive(), parse_case_stmt(), parse_cycle_stmt(), parse_deref(), parse_dir_directives(), parse_else_stmt(), parse_entry_stmt(), parse_exit_stmt(), parse_fill_align_symbol(), parse_goto_stmt(), parse_id_directive(), parse_if_stmt(), parse_star_dir_directives(), parse_star_directives(), pe_array_dim_resolution(), power_opr_handler(), process_all_initialized_cpnts(), process_cpnt_inits(), ptr_assign_from_ptr(), put_string_in_tmp(), random_number_intrinsic(), random_seed_intrinsic(), read_stmt_semantics(), return_stmt_semantics(), rewind_stmt_semantics(), scalar_dope_to_scalar(), set_shape_for_deferred_funcs(), set_up_which_entry_tmp(), short_circuit_branch(), short_circuit_high_level_if(), size_offset_binary_calc(), size_offset_logical_calc(), srch_for_calls(), struct_opr_handler(), test_size_stmts(), transform_char_sequence_ref(), translate_distant_dv_ref(), ubound_intrinsic(), and write_stmt_semantics().

#define IR_LIST_CNT_L ( IDX ) ir_tbl[IDX].op_l.line_num

Definition at line 3793 of file sytb.m.

Referenced by add_substring_length(), adjust_char_value_len(), aint_intrinsic(), all_intrinsic(), allocate_stmt_semantics(), analyse_loops(), anint_intrinsic(), ceiling_intrinsic(), change_asg_to_where(), change_section_to_do(), char_intrinsic(), char_len_resolution(), cmplx_intrinsic(), compare_ir(), concat_opr_handler(), create_argchck_descriptor(), create_imp_do_loops(), create_io_call_descriptor(), create_runtime_array_constructor(), create_tmp_asg(), cvrt_exp_to_pdg(), deallocate_local_allocatables(), deallocate_stmt_semantics(), determine_num_elements(), dim_intrinsic(), directive_stmt_semantics(), discombobulate_structure_ref(), do_single_asg(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dump_ir_ntry(), else_stmt_semantics(), encode_decode_stmt_semantics(), expand_io_list(), final_arg_work(), flatten_function_call(), floor_intrinsic(), fold_clen_opr(), gen_dbg_write_stmt(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_tmp(), gen_ir(), gen_sf_dv_whole_def(), gen_split_alloc(), gen_tmp_equal_max_zero(), gen_whole_subscript(), gen_whole_substring(), imp_do_metamorphed(), int_intrinsic(), lbound_intrinsic(), logical_intrinsic(), make_triplet_extent_tree(), nearest_intrinsic(), nint_intrinsic(), parse_allocate_stmt(), parse_data_imp_do(), parse_data_stmt(), parse_deallocate_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_directives(), parse_dir_var_list(), parse_doall_cmic(), parse_dollar_directives(), parse_doparallel_cmic(), parse_encode_stmt(), parse_imp_do(), parse_inquire_stmt(), parse_lhs(), parse_mp_directive(), parse_nullify_stmt(), parse_open_mp_clauses(), parse_open_mp_directives(), parse_parallel_cmic(), parse_prefetch_ref(), parse_print_stmt(), parse_read_stmt(), parse_sgi_dir_inline(), parse_type_dcl_stmt(), parse_write_stmt(), process_blockable_dir(), process_interchange_dir(), real_intrinsic(), rrspacing_intrinsic(), selected_int_kind_intrinsic(), send_label_def(), set_directives_on_label(), set_up_allocate_as_call(), shape_intrinsic(), size_intrinsic(), size_offset_min_max_calc(), spacing_intrinsic(), spread_intrinsic(), ubound_intrinsic(), vv_subscript_semantics(), and where_stmt_semantics().

#define IR_LIST_CNT_R ( IDX ) ir_tbl[IDX].op_r.line_num

Definition at line 3801 of file sytb.m.

Referenced by add_alt_return_lbl(), add_substring_length(), adjust_char_value_len(), adjustl_intrinsic(), all_intrinsic(), alloc_obj_opr_handler(), allocate_stmt_semantics(), analyse_loops(), array_construct_semantics(), array_element_to_scalar(), assignment_stmt_semantics(), backspace_stmt_semantics(), buffer_stmt_semantics(), build_loop_tbl(), call_list_semantics(), case_stmt_semantics(), case_value_range_semantics(), change_section_to_do(), check_multiple_entry_func(), cif_call_site_rec(), close_stmt_semantics(), compare_ir(), conform_check(), copy_sbtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_io_call_descriptor(), create_runtime_array_constructor(), create_struct_argchck_tbl(), cvrt_exp_to_pdg(), data_imp_do_semantics(), data_stmt_semantics(), deallocate_local_allocatables(), deallocate_stmt_semantics(), do_single_asg(), do_stmt_semantics(), dump_ir_ntry(), end_select_blk(), end_select_semantics(), endfile_stmt_semantics(), equivalence_semantics(), expand_io_list(), final_arg_work(), find_attrs_used_in_bound(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), fold_all_subscripts(), forall_semantics(), gen_arg_type_descriptor(), gen_array_element_init(), gen_bias_ref(), gen_call_type_descriptor(), gen_dbg_write_stmt(), gen_forall_tmp(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_ir(), gen_lb_array_ref(), gen_loop_end_ir(), gen_section_ref(), gen_split_alloc(), gen_stmt_expansion_opr(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), ieee_real_intrinsic(), if_stmt_semantics(), imp_do_metamorphed(), init_whole_array(), inquire_stmt_semantics(), insert_argchck_calls(), insert_init_stmt_for_tmp(), insert_on_left(), interpret_constructor(), interpret_ref(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), io_list_semantics(), ishftc_intrinsic(), lbound_intrinsic(), length_intrinsic(), make_base_assumed_size(), minval_intrinsic(), num_images_intrinsic(), open_stmt_semantics(), optimize_whole_array_init(), outmoded_if_stmt_semantics(), parse_backspace_stmt(), parse_buffer_stmt(), parse_call_stmt(), parse_data_imp_do(), parse_deref(), parse_dir_directives(), parse_do_stmt(), parse_else_stmt(), parse_endfile_stmt(), parse_equivalence_stmt(), parse_expr(), parse_forall(), parse_id_directive(), parse_if_stmt(), parse_imp_do(), parse_initializer(), parse_label_list(), parse_lhs(), parse_mic_directives(), parse_operand(), parse_permutation_mic(), parse_redistribute_dir(), parse_rewind_stmt(), print_stmt_semantics(), process_all_initialized_cpnts(), process_blockable_dir(), process_cpnt_inits(), process_data_imp_do_target(), process_interchange_dir(), put_string_in_tmp(), read_stmt_semantics(), reshape_intrinsic(), resolve_ext_opr(), rewind_stmt_semantics(), save_array_syntax_subscripts(), section_semantics(), set_ieee_exception_intrinsic(), set_shape_for_deferred_funcs(), set_up_allocate_as_call(), shape_intrinsic(), size_intrinsic(), spread_intrinsic(), srch_for_calls(), stmt_func_call_opr_handler(), stop_pause_stmt_semantics(), struct_construct_opr_handler(), subscript_opr_handler(), test_size_stmts(), transfer_intrinsic(), transform_char_sequence_ref(), translate_distant_dv_ref(), translate_distant_ref1(), translate_distant_ref2(), type_init_semantics(), ubound_intrinsic(), unit_intrinsic(), vv_subscript_semantics(), and write_stmt_semantics().

#define IR_NEXT_IDX ( IDX ) ir_tbl[IDX].opr.line_num

Definition at line 3779 of file sytb.m.

Referenced by ntr_ir_tbl().

#define IR_OPND_L ( IDX ) ir_tbl[IDX].op_l

Definition at line 3805 of file sytb.m.

Referenced by abs_intrinsic(), add_substring_length(), adjust_char_value_len(), adjustl_intrinsic(), aimag_intrinsic(), aint_intrinsic(), all_intrinsic(), alloc_obj_opr_handler(), allocate_stmt_semantics(), allocated_intrinsic(), analyse_loops(), and_opr_handler(), anint_intrinsic(), arith_if_stmt_semantics(), array_construct_semantics(), array_dim_resolution(), assign_stmt_semantics(), assignment_stmt_semantics(), associated_intrinsic(), atan2_intrinsic(), bound_semantics(), build_loop_tbl(), case_stmt_semantics(), case_value_range_semantics(), cast_to_cg_default(), cast_to_type_idx(), ceiling_intrinsic(), change_asg_to_where(), change_section_to_do(), change_section_to_this_element(), change_subscript(), char_intrinsic(), character_to_character(), check_arg_for_co_array(), check_array_bounds(), check_dependence(), check_expr_for_elementals(), check_for_constructors(), check_for_dependencies(), check_for_legal_define(), check_forall_triplet_for_index(), check_stat_variable(), check_substring_bounds(), check_type_for_size_address(), check_where_conformance(), cmp_ref_trees(), cmplx_intrinsic(), compare_and_swap_intrinsic(), concat_opr_handler(), conjg_intrinsic(), const_init_semantics(), constant_value_semantics(), copy_sbtree(), copy_subtree(), copy_text_for_expansion(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_imp_do_loops(), create_interp_stmts(), create_kwd_text(), create_namelist_descriptor(), create_runtime_array_constructor(), create_scalar_type_tbl(), create_strct_tbl(), create_struct_constructor_asg(), create_tmp_asg(), create_tmp_DV_asg(), cshift_intrinsic(), csmg_intrinsic(), cvrt_exp_to_pdg(), cvrt_opr_handler(), data_repeat_semantics(), data_stmt_semantics(), dealloc_obj_opr_handler(), deallocate_stmt_semantics(), default_init_semantics(), determine_num_elements(), determine_slice_size(), determine_tmp_size(), dim_intrinsic(), directive_stmt_semantics(), discombobulate_structure_ref(), do_single_asg(), do_stmt_semantics(), dope_vector_setup(), dot_product_intrinsic(), dprod_intrinsic(), else_stmt_semantics(), encode_decode_stmt_semantics(), eoshift_intrinsic(), eq_opr_handler(), expand_imp_do(), expand_io_list(), exponent_intrinsic(), fcd_intrinsic(), fetch_and_add_intrinsic(), final_arg_work(), find_attr_in_ir(), find_base_attr(), find_left_attr(), finish_cdir_id(), flatten_function_call(), floor_intrinsic(), fold_aggragate_expression(), fold_all_subscripts(), fold_cc_expr(), fold_clen_opr(), fold_nested_substrings(), forall_mask_needs_tmp(), forall_semantics(), fraction_intrinsic(), free_intrinsic(), gen_arg_type_descriptor(), gen_assumed_shape_copy(), gen_auto_length(), gen_bd_entry(), gen_call_type_descriptor(), gen_common_dv_init(), gen_darg_branch_test(), gen_dv_def_loops(), gen_Dv_Set_stmt(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_tmp(), gen_init_stmt(), gen_internal_call_stmt(), gen_internal_dope_vector(), gen_loop_end_ir(), gen_runtime_bounds(), gen_runtime_checks(), gen_runtime_substring(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_dv_whole_def(), gen_whole_subscript(), gen_whole_substring(), get_char_len(), get_concat_len(), get_ieee_status_intrinsic(), getpos_intrinsic(), goto_stmt_semantics(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ichar_intrinsic(), ieee_finite_intrinsic(), ieee_real_intrinsic(), if_stmt_semantics(), implied_do_depth(), index_intrinsic(), inquire_stmt_semantics(), int_intrinsic(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_constructor(), interpret_ref(), interpret_repeat_intrinsic(), interpret_trim_intrinsic(), interpret_unary_intrinsic_opr(), interpret_unary_opr(), io_ctl_list_semantics(), io_list_semantics(), ishftc_intrinsic(), item_has_bounds_chk(), just_find_dope_and_rank(), leadz_intrinsic(), len_intrinsic(), len_trim_intrinsic(), length_intrinsic(), lg_opr_handler(), lge_intrinsic(), linearize_pe_dims(), loc_intrinsic(), lock_release_intrinsic(), logical_intrinsic(), look_for_real_div(), lower_ptr_asg(), lt_opr_handler(), make_base_subtree(), make_triplet_extent_tree(), malloc_intrinsic(), mark_attr_defined(), mask_intrinsic(), matmul_intrinsic(), mclr_intrinsic(), memory_barrier_intrinsic(), merge_parameter(), mergee_intrinsic(), minus_opr_handler(), minval_intrinsic(), mld_intrinsic(), mldmx_intrinsic(), mmx_intrinsic(), mod_intrinsic(), modulo_intrinsic(), mul_intrinsic(), mult_opr_handler(), mvbits_intrinsic(), my_pe_intrinsic(), namelist_static_dv_whole_def(), nearest_intrinsic(), needs_bounds_check(), nint_intrinsic(), not_intrinsic(), not_opr_handler(), nullify_stmt_semantics(), numarg_intrinsic(), object_semantics(), omp_set_lock_intrinsic(), optimize_reshape(), optimize_whole_array_init(), outmoded_if_stmt_semantics(), output_struct_ids(), pack_intrinsic(), paren_opr_handler(), parse_actual_arg_spec(), parse_add_opnd(), parse_and_opnd(), parse_assignment_stmt(), parse_case_stmt(), parse_cc_add_opnd(), parse_cc_equiv_opnd(), parse_cc_level_2(), parse_cc_level_3(), parse_cc_level_4(), parse_cc_level_5(), parse_cc_level_6(), parse_cc_level_7(), parse_cc_level_8(), parse_cc_mult_opnd(), parse_cc_operand(), parse_cc_or_opnd(), parse_deref(), parse_dir_directives(), parse_dollar_directives(), parse_else_stmt(), parse_equiv_opnd(), parse_equivalence_stmt(), parse_goto_stmt(), parse_id_directive(), parse_if_stmt(), parse_initializer(), parse_int_spec_expr(), parse_level_2(), parse_level_3(), parse_level_4(), parse_level_5(), parse_lhs(), parse_mic_directives(), parse_mult_opnd(), parse_open_mp_directives(), parse_openad_varlist(), parse_operand(), parse_or_opnd(), parse_par_directives(), parse_read_stmt(), parse_return_stmt(), parse_select_stmt(), parse_star_dir_directives(), parse_star_directives(), parse_stop_pause_stmt(), parse_where_stmt(), parse_write_stmt(), plus_opr_handler(), power_opr_handler(), present_intrinsic(), print_expanded_ir(), print_stmt_semantics(), process_all_initialized_cpnts(), process_attr_links(), process_char_len(), process_cpnt_inits(), process_deferred_functions(), process_variable_size_func(), ptr_assign_from_ptr(), put_string_in_tmp(), random_seed_intrinsic(), ranf_intrinsic(), ranget_intrinsic(), read_stmt_semantics(), readsm_intrinsic(), real_intrinsic(), remote_write_barrier_intrinsic(), reshape_intrinsic(), reshape_reference_subscripts(), resolve_ext_opr(), return_stmt_semantics(), rrspacing_intrinsic(), rtc_intrinsic(), scalar_dope_to_scalar(), scale_intrinsic(), scan_for_ptr_chk(), search_expr_for_dargs(), section_semantics(), select_stmt_semantics(), set_at_actual_arg(), set_exponent_intrinsic(), set_global_value_variables(), set_ieee_exception_intrinsic(), set_shape_for_deferred_funcs(), shift_intrinsic(), short_circuit_branch(), short_circuit_high_level_if(), sign_intrinsic(), sin_intrinsic(), spacing_intrinsic(), spread_intrinsic(), srch_for_calls(), stmt_expansion_control_end(), stmt_func_call_opr_handler(), struct_construct_opr_handler(), struct_opr_handler(), subscript_opr_handler(), substring_opr_handler(), synchronize_intrinsic(), test_ieee_interrupt_intrinsic(), transform_char_sequence_ref(), translate_distant_ref2(), translate_dv_component(), transpose_intrinsic(), tree_produces_dealloc(), type_init_semantics(), ubound_intrinsic(), unit_intrinsic(), unpack_intrinsic(), update_components(), uplus_opr_handler(), vv_subscript_semantics(), wait_send_semantics(), where_stmt_semantics(), write_memory_barrier_intrinsic(), and write_stmt_semantics().

#define IR_OPND_R ( IDX ) ir_tbl[IDX].op_r

Definition at line 3806 of file sytb.m.

Referenced by abs_intrinsic(), add_substring_length(), adjustl_intrinsic(), aimag_intrinsic(), aint_intrinsic(), all_intrinsic(), analyse_loops(), and_opr_handler(), anint_intrinsic(), array_construct_opr_handler(), array_dim_resolution(), asg_opnd_to_tmp(), assign_stmt_semantics(), assignment_stmt_semantics(), atan2_intrinsic(), attr_semantics(), backspace_stmt_semantics(), bound_semantics(), btest_intrinsic(), buffer_stmt_semantics(), call_list_semantics(), case_value_range_semantics(), ceiling_intrinsic(), change_asg_to_where(), char_intrinsic(), char_len_resolution(), check_bd_typ_for_dargs(), check_dependence(), check_expr_for_elementals(), check_for_constructors(), check_for_dependencies(), check_for_elementals(), check_forall_triplet_for_index(), check_stat_variable(), check_type_for_size_address(), close_stmt_semantics(), cmp_ref_trees(), cmplx_intrinsic(), compare_and_swap_intrinsic(), compute_char_element_len(), concat_opr_handler(), conjg_intrinsic(), constant_value_semantics(), copy_and_replace_tmps(), copy_sbtree(), copy_subtree(), copy_text_for_expansion(), create_argchck_descriptor(), create_constructor_constant(), create_interp_stmts(), create_io_call_descriptor(), create_kwd_text(), create_loop_stmts(), create_runtime_array_constructor(), create_struct_constructor_asg(), create_tmp_asg(), create_tmp_DV_asg(), create_tmp_from_stmt_func(), cshift_intrinsic(), csmg_intrinsic(), data_imp_do_semantics(), default_init_semantics(), defined_un_opr_handler(), determine_slice_size(), dim_intrinsic(), directive_stmt_semantics(), do_loop_expr_semantics(), do_single_asg(), do_stmt_semantics(), dope_vector_setup(), dot_product_intrinsic(), dprod_intrinsic(), encode_decode_stmt_semantics(), endfile_stmt_semantics(), eoshift_intrinsic(), eq_opr_handler(), expand_imp_do(), expand_io_list(), exponent_intrinsic(), fcd_intrinsic(), fetch_and_add_intrinsic(), final_arg_work(), find_attr_in_ir(), find_base_attr(), flatten_function_call(), floor_intrinsic(), fold_aggragate_expression(), fold_cc_expr(), fold_nested_substrings(), forall_semantics(), fraction_intrinsic(), free_intrinsic(), gen_arg_type_descriptor(), gen_auto_length(), gen_bd_entry(), gen_call_type_descriptor(), gen_dbg_write_stmt(), gen_dv_access_low_bound(), gen_Dv_Set_stmt(), gen_forall_tmp_bd_entry(), gen_loop_end_ir(), gen_runtime_checks(), gen_whole_subscript(), get_concat_len(), get_ieee_status_intrinsic(), getpos_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ichar_intrinsic(), ieee_finite_intrinsic(), ieee_real_intrinsic(), if_stmt_semantics(), implied_do_depth(), index_intrinsic(), inquire_stmt_semantics(), int_intrinsic(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_repeat_intrinsic(), ishftc_intrinsic(), item_has_bounds_chk(), kind_to_linear_type(), lbound_intrinsic(), leadz_intrinsic(), len_intrinsic(), len_trim_intrinsic(), length_intrinsic(), lg_opr_handler(), lge_intrinsic(), loc_intrinsic(), lock_release_intrinsic(), logical_intrinsic(), look_for_real_div(), lower_ptr_asg(), lt_opr_handler(), make_base_subtree(), make_triplet_extent_tree(), malloc_intrinsic(), mask_intrinsic(), matmul_intrinsic(), max_intrinsic(), mclr_intrinsic(), memory_barrier_intrinsic(), mergee_intrinsic(), minus_opr_handler(), minval_intrinsic(), mld_intrinsic(), mldmx_intrinsic(), mmx_intrinsic(), mod_intrinsic(), modulo_intrinsic(), mul_intrinsic(), mult_opr_handler(), my_pe_intrinsic(), nearest_intrinsic(), nint_intrinsic(), not_intrinsic(), ntr_bnds_sh_tmp_list(), ntr_bnds_tmp_list(), null_intrinsic(), num_images_intrinsic(), numarg_intrinsic(), omp_set_lock_intrinsic(), open_stmt_semantics(), optimize_whole_array_init(), outer_imp_do_count(), outmoded_if_stmt_semantics(), output_struct_ids(), pack_intrinsic(), parse_add_opnd(), parse_allocate_stmt(), parse_assert_directive(), parse_assign_stmt(), parse_assignment_stmt(), parse_backspace_stmt(), parse_call_stmt(), parse_case_stmt(), parse_cc_add_opnd(), parse_cc_equiv_opnd(), parse_cc_level_2(), parse_cc_level_3(), parse_cc_level_4(), parse_cc_level_5(), parse_cc_level_6(), parse_cc_level_7(), parse_cc_level_8(), parse_cc_or_opnd(), parse_close_stmt(), parse_cpnt_dcl_stmt(), parse_deallocate_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_directives(), parse_encode_stmt(), parse_endfile_stmt(), parse_equiv_opnd(), parse_fill_align_symbol(), parse_initializer(), parse_inquire_stmt(), parse_level_1(), parse_level_2(), parse_level_3(), parse_level_4(), parse_level_5(), parse_mic_directives(), parse_mult_opnd(), parse_open_mp_directives(), parse_open_stmt(), parse_operand(), parse_or_opnd(), parse_par_directives(), parse_print_stmt(), parse_read_stmt(), parse_rewind_stmt(), parse_star_dir_directives(), parse_star_directives(), parse_type_dcl_stmt(), parse_write_stmt(), plus_opr_handler(), power_opr_handler(), present_intrinsic(), print_expanded_ir(), print_stmt_semantics(), process_all_initialized_cpnts(), process_attr_links(), process_char_len(), process_deferred_functions(), ptr_assign_from_ptr(), ranf_intrinsic(), ranget_intrinsic(), read_stmt_semantics(), readsm_intrinsic(), real_intrinsic(), remote_write_barrier_intrinsic(), reshape_reference_subscripts(), resolve_ext_opr(), rewind_stmt_semantics(), rrspacing_intrinsic(), rtc_intrinsic(), save_array_syntax_subscripts(), scale_intrinsic(), scan_for_ptr_chk(), search_expr_for_dargs(), selected_int_kind_intrinsic(), set_exponent_intrinsic(), set_global_value_variables(), set_ieee_exception_intrinsic(), set_shape_for_deferred_funcs(), shift_intrinsic(), short_circuit_branch(), short_circuit_high_level_if(), sign_intrinsic(), sin_intrinsic(), size_intrinsic(), spacing_intrinsic(), spread_intrinsic(), srch_for_calls(), stmt_func_call_opr_handler(), stop_pause_stmt_semantics(), struct_opr_handler(), synchronize_intrinsic(), test_ieee_interrupt_intrinsic(), transfer_intrinsic(), transform_char_sequence_ref(), translate_distant_dv_ref(), translate_distant_ref1(), translate_distant_ref2(), translate_dv_component(), transpose_intrinsic(), tree_produces_dealloc(), trim_intrinsic(), type_init_semantics(), ubound_intrinsic(), unit_intrinsic(), unpack_intrinsic(), update_components(), validate_char_len(), wait_send_semantics(), where_stmt_semantics(), write_memory_barrier_intrinsic(), and write_stmt_semantics().

#define IR_OPR ( IDX ) ir_tbl[IDX].opr.the_operator

Definition at line 3780 of file sytb.m.

Referenced by abs_intrinsic(), add_substring_length(), adjust_char_value_len(), adjustl_intrinsic(), aimag_intrinsic(), aint_intrinsic(), align_bit_length(), all_intrinsic(), alloc_obj_opr_handler(), allocate_stmt_semantics(), allocated_intrinsic(), analyse_loops(), and_opr_handler(), anint_intrinsic(), array_construct_opr_handler(), array_construct_semantics(), array_dim_resolution(), array_element_to_scalar(), asg_opnd_to_tmp(), assign_stmt_semantics(), assignment_stmt_semantics(), associated_intrinsic(), attr_semantics(), backspace_stmt_semantics(), bits_and_bytes_to_words(), bounds_cdir_handler(), btest_intrinsic(), buffer_stmt_semantics(), build_loop_tbl(), calculate_iteration_count(), call_list_semantics(), case_stmt_semantics(), cast_to_cg_default(), cast_to_type_idx(), ceiling_intrinsic(), change_asg_to_where(), change_section_to_do(), change_section_to_this_element(), change_subscript(), char_intrinsic(), char_len_resolution(), character_to_character(), check_arg_for_co_array(), check_array_bounds(), check_cmic_blk_branches(), check_for_constructors(), check_for_dependencies(), check_for_elementals(), check_loop_bottom_nesting(), check_mp_dir_nesting(), check_multiple_entry_func(), check_stat_variable(), check_target_and_value(), check_type_for_size_address(), ck_lbl_construct_name(), close_stmt_semantics(), cmp_ref_trees(), cmplx_intrinsic(), compare_and_swap_intrinsic(), compare_darg_to_actual_arg(), compare_ir(), compute_char_element_len(), concat_opr_handler(), conform_check(), conjg_intrinsic(), constant_value_semantics(), copy_entry_exit_sh_list(), copy_sbtree(), copy_subtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_interp_stmts(), create_io_call_descriptor(), create_kwd_text(), create_runtime_array_constructor(), create_strct_tbl(), create_struct_argchck_tbl(), create_struct_constructor_asg(), create_tmp_asg(), create_tmp_DV_asg(), cshift_intrinsic(), csmg_intrinsic(), cvrt_exp_to_pdg(), data_repeat_semantics(), data_stmt_semantics(), deallocate_local_allocatables(), deallocate_stmt_semantics(), default_init_semantics(), determine_num_elements(), determine_slice_size(), determine_tmp_size(), dim_intrinsic(), directive_stmt_semantics(), discombobulate_structure_ref(), do_single_asg(), do_slice_asg(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dot_product_intrinsic(), dprod_intrinsic(), dshiftl_intrinsic(), dump_ir_ntry(), else_stmt_semantics(), encode_decode_stmt_semantics(), end_blk_mp_semantics(), end_forall_semantics(), end_function(), end_function_semantics(), end_if_blk(), end_internal_proc(), end_labeled_do(), end_module_proc(), end_program_unit(), end_select_blk(), end_subroutine(), end_task_do_blk(), endfile_stmt_semantics(), eoshift_intrinsic(), eq_opr_handler(), equivalence_semantics(), expand_imp_do(), expand_io_list(), exponent_intrinsic(), fcd_intrinsic(), fetch_and_add_intrinsic(), final_arg_work(), find_attrs_used_in_bound(), find_base_attr(), finish_cdir_id(), flatten_function_call(), floor_intrinsic(), fold_aggragate_expression(), fold_all_subscripts(), fold_cc_expr(), fold_clen_opr(), fold_nested_substrings(), forall_semantics(), fraction_intrinsic(), free_intrinsic(), gen_arg_type_descriptor(), gen_array_element_init(), gen_assumed_shape_copy(), gen_attr_and_IR_for_lbl(), gen_auto_length(), gen_bd_entry(), gen_bias_ref(), gen_branch_around_ir(), gen_call_type_descriptor(), gen_common_dv_init(), gen_darg_branch_test(), gen_dbg_write_stmt(), gen_debug_lbl_stmt(), gen_directive_ir(), gen_dv_access_low_bound(), gen_dv_def_loops(), gen_Dv_Set_stmt(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_end_prologue_debug_label(), gen_forall_tmp(), gen_if_ir(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_ir(), gen_lb_array_ref(), gen_loop_end_ir(), gen_present_ir(), gen_runtime_bounds(), gen_runtime_checks(), gen_section_ref(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_dv_whole_def(), gen_stmt_expansion_opr(), gen_tmp_eq_zero_ir(), gen_tmp_equal_max_zero(), gen_user_code_start_opr(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), get_char_len(), get_concat_len(), get_ieee_status_intrinsic(), get_shape_from_attr(), getpos_intrinsic(), good_data_imp_do_expr(), goto_stmt_semantics(), has_been_reprivatized(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ichar_intrinsic(), ieee_finite_intrinsic(), ieee_real_intrinsic(), if_stmt_semantics(), imp_do_metamorphed(), implied_do_depth(), increment_subscript(), index_intrinsic(), init_whole_array(), inline_processing(), inquire_stmt_semantics(), insert_argchck_calls(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), int_intrinsic(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_constructor(), interpret_csmg_opr(), interpret_data_imp_do(), interpret_index_opr(), interpret_max_min_opr(), interpret_ref(), interpret_repeat_intrinsic(), interpret_trim_intrinsic(), interpret_unary_intrinsic_opr(), interpret_unary_opr(), io_ctl_list_semantics(), io_list_semantics(), ir_is_symbolic_constant(), ishft_intrinsic(), ishftc_intrinsic(), item_has_bounds_chk(), just_find_dope_and_rank(), kind_to_linear_type(), lbound_intrinsic(), leadz_intrinsic(), len_intrinsic(), len_trim_intrinsic(), length_intrinsic(), lg_opr_handler(), lge_intrinsic(), linearize_pe_dims(), loc_intrinsic(), lock_release_intrinsic(), logical_intrinsic(), look_for_real_div(), loop_end_processing(), lower_ptr_asg(), lt_opr_handler(), make_base_assumed_size(), make_base_subtree(), make_new_bd_entries(), make_triplet_extent_tree(), malloc_intrinsic(), mask_intrinsic(), matmul_intrinsic(), max_intrinsic(), max_opr_handler(), mclr_intrinsic(), memory_barrier_intrinsic(), mergee_intrinsic(), minus_opr_handler(), minval_intrinsic(), mld_intrinsic(), mldmx_intrinsic(), mmx_intrinsic(), mod_intrinsic(), modulo_intrinsic(), mul_intrinsic(), mult_opr_handler(), mvbits_intrinsic(), my_pe_intrinsic(), nearest_intrinsic(), needs_bounds_check(), nint_intrinsic(), not_intrinsic(), not_opr_handler(), null_intrinsic(), nullify_stmt_semantics(), num_images_intrinsic(), numarg_intrinsic(), omp_set_lock_intrinsic(), open_stmt_semantics(), optimize_reshape(), optimize_whole_array_init(), outer_imp_do_count(), outmoded_if_stmt_semantics(), output_struct_ids(), pack_intrinsic(), paren_grp_is_cplx_const(), paren_opr_handler(), parse_actual_arg_spec(), parse_add_opnd(), parse_allocate_stmt(), parse_and_opnd(), parse_assign_stmt(), parse_assignment_stmt(), parse_backspace_stmt(), parse_buffer_stmt(), parse_call_stmt(), parse_case_stmt(), parse_cc_add_opnd(), parse_cc_equiv_opnd(), parse_cc_level_2(), parse_cc_level_3(), parse_cc_level_4(), parse_cc_level_5(), parse_cc_level_6(), parse_cc_level_7(), parse_cc_level_8(), parse_cc_mult_opnd(), parse_cc_operand(), parse_cc_or_opnd(), parse_close_stmt(), parse_cpnt_dcl_stmt(), parse_cycle_stmt(), parse_data_imp_do(), parse_data_stmt(), parse_deallocate_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_directives(), parse_do_stmt(), parse_else_stmt(), parse_encode_stmt(), parse_endfile_stmt(), parse_entry_stmt(), parse_equiv_opnd(), parse_equivalence_stmt(), parse_exit_stmt(), parse_expr(), parse_forall(), parse_goto_stmt(), parse_id_directive(), parse_if_stmt(), parse_imp_do(), parse_initializer(), parse_inquire_stmt(), parse_int_spec_expr(), parse_level_1(), parse_level_2(), parse_level_3(), parse_level_4(), parse_level_5(), parse_lhs(), parse_mic_directives(), parse_mult_opnd(), parse_nullify_stmt(), parse_open_mp_clauses(), parse_open_mp_directives(), parse_open_stmt(), parse_operand(), parse_or_opnd(), parse_par_directives(), parse_permutation_mic(), parse_print_stmt(), parse_prog_unit(), parse_read_stmt(), parse_return_stmt(), parse_rewind_stmt(), parse_select_stmt(), parse_stop_pause_stmt(), parse_type_dcl_stmt(), parse_use_stmt(), parse_where_stmt(), parse_write_stmt(), pe_array_dim_resolution(), plus_opr_handler(), power_opr_handler(), present_intrinsic(), print_expanded_ir(), print_stmt_semantics(), process_all_initialized_cpnts(), process_char_len(), process_cpnt_inits(), process_data_imp_do_target(), process_deferred_functions(), process_deferred_io_list(), process_interchange_dir(), process_variable_size_func(), ptr_assign_from_ptr(), push_data_value(), put_string_in_tmp(), random_number_intrinsic(), random_seed_intrinsic(), ranf_intrinsic(), read_stmt_semantics(), read_sytb_from_module_file(), readsm_intrinsic(), real_intrinsic(), remote_write_barrier_intrinsic(), reshape_intrinsic(), reshape_reference_subscripts(), resolve_ext_opr(), return_stmt_semantics(), rewind_stmt_semantics(), rrspacing_intrinsic(), rtc_intrinsic(), save_array_syntax_subscripts(), scalar_dope_to_scalar(), scale_intrinsic(), scan_for_ptr_chk(), section_semantics(), selected_int_kind_intrinsic(), send_attr_ntry(), send_label_def(), set_exponent_intrinsic(), set_global_value_variables(), set_ieee_exception_intrinsic(), set_mp_task_flags(), set_open_mp_task_flags(), set_shape_for_deferred_funcs(), set_up_allocate_as_call(), set_up_which_entry_tmp(), shape_intrinsic(), shift_intrinsic(), short_circuit_branch(), short_circuit_high_level_if(), sign_intrinsic(), sin_intrinsic(), size_intrinsic(), size_offset_binary_calc(), size_offset_logical_calc(), size_offset_min_max_calc(), spacing_intrinsic(), spread_intrinsic(), srch_for_calls(), start_new_prog_unit(), start_new_subpgm(), stmt_func_call_opr_handler(), stop_pause_stmt_semantics(), struct_construct_opr_handler(), struct_opr_handler(), subscript_opr_handler(), substring_opr_handler(), synchronize_intrinsic(), test_ieee_interrupt_intrinsic(), test_size_stmts(), transfer_intrinsic(), transform_char_sequence_ref(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref(), translate_distant_ref1(), translate_distant_ref2(), translate_dv_component(), transpose_intrinsic(), tree_produces_dealloc(), type_init_semantics(), ubound_intrinsic(), unit_intrinsic(), unpack_intrinsic(), update_components(), uplus_opr_handler(), use_stmt_semantics(), validate_char_len(), vv_subscript_semantics(), where_stmt_semantics(), write_memory_barrier_intrinsic(), and write_stmt_semantics().

#define IR_RANK ( IDX ) ir_tbl[IDX].opr.rank

Definition at line 3783 of file sytb.m.

Referenced by abs_intrinsic(), aimag_intrinsic(), aint_intrinsic(), all_intrinsic(), alloc_obj_opr_handler(), and_opr_handler(), anint_intrinsic(), assignment_stmt_semantics(), associated_intrinsic(), atan2_intrinsic(), bit_size_intrinsic(), btest_intrinsic(), call_list_semantics(), cast_opnd_to_type_idx(), cast_to_cg_default(), cast_to_type_idx(), ceiling_intrinsic(), change_section_to_this_element(), char_intrinsic(), cmplx_intrinsic(), compare_and_swap_intrinsic(), concat_opr_handler(), conjg_intrinsic(), create_tmp_asg(), cshift_intrinsic(), csmg_intrinsic(), cvmgp_intrinsic(), dealloc_obj_opr_handler(), digits_intrinsic(), dim_intrinsic(), dot_product_intrinsic(), dprod_intrinsic(), dshiftl_intrinsic(), dsm_numthreads_intrinsic(), dump_ir_ntry(), eoshift_intrinsic(), epsilon_intrinsic(), eq_opr_handler(), exponent_intrinsic(), fcd_intrinsic(), fetch_and_add_intrinsic(), flatten_function_call(), floor_intrinsic(), fraction_intrinsic(), free_intrinsic(), gen_forall_tmp(), gen_ir(), gen_section_ref(), gen_whole_subscript(), gen_whole_substring(), get_ieee_status_intrinsic(), getpos_intrinsic(), huge_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ichar_intrinsic(), ieee_finite_intrinsic(), ieee_real_intrinsic(), ilen_intrinsic(), index_intrinsic(), init_whole_array(), int_intrinsic(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_concat_opr(), interpret_csmg_opr(), interpret_cvmgt_opr(), interpret_index_opr(), interpret_max_min_opr(), interpret_ref(), interpret_unary_intrinsic_opr(), interpret_unary_opr(), ishft_intrinsic(), ishftc_intrinsic(), kind_intrinsic(), lbound_intrinsic(), leadz_intrinsic(), len_trim_intrinsic(), length_intrinsic(), lg_opr_handler(), lge_intrinsic(), loc_intrinsic(), logical_intrinsic(), lt_opr_handler(), make_base_subtree(), malloc_intrinsic(), mask_intrinsic(), matmul_intrinsic(), max_intrinsic(), maxexponent_intrinsic(), mclr_intrinsic(), memory_barrier_intrinsic(), mergee_intrinsic(), minexponent_intrinsic(), minus_opr_handler(), minval_intrinsic(), mld_intrinsic(), mldmx_intrinsic(), mmx_intrinsic(), mod_intrinsic(), modulo_intrinsic(), mul_intrinsic(), mult_opr_handler(), my_pe_intrinsic(), nearest_intrinsic(), nint_intrinsic(), not_intrinsic(), not_opr_handler(), null_intrinsic(), num_images_intrinsic(), numarg_intrinsic(), omp_get_max_threads_intrinsic(), omp_set_lock_intrinsic(), pack_intrinsic(), paren_opr_handler(), plus_opr_handler(), power_opr_handler(), precision_intrinsic(), present_intrinsic(), process_all_initialized_cpnts(), process_cpnt_inits(), radix_intrinsic(), ranf_intrinsic(), range_intrinsic(), ranget_intrinsic(), read_sytb_from_module_file(), readsm_intrinsic(), real_intrinsic(), remote_write_barrier_intrinsic(), repeat_intrinsic(), reshape_intrinsic(), resolve_ext_opr(), rrspacing_intrinsic(), rtc_intrinsic(), scale_intrinsic(), selected_int_kind_intrinsic(), selected_real_kind_intrinsic(), set_exponent_intrinsic(), set_ieee_exception_intrinsic(), set_up_exp_desc(), shape_intrinsic(), shift_intrinsic(), sign_intrinsic(), sin_intrinsic(), size_intrinsic(), sizeof_intrinsic(), spacing_intrinsic(), spread_intrinsic(), struct_construct_opr_handler(), struct_opr_handler(), subscript_opr_handler(), substring_opr_handler(), synchronize_intrinsic(), test_ieee_interrupt_intrinsic(), tiny_intrinsic(), transfer_intrinsic(), transpose_intrinsic(), trim_intrinsic(), triplet_opr_handler(), ubound_intrinsic(), unit_intrinsic(), unpack_intrinsic(), uplus_opr_handler(), and write_memory_barrier_intrinsic().

#define IR_SHORT_CIRCUIT_L ( IDX ) ir_tbl[IDX].op_l.flag_1

Definition at line 3794 of file sytb.m.

Referenced by and_opr_handler(), short_circuit_branch(), and short_circuit_high_level_if().

#define IR_SHORT_CIRCUIT_R ( IDX ) ir_tbl[IDX].op_r.flag_1

Definition at line 3802 of file sytb.m.

Referenced by and_opr_handler(), short_circuit_branch(), and short_circuit_high_level_if().

#define IR_TYPE_IDX ( IDX ) ir_tbl[IDX].opr.type_idx

Definition at line 3781 of file sytb.m.

#define IR_WHOLE_ARRAY ( IDX ) ir_tbl[IDX].opr.dim

Definition at line 3786 of file sytb.m.

Referenced by cvrt_exp_to_pdg(), dump_ir_ntry(), final_arg_work(), and needs_bounds_check().

#define IS_STMT_ENTITY ( ATTR_IDX )

Value:

(AT_OBJ_CLASS(ATTR_IDX) == Data_Obj &&                                 \
         ATD_SEEN_AS_LCV(ATTR_IDX) &&                                          \
         ! ATD_SEEN_IN_IMP_DO(ATTR_IDX) &&                                     \
         ! ATD_SEEN_OUTSIDE_IMP_DO(ATTR_IDX))

Definition at line 4430 of file sytb.m.

Referenced by attr_link_resolution(), create_mod_info_tbl(), parse_assignment_stmt(), and parse_deref().

#define LN_DEF_LOC ( IDX ) loc_name_tbl[IDX].def_locally

Definition at line 4020 of file sytb.m.

Referenced by attr_link_resolution(), check_label_ref(), ck_lbl_construct_name(), dump_ln_ntry(), gen_attr_and_IR_for_lbl(), generic_spec_semantics(), implicit_use_semantics(), init_parse_prog_unit(), issue_undefined_type_msg(), not_visible_semantics(), parse_assign_stmt(), parse_attrs(), parse_auxiliary_dir(), parse_cache_noalloc(), parse_call_stmt(), parse_common_stmt(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_decode_stmt(), parse_deref(), parse_derived_type_stmt(), parse_distribution_dir(), parse_do_stmt(), parse_dummy_args(), parse_encode_stmt(), parse_entry_stmt(), parse_equivalence_stmt(), parse_fill_align_symbol(), parse_ignore_tkr(), parse_inline_always_never(), parse_io_control_list(), parse_module_stmt(), parse_name_dir(), parse_namelist_stmt(), parse_nosideeffects_dir(), parse_parameter_stmt(), parse_permutation_mic(), parse_pointer_stmt(), parse_print_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_sgi_dir_inline(), parse_star_directives(), parse_stmt_func_stmt(), parse_symmetric_dir(), parse_type_dcl_stmt(), parse_use_stmt(), parse_var_common_list(), parse_vfunction_dir(), parse_write_stmt(), rename_only_semantics(), send_derived_type(), set_function_rslt(), start_new_prog_unit(), start_new_scp(), start_new_subpgm(), and use_stmt_semantics().

#define LN_IN_ONLY_LIST ( IDX ) loc_name_tbl[IDX].in_only_list

Definition at line 4021 of file sytb.m.

Referenced by dump_ln_ntry(), rename_only_semantics(), and use_stmt_semantics().

#define LN_NAME_IDX ( IDX ) loc_name_tbl[IDX].name_idx

#define LN_NAME_LEN ( IDX ) loc_name_tbl[IDX].name_len

Definition at line 4023 of file sytb.m.

Referenced by attr_link_resolution(), compress_tbls(), dump_ln_ntry(), init_name_and_stor_tbls(), not_visible_semantics(), ntr_host_in_sym_tbl(), ntr_sym_tbl(), rename_only_semantics(), and use_stmt_semantics().

#define LN_NAME_LONG ( IDX ) &(name_pool[LN_NAME_IDX(IDX)].name_long)

Definition at line 4024 of file sytb.m.

Referenced by rename_only_semantics(), and use_stmt_semantics().

#define LN_NEW_NAME ( IDX ) loc_name_tbl[IDX].new_name

Definition at line 4025 of file sytb.m.

Referenced by dump_ln_ntry(), rename_only_semantics(), and use_stmt_semantics().

#define LN_RENAMED ( IDX ) loc_name_tbl[IDX].renamed

Definition at line 4026 of file sytb.m.

Referenced by dump_ln_ntry(), rename_only_semantics(), and use_stmt_semantics().

#define MAIN_SCP_IDX 1 /* Scope index of outer program */

Definition at line 71 of file sytb.m.

Referenced by collapse_interface_blk(), create_mod_info_file(), create_mod_info_tbl(), cvrt_proc_to_pdg(), cvrt_to_pdg(), find_prog_unit_tbl(), main(), output_mod_info_file(), parse_dir_directives(), send_mod_file_name(), and use_stmt_semantics().

#define MAX_ALTERNATE_ENTRIES 65535 /* Max num alt entries. */

Definition at line 287 of file sytb.m.

Referenced by parse_entry_stmt().

#define MAX_GENERATED_LABELS 99999 /* Max num compiler gen'd lbls*/

Definition at line 285 of file sytb.m.

Referenced by gen_debug_lbl_stmt(), and gen_internal_lbl().

#define MAX_IMPL_CHS 26 /* number of ASCII characters */

Definition at line 286 of file sytb.m.

Referenced by decl_semantics(), dump_scp_ntry(), init_parse_prog_unit(), and start_new_scp().

#define MAX_INLINE_ARGS 256 /* max actual args allowed on a */

Definition at line 312 of file sytb.m.

Referenced by srch_for_calls().

#define MAX_INLINE_IR 100000 /* max number of IR entries allowed */

Definition at line 318 of file sytb.m.

Referenced by copy_sbtree().

#define MAX_INLINE_LABELS 1000 /* max number of labels allowed in */

Definition at line 315 of file sytb.m.

Referenced by copy_sbtree().

#define MAX_INLINED_ROUTINES 1000 /* max number of distinct routines */

Definition at line 321 of file sytb.m.

Referenced by inline_processing(), and srch_for_calls().

#define MAX_INTRIN_MAP_SIZE 59 /* max entries in intrinsic map */

Definition at line 310 of file sytb.m.

Referenced by init_parse_prog_unit(), and parse_deref().

#define MAX_INTRIN_TBL_SIZE 13400 /* max entries in intrinsic table */

Definition at line 308 of file sytb.m.

Referenced by enter_intrinsic_info().

#define MAX_NUM_DIMS 7 /* Max # of dimensions we allow. */

Definition at line 56 of file sytb.m.

Referenced by lbound_intrinsic(), reshape_intrinsic(), shape_intrinsic(), and ubound_intrinsic().

#define ML_AT_COMPRESSED_IDX ( IDX ) mod_link_tbl[IDX].at_compressed

Definition at line 3985 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), and dump_ml_ntry().

#define ML_AT_IDX ( IDX ) mod_link_tbl[IDX].at_idx

Definition at line 3984 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), compress_type_tbl(), dump_ml_ntry(), merge_interfaces(), not_visible_semantics(), output_mod_info_file(), print_ml_tbl(), read_in_module_tbl(), resolve_all_components(), resolve_attr(), resolve_used_modules(), set_mod_link_tbl_for_attr(), update_idxs_in_attr_entry(), update_intrinsic(), and use_stmt_semantics().

#define ML_AT_KEEP_ME ( IDX ) mod_link_tbl[IDX].at_keep_me

Definition at line 3986 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), create_mod_info_tbl(), dump_ml_ntry(), merge_interfaces(), not_visible_semantics(), resolve_all_components(), resolve_attr(), resolve_used_modules(), and set_mod_link_tbl_for_attr().

#define ML_AT_LN_NAME ( IDX ) mod_link_tbl[IDX].at_ln_name

Definition at line 3987 of file sytb.m.

Referenced by collapse_interface_blk(), dump_ml_ntry(), read_in_module_tbl(), rename_only_semantics(), and resolve_attr().

#define ML_AT_SEARCH_ME ( IDX ) mod_link_tbl[IDX].at_search_me

Definition at line 3989 of file sytb.m.

Referenced by assign_new_idxs_after_input(), collapse_interface_blk(), and set_mod_link_tbl_for_attr().

#define ML_AT_SEARCHED ( IDX ) mod_link_tbl[IDX].at_searched

Definition at line 3988 of file sytb.m.

Referenced by assign_new_idxs_after_input(), check_il_for_attrs(), check_ir_for_attrs(), dump_ml_ntry(), merge_interfaces(), resolve_attr(), set_mod_link_tbl_for_attr(), and use_stmt_semantics().

#define ML_BD_IDX ( IDX ) mod_link_tbl[IDX].bd_idx

Definition at line 3990 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), dump_ml_ntry(), print_ml_tbl(), read_in_module_tbl(), set_mod_link_tbl_for_bd(), update_idxs_in_attr_entry(), and use_stmt_semantics().

#define ML_BD_KEEP_ME ( IDX ) mod_link_tbl[IDX].bd_keep_me

Definition at line 3991 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), dump_ml_ntry(), set_mod_link_tbl_for_attr(), set_mod_link_tbl_for_bd(), and use_stmt_semantics().

#define ML_CN_IDX ( IDX ) mod_link_tbl[IDX].cn_idx

Definition at line 3992 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), compress_type_tbl(), dump_ml_ntry(), print_ml_tbl(), read_in_module_tbl(), set_mod_link_tbl_for_cn(), and update_idxs_in_attr_entry().

#define ML_CN_KEEP_ME ( IDX ) mod_link_tbl[IDX].cn_keep_me

Definition at line 3993 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_cn().

#define ML_CP_DALIGN_ME ( IDX ) mod_link_tbl[IDX].cp_dalign_me

Definition at line 3994 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_cn().

#define ML_CP_IDX ( IDX ) mod_link_tbl[IDX].cp_idx

Definition at line 3995 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), dump_ml_ntry(), print_ml_tbl(), read_in_module_tbl(), and set_mod_link_tbl_for_cn().

#define ML_CP_KEEP_ME ( IDX ) mod_link_tbl[IDX].cp_keep_me

Definition at line 3996 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_cn().

#define ML_CP_LEN ( IDX ) mod_link_tbl[IDX].cp_len

Definition at line 3997 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_cn().

#define ML_IL_IDX ( IDX ) mod_link_tbl[IDX].il_idx

Definition at line 3998 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), dump_ml_ntry(), print_ml_tbl(), read_in_module_tbl(), set_mod_link_tbl_for_il(), and update_idxs_in_attr_entry().

#define ML_IL_KEEP_ME ( IDX ) mod_link_tbl[IDX].il_keep_me

Definition at line 3999 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_il().

#define ML_IR_IDX ( IDX ) mod_link_tbl[IDX].ir_idx

Definition at line 4000 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), dump_ml_ntry(), print_ml_tbl(), read_in_module_tbl(), set_mod_link_tbl_for_ir(), and update_idxs_in_attr_entry().

#define ML_IR_KEEP_ME ( IDX ) mod_link_tbl[IDX].ir_keep_me

Definition at line 4001 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_ir().

#define ML_LN_IDX ( IDX ) mod_link_tbl[IDX].ln_idx

Definition at line 4002 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), create_mod_info_tbl(), dump_ml_ntry(), print_ml_tbl(), read_in_module_tbl(), and use_stmt_semantics().

#define ML_LN_KEEP_ME ( IDX ) mod_link_tbl[IDX].ln_keep_me

Definition at line 4003 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), create_mod_info_tbl(), dump_ml_ntry(), and use_stmt_semantics().

#define ML_NP_IDX ( IDX ) mod_link_tbl[IDX].np_idx

Definition at line 4004 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), dump_ml_ntry(), print_ml_tbl(), read_in_module_tbl(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ML_NP_KEEP_ME ( IDX ) mod_link_tbl[IDX].np_keep_me

Definition at line 4005 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_attr().

#define ML_NP_LEN ( IDX ) mod_link_tbl[IDX].np_len

Definition at line 4006 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_attr().

#define ML_SB_IDX ( IDX ) mod_link_tbl[IDX].sb_idx

Definition at line 4007 of file sytb.m.

Referenced by assign_new_idxs(), assign_new_idxs_after_input(), collapse_interface_blk(), compress_tbls(), dump_ml_ntry(), print_ml_tbl(), read_in_module_tbl(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ML_SB_KEEP_ME ( IDX ) mod_link_tbl[IDX].sb_keep_me

Definition at line 4008 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_attr().

#define ML_SH_IDX ( IDX ) mod_link_tbl[IDX].sh_idx

Definition at line 4009 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), dump_ml_ntry(), output_mod_info_file(), print_ml_tbl(), read_in_module_tbl(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ML_SH_KEEP_ME ( IDX ) mod_link_tbl[IDX].sh_keep_me

Definition at line 4010 of file sytb.m.

Referenced by assign_new_idxs(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_attr().

#define ML_SN_IDX ( IDX ) mod_link_tbl[IDX].sn_idx

Definition at line 4011 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), dump_ml_ntry(), print_ml_tbl(), read_in_module_tbl(), set_mod_link_tbl_for_attr(), and update_idxs_in_attr_entry().

#define ML_SN_KEEP_ME ( IDX ) mod_link_tbl[IDX].sn_keep_me

Definition at line 4012 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), dump_ml_ntry(), and set_mod_link_tbl_for_attr().

#define ML_TYP_IDX ( IDX ) mod_link_tbl[IDX].typ_idx

Definition at line 4013 of file sytb.m.

Referenced by assign_new_idxs(), collapse_interface_blk(), compress_tbls(), compress_type_tbl(), dump_ml_ntry(), print_ml_tbl(), read_in_module_tbl(), set_mod_link_tbl_for_typ(), and update_idxs_in_attr_entry().

#define ML_TYP_KEEP_ME ( IDX ) mod_link_tbl[IDX].typ_keep_me

Definition at line 4014 of file sytb.m.

Referenced by compress_type_tbl(), dump_ml_ntry(), and set_mod_link_tbl_for_typ().

#define MSK_NAME_IDX 0000000000000077777777

Definition at line 4146 of file sytb.m.

#define MSK_NAME_LEN 0000000000000000000377

Definition at line 4147 of file sytb.m.

#define NAME_POOL_ONES_IDX 2 /* The all ones entry - for LN */

Definition at line 74 of file sytb.m.

Referenced by create_hidden_name_tbl(), init_cond_comp(), and init_name_and_stor_tbls().

#define NAME_POOL_ZERO_IDX 1 /* The all zero entry - for LN */

Definition at line 73 of file sytb.m.

Referenced by create_hidden_name_tbl(), init_cond_comp(), and init_name_and_stor_tbls().

#define NP_LAST_USED_IDX 2 /* last reserved index */

Definition at line 305 of file sytb.m.

Referenced by init_parse_prog_unit().

#define NTR_ATTR_LIST_TBL ( ATTR_LIST_IDX )

Value:

{int            _idx;                                                  \
          _idx          = ntr_attr_list_tbl();                                 \
         ATTR_LIST_IDX  = _idx;}

Definition at line 4443 of file sytb.m.

Referenced by add_attr_to_local_list(), assign_new_idxs_after_input(), attr_semantics(), call_list_semantics(), check_for_dup_derived_type_lbl(), complete_intrinsic_definition(), copy_subtree(), decl_semantics(), final_attr_semantics(), final_decl_semantics(), implicit_use_semantics(), merge_entry_lists(), ntr_bnds_sh_tmp_list(), ntr_bnds_tmp_list(), parse_dummy_args(), parse_entry_stmt(), parse_equivalence_stmt(), parse_type_spec(), parse_use_stmt(), reshape_array_semantics(), srch_for_calls(), and use_stmt_semantics().

#define NTR_ATTR_TBL ( ATTR_IDX )

Value:

TBL_REALLOC_CK(attr_tbl, 1);                                          \
         CLEAR_TBL_NTRY(attr_tbl, attr_tbl_idx);                               \
         TBL_REALLOC_CK(attr_aux_tbl, 1);                                      \
         CLEAR_TBL_NTRY(attr_aux_tbl, attr_aux_tbl_idx);                       \
         ATTR_IDX = attr_tbl_idx;

Definition at line 4436 of file sytb.m.

Referenced by call_list_semantics(), check_for_dup_derived_type_lbl(), chg_data_obj_to_pgm_unit(), complete_intrinsic_definition(), copy_sbtree(), create_lib_entry_attr(), expand_user_bound(), final_attr_semantics(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_end_prologue_debug_label(), gen_forall_derived_type(), generic_spec_semantics(), host_associated_attr_semantics(), init_parse_prog_unit(), minval_intrinsic(), ntr_host_in_sym_tbl(), ntr_local_attr_list(), ntr_sym_tbl(), parse_cpnt_dcl_stmt(), parse_module_stmt(), parse_stmt_func_stmt(), rename_only_semantics(), set_function_rslt(), set_up_pe_offset_attr(), and start_new_subpgm().

#define NTR_EQ_TBL ( EQ_IDX )

Value:

TBL_REALLOC_CK(equiv_tbl, 1);                                         \
         CLEAR_TBL_NTRY(equiv_tbl, equiv_tbl_idx);                             \
         EQ_OFFSET_FLD(equiv_tbl_idx)   = CN_Tbl_Idx;                          \
         EQ_OFFSET_IDX(equiv_tbl_idx)   = CN_INTEGER_ZERO_IDX;                 \
         EQ_IDX = equiv_tbl_idx;

Definition at line 4451 of file sytb.m.

Referenced by attr_semantics(), decl_semantics(), init_whole_array(), parse_equivalence_stmt(), and transform_cri_ch_ptr().

#define NTR_GL_IR_LIST_TBL ( IR_LIST_IDX )

Value:

{int        _idx;                                                  \
            _idx = ntr_gl_ir_list_tbl();                                       \
            IR_LIST_IDX = _idx;}

Definition at line 4498 of file sytb.m.

Referenced by copy_to_gl_subtree().

#define NTR_GL_IR_TBL ( IR_IDX )

Value:

{int        _idx;                                                  \
            _idx = ntr_gl_ir_tbl();                                            \
            IR_IDX = _idx;}

Definition at line 4505 of file sytb.m.

Referenced by copy_to_gl_subtree().

#define NTR_INTERFACE_IN_SN_TBL	(	SN_IDX,
		AT_IDX,
		PARENT_IDX,
		LINE,
		COLUMN
	)

Value:

NTR_SN_TBL(SN_IDX);                                                    \
        SN_ATTR_IDX(SN_IDX)               = AT_IDX;                            \
        SN_NAME_LEN(SN_IDX)               = AT_NAME_LEN(AT_IDX);               \
        SN_NAME_IDX(SN_IDX)               = AT_NAME_IDX(AT_IDX);               \
        SN_LINE_NUM(SN_IDX)               = LINE;                              \
        SN_COLUMN_NUM(SN_IDX)             = COLUMN;                            \
        SN_SIBLING_LINK(SN_IDX)           = ATI_FIRST_SPECIFIC_IDX(PARENT_IDX);\
        ATI_FIRST_SPECIFIC_IDX(PARENT_IDX)= SN_IDX;                            \
        ATI_NUM_SPECIFICS(PARENT_IDX)    += 1;

Definition at line 4524 of file sytb.m.

Referenced by complete_intrinsic_definition(), parse_module_stmt(), and start_new_subpgm().

#define NTR_IR_LIST_TBL ( IR_LIST_IDX )

Value:

{int    _idx;                                                  \
            _idx = ntr_ir_list_tbl();                                          \
            IR_LIST_IDX = _idx;}

Definition at line 4486 of file sytb.m.

Referenced by add_alt_return_lbl(), add_common_blk_objects_to_list(), add_substring_length(), adjust_char_value_len(), all_intrinsic(), allocate_stmt_semantics(), analyse_loops(), array_construct_semantics(), assignment_stmt_semantics(), bounds_cdir_handler(), btest_intrinsic(), buffer_stmt_semantics(), build_fwd_ref_entry(), build_loop_tbl(), call_list_semantics(), case_stmt_semantics(), change_asg_to_where(), change_section_to_do(), char_len_resolution(), check_multiple_entry_func(), concat_opr_handler(), copy_from_gl_subtree(), copy_sbtree(), copy_subtree(), create_alloc_descriptor(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_imp_do_loops(), create_io_call_descriptor(), create_loop_stmts(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_tmp_asg(), data_imp_do_semantics(), data_stmt_semantics(), deallocate_local_allocatables(), deallocate_stmt_semantics(), decl_semantics(), determine_num_elements(), dim_intrinsic(), directive_stmt_semantics(), discombobulate_structure_ref(), do_single_asg(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dshiftl_intrinsic(), else_stmt_semantics(), encode_decode_stmt_semantics(), end_select_blk(), equivalence_semantics(), final_arg_work(), find_attrs_used_in_bound(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), fold_clen_opr(), forall_semantics(), gen_arg_type_descriptor(), gen_bias_ref(), gen_call_type_descriptor(), gen_dbg_write_stmt(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_il(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_lb_array_ref(), gen_loop_end_ir(), gen_section_ref(), gen_sf_dv_whole_def(), gen_split_alloc(), gen_stmt_expansion_opr(), gen_tmp_equal_max_zero(), gen_whole_subscript(), gen_whole_substring(), generate_bounds_list(), get_ieee_status_intrinsic(), get_stmt_tmp(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), if_stmt_semantics(), imp_do_metamorphed(), init_whole_array(), insert_argchck_calls(), insert_init_stmt_for_tmp(), interpret_array_construct_opr(), interpret_implied_do(), interpret_ref(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), io_ctl_list_semantics(), io_list_semantics(), ishft_intrinsic(), ishftc_intrinsic(), lbound_intrinsic(), make_base_assumed_size(), make_base_subtree(), make_triplet_extent_tree(), minval_intrinsic(), mp_directive_semantics(), mvbits_intrinsic(), nearest_intrinsic(), not_intrinsic(), num_images_intrinsic(), open_mp_directive_semantics(), outmoded_if_stmt_semantics(), parallel_cmic_semantics(), parse_actual_arg_spec(), parse_allocate_stmt(), parse_backspace_stmt(), parse_buffer_stmt(), parse_cache_align_name_list(), parse_cache_bypass_dir(), parse_copy_assumed_shape_dir(), parse_data_imp_do(), parse_data_stmt(), parse_deallocate_stmt(), parse_decode_stmt(), parse_deref(), parse_dir_directives(), parse_dir_var_list(), parse_do_stmt(), parse_doall_cmic(), parse_dollar_directives(), parse_doparallel_cmic(), parse_else_stmt(), parse_encode_stmt(), parse_endfile_stmt(), parse_equivalence_stmt(), parse_expr(), parse_forall(), parse_id_directive(), parse_if_stmt(), parse_imp_do(), parse_initializer(), parse_inquire_stmt(), parse_int_or_star_list(), parse_io_control_list(), parse_io_list(), parse_label_list(), parse_lhs(), parse_mic_directives(), parse_mp_directive(), parse_nullify_stmt(), parse_open_mp_clauses(), parse_open_mp_directives(), parse_operand(), parse_parallel_cmic(), parse_permutation_mic(), parse_prefetch_ref(), parse_print_stmt(), parse_read_stmt(), parse_redistribute_dir(), parse_reference_list(), parse_rewind_stmt(), parse_sgi_dir_inline(), parse_type_dcl_stmt(), parse_var_common_list(), parse_var_name_list(), parse_write_stmt(), prefetch_ref_semantics(), print_stmt_semantics(), process_all_initialized_cpnts(), process_blockable_dir(), process_cpnt_inits(), process_interchange_dir(), push_task_blk(), put_string_in_tmp(), read_stmt_semantics(), reshape_intrinsic(), resolve_ext_opr(), rrspacing_intrinsic(), search_expr_for_dargs(), selected_int_kind_intrinsic(), set_directives_on_label(), set_ieee_exception_intrinsic(), shape_intrinsic(), size_intrinsic(), size_offset_min_max_calc(), spacing_intrinsic(), spread_intrinsic(), stop_pause_stmt_semantics(), subscript_opr_handler(), test_size_stmts(), transfer_intrinsic(), transform_char_sequence_ref(), translate_distant_ref1(), type_init_semantics(), ubound_intrinsic(), vv_subscript_semantics(), where_stmt_semantics(), and write_stmt_semantics().

#define NTR_IR_TBL ( IR_IDX )

Value:

{int    _idx;                                                  \
            _idx = ntr_ir_tbl();                                               \
            IR_IDX = _idx;}

Definition at line 4493 of file sytb.m.

#define NTR_NAME_IN_LN_TBL	(	ENTER_NAME_IDX,
		NEW_NAME_IDX
	)

Value:

{int     _idx;                                                         \
         Pragma("_CRI ivdep")                                                  \
         for (_idx = SCP_LN_LW_IDX(curr_scp_idx);                              \
              _idx>= ENTER_NAME_IDX; _idx--) {                                 \
            loc_name_tbl[_idx]  = loc_name_tbl[_idx-1];                        \
         }                                                                     \
         loc_name_tbl[ENTER_NAME_IDX]  = loc_name_tbl[NEW_NAME_IDX];           \
        }

Definition at line 4549 of file sytb.m.

Referenced by use_stmt_semantics().

#define NTR_NAME_POOL	(	NAME,
		LEN,
		NP_IDX
	)

Value:

{register long  *_name_id;                                             \
         register int    _np_idx;                                              \
         register int    _start_idx;                                           \
         register int    _wd_len;                                              \
         _name_id       = NAME;                                                \
         _wd_len        = WORD_LEN(LEN) + EXTRA_WORD;                          \
         _start_idx     = name_pool_idx + 1;                                   \
         NP_IDX         = _start_idx;                                          \
         TBL_REALLOC_CK(name_pool,_wd_len);                                    \
         for (_np_idx = 0; _np_idx < _wd_len; _np_idx++) {                     \
             name_pool[_start_idx+_np_idx].name_long = _name_id[_np_idx];      \
         }                                                                     \
        }

Definition at line 4470 of file sytb.m.

Referenced by check_for_dup_derived_type_lbl(), complete_intrinsic_definition(), create_lib_entry_attr(), gen_compiler_star(), gen_compiler_tmp(), gen_compiler_upbd(), gen_forall_derived_type(), init_parse_prog_unit(), make_external_name(), make_ro_entry(), minval_intrinsic(), ntr_local_attr_list(), ntr_stor_blk_tbl(), ntr_sym_tbl(), parse_cpnt_dcl_stmt(), parse_name_dir(), rename_only_semantics(), set_up_pe_offset_attr(), and storage_blk_resolution().

#define NTR_SCP_TBL ( SCP_IDX )

Value:

TBL_REALLOC_CK(scp_tbl,1);                                             \
        CLEAR_TBL_NTRY(scp_tbl, scp_tbl_idx);                                  \
        SCP_IDX = scp_tbl_idx;

Definition at line 4512 of file sytb.m.

Referenced by init_parse_prog_unit(), and start_new_scp().

#define NTR_SN_TBL ( SN_IDX )

Value:

TBL_REALLOC_CK(sec_name_tbl,1);                                       \
         CLEAR_TBL_NTRY(sec_name_tbl, sec_name_tbl_idx);                       \
         SN_IDX = sec_name_tbl_idx;

Definition at line 4518 of file sytb.m.

Referenced by attr_link_resolution(), attr_semantics(), call_list_semantics(), complete_intrinsic_definition(), gen_forall_derived_type(), host_associated_attr_semantics(), parse_cpnt_dcl_stmt(), parse_dummy_args(), parse_namelist_stmt(), parse_stmt_func_stmt(), and set_up_pe_offset_attr().

#define NUM_AA_WDS 6

Definition at line 123 of file sytb.m.

#define NUM_AL_WDS 2

Definition at line 124 of file sytb.m.

Referenced by init_sytb().

#define NUM_AT_WDS 16

Definition at line 126 of file sytb.m.

Referenced by compress_tbls(), init_sytb(), and output_mod_info_file().

#define NUM_BD_WDS 4

Definition at line 127 of file sytb.m.

Referenced by init_sytb(), output_mod_info_file(), and reserve_array_ntry().

#define NUM_BLK_STK_WDS 16

Definition at line 128 of file sytb.m.

#define NUM_CN_WDS 4

Definition at line 129 of file sytb.m.

Referenced by output_mod_info_file().

#define NUM_CP_WDS 1

Definition at line 131 of file sytb.m.

Referenced by output_mod_info_file().

#define NUM_CS_WDS 2

Definition at line 132 of file sytb.m.

#define NUM_EQ_WDS 8

Definition at line 133 of file sytb.m.

#define NUM_FP_WDS 6

Definition at line 134 of file sytb.m.

Referenced by init_sytb().

#define NUM_GA_WDS 8

Definition at line 135 of file sytb.m.

#define NUM_GB_WDS 2

Definition at line 136 of file sytb.m.

Referenced by ntr_global_bounds_tbl().

#define NUM_GL_WDS 10

Definition at line 137 of file sytb.m.

Referenced by init_sytb().

#define NUM_GN_WDS 2

Definition at line 138 of file sytb.m.

Referenced by init_sytb().

#define NUM_HN_WDS 2

Definition at line 139 of file sytb.m.

#define NUM_IL_WDS 4

Definition at line 140 of file sytb.m.

Referenced by init_sytb(), and output_mod_info_file().

#define NUM_IR_WDS 8

Definition at line 141 of file sytb.m.

Referenced by init_sytb(), and output_mod_info_file().

#define NUM_LN_WDS 2

Definition at line 142 of file sytb.m.

Referenced by init_sytb(), and output_mod_info_file().

#define NUM_ML_WDS 12

Definition at line 143 of file sytb.m.

Referenced by allocate_mod_link_tbl(), and init_sytb().

#define NUM_NP_WDS 1

Definition at line 144 of file sytb.m.

Referenced by output_mod_info_file().

#define NUM_PDG_WDS 4

Definition at line 145 of file sytb.m.

Referenced by allocate_pdg_link_tbls(), and init_sytb().

#define NUM_RO_WDS 6

Definition at line 147 of file sytb.m.

Referenced by init_sytb().

#define NUM_SB_WDS 10

Definition at line 148 of file sytb.m.

Referenced by init_sytb(), and output_mod_info_file().

#define NUM_SCP_WDS 52

Definition at line 149 of file sytb.m.

Referenced by init_sytb().

#define NUM_SH_WDS 6

Definition at line 150 of file sytb.m.

Referenced by init_sytb(), and output_mod_info_file().

#define NUM_SN_WDS 4

Definition at line 151 of file sytb.m.

Referenced by darg_in_entry_list(), init_sytb(), and output_mod_info_file().

#define NUM_TYP_WDS 4

Definition at line 152 of file sytb.m.

Referenced by compress_type_tbl(), init_parse_prog_unit(), init_sytb(), ntr_derived_type_tbl(), ntr_global_type_tbl(), ntr_type_tbl(), and output_mod_info_file().

#define OLD_AT_HOST_ASSOCIATED ( IDX ) attr_tbl[IDX].old.host_associated

Definition at line 385 of file sytb.m.

#define OLD_AT_MODULE_IDX ( IDX ) attr_tbl[IDX].old.module_idx

Definition at line 386 of file sytb.m.

#define OLD_AT_MODULE_OBJECT ( IDX ) attr_tbl[IDX].old.module_object

Definition at line 387 of file sytb.m.

#define OLD_AT_NOT_VISIBLE ( IDX ) attr_tbl[IDX].old.not_visible

Definition at line 388 of file sytb.m.

#define OLD_AT_OBJ_CLASS ( IDX ) attr_tbl[IDX].old.object_class

Definition at line 389 of file sytb.m.

#define OLD_AT_USE_ASSOCIATED ( IDX ) attr_tbl[IDX].old.use_associated

Definition at line 390 of file sytb.m.

#define OLD_ATD_ALIGN_SYMBOL ( IDX ) attr_tbl[IDX].old.flag13

Definition at line 397 of file sytb.m.

#define OLD_ATD_ARRAY_IDX ( IDX ) attr_tbl[IDX].old.field5

Definition at line 398 of file sytb.m.

#define OLD_ATD_DISTRIBUTION_IDX ( IDX ) attr_tbl[IDX].old.field14

Definition at line 399 of file sytb.m.

#define OLD_ATD_FILL_SYMBOL ( IDX ) attr_tbl[IDX].old.flag14

Definition at line 400 of file sytb.m.

#define OLD_ATD_OFFSET_ASSIGNED ( IDX ) attr_tbl[IDX].old.flag16

Definition at line 401 of file sytb.m.

#define OLD_ATD_PE_ARRAY_IDX ( IDX ) attr_tbl[IDX].old.field15

Definition at line 402 of file sytb.m.

#define OLD_ATD_TYPE_IDX ( IDX ) attr_tbl[IDX].old.field1

Definition at line 403 of file sytb.m.

#define OLD_ATI_NUM_SPECIFICS ( IDX ) attr_tbl[IDX].old.field5

Definition at line 404 of file sytb.m.

#define OLD_ATL_CYCLE_LBL ( IDX ) attr_tbl[IDX].old.flag15

Definition at line 405 of file sytb.m.

#define OLD_ATL_DIRECTIVE_LIST ( IDX ) attr_tbl[IDX].fld2.field23

Definition at line 406 of file sytb.m.

#define OLD_ATL_NOTASK ( IDX ) attr_tbl[IDX].old.flag14

Definition at line 407 of file sytb.m.

#define OLD_ATL_PREFERVECTOR ( IDX ) attr_tbl[IDX].old.flag16

Definition at line 408 of file sytb.m.

#define OLD_ATL_TOP_OF_LOOP ( IDX ) attr_tbl[IDX].old.flag13

Definition at line 409 of file sytb.m.

#define OLD_ATP_EXPL_ITRFC ( IDX ) attr_tbl[IDX].old.flag14

Definition at line 410 of file sytb.m.

#define OLD_ATP_EXTERNAL_INTRIN ( IDX ) attr_tbl[IDX].old.flag16

Definition at line 411 of file sytb.m.

#define OLD_ATP_EXTRA_DARG ( IDX ) attr_tbl[IDX].old.flag15

Definition at line 412 of file sytb.m.

#define OLD_ATP_MOD_PATH_LEN ( IDX ) attr_tbl[IDX].old.field6

Definition at line 414 of file sytb.m.

#define OLD_ATP_NUM_DARGS ( IDX ) attr_tbl[IDX].old.field5

Definition at line 413 of file sytb.m.

#define OLD_ATP_SAVE_ALL ( IDX ) attr_tbl[IDX].old.flag13

Definition at line 415 of file sytb.m.

#define OLD_ATT_16_BIT_ALIGN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("OLD_ATT_16_BIT_ALIGN", IDX))        \
                [IDX].fld.flag27

Definition at line 2754 of file sytb.m.

#define OLD_ATT_8_BIT_ALIGN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("OLD_ATT_8_BIT_ALIGN", IDX))         \
                [IDX].fld.flag28

Definition at line 2763 of file sytb.m.

#define OLD_ATT_HALF_WORD_ALIGN ( IDX )

Value:

((AT_OBJ_CLASS(IDX) == Derived_Type) ?                                 \
                attr_tbl : sytb_var_error("OLD_ATT_HALF_WORD_ALIGN", IDX))     \
                [IDX].fld.flag26

Definition at line 2772 of file sytb.m.

#define OLD_IR_DV_DIM ( IDX ) old_ir_tbl[IDX].opr.dim

Definition at line 3775 of file sytb.m.

Referenced by read_sytb_from_module_file().

#define OLD_IR_OPR ( IDX ) old_ir_tbl[IDX].opr.the_operator

Definition at line 3773 of file sytb.m.

Referenced by read_sytb_from_module_file().

#define OLD_IR_RANK ( IDX ) old_ir_tbl[IDX].opr.rank

Definition at line 3774 of file sytb.m.

Referenced by read_sytb_from_module_file().

#define OLD_NUM_CN_WDS 2

Definition at line 130 of file sytb.m.

Referenced by read_sytb_from_module_file().

#define OLD_SB_BLK_TYPE ( IDX ) stor_blk_tbl[IDX].fld.old_sb_type

Definition at line 4070 of file sytb.m.

#define OLD_SH_STMT_TYPE ( IDX ) sh_tbl[IDX].old_stmt_type

Definition at line 3884 of file sytb.m.

#define OLD_TYP_DP_HIT_ME ( IDX ) type_tbl[IDX].wd.old_dp_hit_me

Definition at line 4135 of file sytb.m.

#define OLD_TYP_FLD ( IDX ) type_tbl[IDX].fld.old_type_fld

Definition at line 4136 of file sytb.m.

#define OLD_TYP_RESOLVED ( IDX ) type_tbl[IDX].wd.old_resolved

Definition at line 4137 of file sytb.m.

#define OLD_TYP_TYPE ( IDX ) type_tbl[IDX].wd.old_type

Definition at line 4138 of file sytb.m.

#define PDG_AT_IDX ( IDX ) pdg_link_tbl[IDX].at_idx

Definition at line 4031 of file sytb.m.

Referenced by clean_pdg_link_tbls_for_nested_pu(), cvrt_exp_to_pdg(), cvrt_proc_to_pdg(), cvrt_sytb_to_pdg(), get_basic_type(), get_type_desc(), send_attr_ntry(), send_darg_list(), send_derived_type(), send_dummy_procedure(), send_interface_list(), send_label(), send_label_def(), send_mod_file_name(), send_namelist_group(), send_procedure(), and send_stor_blk().

#define PDG_AT_TYP_IDX ( IDX ) pdg_link_tbl[IDX].at_typ_idx

Definition at line 4032 of file sytb.m.

Referenced by clean_pdg_link_tbls_for_nested_pu(), send_attr_ntry(), and send_derived_type().

#define PDG_CN_IDX ( IDX ) pdg_link_tbl[IDX].cn_idx

Definition at line 4033 of file sytb.m.

Referenced by clean_pdg_link_tbls_for_nested_pu(), cvrt_exp_to_pdg(), and send_attr_ntry().

#define PDG_SB_IDX ( IDX ) pdg_link_tbl[IDX].sb_idx

Definition at line 4034 of file sytb.m.

Referenced by clean_pdg_link_tbls_for_nested_pu(), cvrt_exp_to_pdg(), send_attr_ntry(), send_dummy_procedure(), and send_stor_blk().

#define RIGHT_JUSTIFY_SIGN_BIT ( I ) ((unsigned long) (I) >> (8 * sizeof(long)-1))

Definition at line 4167 of file sytb.m.

Referenced by srch_name_tbl().

#define RO_COLUMN_NUM ( IDX ) rename_only_tbl[IDX].column_num

Definition at line 4039 of file sytb.m.

Referenced by dump_ro_ntry(), make_ro_entry(), and rename_only_semantics().

#define RO_DUPLICATE_RENAME ( IDX ) rename_only_tbl[IDX].duplicate_rename

Definition at line 4040 of file sytb.m.

Referenced by dump_ro_ntry(), and rename_only_semantics().

#define RO_LINE_NUM ( IDX ) rename_only_tbl[IDX].line_num

Definition at line 4041 of file sytb.m.

Referenced by dump_ro_ntry(), make_ro_entry(), and rename_only_semantics().

#define RO_NAME_ATTR ( IDX ) rename_only_tbl[IDX].attr_idx

Definition at line 4049 of file sytb.m.

Referenced by cvrt_exp_to_pdg(), dump_ro_ntry(), rename_only_semantics(), and use_stmt_semantics().

#define RO_NAME_IDX ( IDX ) rename_only_tbl[IDX].name_idx

Definition at line 4042 of file sytb.m.

Referenced by make_ro_entry(), and rename_only_semantics().

#define RO_NAME_LEN ( IDX ) rename_only_tbl[IDX].name_len

Definition at line 4043 of file sytb.m.

Referenced by check_for_duplicate_renames(), dump_ro_ntry(), make_ro_entry(), and rename_only_semantics().

#define RO_NAME_LONG ( IDX ) &(name_pool[RO_NAME_IDX(IDX)].name_long)

Definition at line 4044 of file sytb.m.

Referenced by check_for_duplicate_renames(), make_ro_entry(), and rename_only_semantics().

#define RO_NAME_PTR ( IDX ) &name_pool[RO_NAME_IDX(IDX)].name_char

Definition at line 4045 of file sytb.m.

Referenced by cif_rename_rec(), dump_ro_ntry(), and rename_only_semantics().

#define RO_NEXT_IDX ( IDX ) rename_only_tbl[IDX].next_idx

Definition at line 4046 of file sytb.m.

Referenced by cvrt_exp_to_pdg(), dump_at_ntry(), dump_ro_ntry(), make_ro_entry(), print_ro_tbl(), rename_only_semantics(), and use_stmt_semantics().

#define RO_RENAME_IDX ( IDX ) rename_only_tbl[IDX].rename_idx

Definition at line 4047 of file sytb.m.

Referenced by dump_ro_ntry(), parse_only_spec(), parse_use_stmt(), and rename_only_semantics().

#define RO_RENAME_NAME ( IDX ) rename_only_tbl[IDX].rename_name

Definition at line 4048 of file sytb.m.

Referenced by check_for_duplicate_renames(), dump_ro_ntry(), and make_ro_entry().

#define SB_ALIGN_SYMBOL ( IDX ) stor_blk_tbl[IDX].fld.align_symbol

Definition at line 4065 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_sb_ntry(), equivalence_semantics(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define SB_AUXILIARY ( IDX ) stor_blk_tbl[IDX].fld.auxiliary

Definition at line 4066 of file sytb.m.

Referenced by attr_semantics(), dump_sb_ntry(), final_attr_semantics(), namelist_resolution(), ntr_common_in_global_attr_tbl(), parse_auxiliary_dir(), parse_common_stmt(), and storage_blk_resolution().

#define SB_BLANK_COMMON ( IDX ) stor_blk_tbl[IDX].fld.blank_common

Definition at line 4067 of file sytb.m.

Referenced by assign_offset(), attr_semantics(), check_and_allocate_common_storage(), copy_sbtree(), directive_stmt_semantics(), dump_sb_ntry(), equivalence_semantics(), object_semantics(), parse_auxiliary_dir(), parse_cache_align_name_list(), parse_common_stmt(), print_attr_f(), send_stor_blk(), set_up_pe_offset_attr(), and type_init_semantics().

#define SB_BLK_HAS_NPES ( IDX ) stor_blk_tbl[IDX].fld.blk_has_npes

Definition at line 4068 of file sytb.m.

Referenced by array_dim_resolution(), attr_semantics(), and equivalence_semantics().

#define SB_CACHE_ALIGN ( IDX ) stor_blk_tbl[IDX].fld.cache_align

Definition at line 4071 of file sytb.m.

Referenced by check_and_allocate_common_storage(), ntr_common_in_global_attr_tbl(), parse_cache_align_name_list(), send_attr_ntry(), and storage_blk_resolution().

#define SB_CIF_SYMBOL_ID ( IDX ) stor_blk_tbl[IDX].fld.cif_idx

Definition at line 4072 of file sytb.m.

Referenced by cif_sb_usage_rec(), cif_send_attr(), cif_send_sytb(), dump_sb_ntry(), and output_mod_info_file().

#define SB_COMMON_NEEDS_OFFSET ( IDX ) stor_blk_tbl[IDX].fld.needs_offset

Definition at line 4073 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_sb_ntry(), host_associated_attr_semantics(), parse_attrs(), parse_cache_align_name_list(), parse_common_dirs(), parse_common_stmt(), parse_slash_common_dirs(), parse_var_common_list(), set_up_pe_offset_attr(), and storage_blk_resolution().

#define SB_DCL_COMMON_DIR ( IDX ) stor_blk_tbl[IDX].fld.dcl_common_dir

Definition at line 4075 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_sb_ntry(), and parse_common_dirs().

#define SB_DCL_ERR ( IDX ) stor_blk_tbl[IDX].fld.dcl_err

Definition at line 4074 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_sb_ntry(), parse_attrs(), parse_common_stmt(), parse_slash_common_dirs(), and storage_blk_resolution().

#define SB_DEF_COLUMN ( IDX ) stor_blk_tbl[IDX].fld.def_column

Definition at line 4076 of file sytb.m.

Referenced by attr_semantics(), check_and_allocate_common_storage(), cif_send_sytb(), dump_sb_ntry(), final_decl_semantics(), ntr_common_in_global_attr_tbl(), ntr_stor_blk_tbl(), read_in_module_tbl(), and storage_blk_resolution().

#define SB_DEF_LINE ( IDX ) stor_blk_tbl[IDX].fld.def_line

Definition at line 4078 of file sytb.m.

Referenced by attr_semantics(), check_and_allocate_common_storage(), cif_send_sytb(), dump_sb_ntry(), final_decl_semantics(), ntr_common_in_global_attr_tbl(), ntr_stor_blk_tbl(), read_in_module_tbl(), and storage_blk_resolution().

#define SB_DEF_MULT_SCPS ( IDX ) stor_blk_tbl[IDX].fld.def_mult_scps

Definition at line 4077 of file sytb.m.

Referenced by copy_sbtree(), dump_sb_ntry(), final_attr_semantics(), host_associated_attr_semantics(), parse_attrs(), parse_common_dirs(), parse_common_stmt(), read_in_module_tbl(), send_attr_ntry(), and storage_blk_resolution().

#define SB_DUPLICATE_COMMON ( IDX ) stor_blk_tbl[IDX].fld.duplicate_common

Definition at line 4079 of file sytb.m.

Referenced by dump_sb_ntry(), send_stor_blk(), and storage_blk_resolution().

#define SB_EQUIVALENCED ( IDX ) stor_blk_tbl[IDX].fld.equivalenced

Definition at line 4080 of file sytb.m.

Referenced by create_equiv_stor_blk(), dump_sb_ntry(), equivalence_semantics(), ntr_common_in_global_attr_tbl(), send_stor_blk(), storage_blk_resolution(), and transform_cri_ch_ptr().

#define SB_FILL_SYMBOL ( IDX ) stor_blk_tbl[IDX].fld.fill_symbol

Definition at line 4081 of file sytb.m.

Referenced by check_and_allocate_common_storage(), equivalence_semantics(), ntr_common_in_global_attr_tbl(), and storage_blk_resolution().

#define SB_FIRST_ATTR_IDX ( IDX ) stor_blk_tbl[IDX].fld.first_attr_idx

#define SB_HAS_RENAMES ( IDX ) stor_blk_tbl[IDX].fld.has_renames

Definition at line 4083 of file sytb.m.

Referenced by dump_sb_ntry(), final_attr_semantics(), host_associated_attr_semantics(), read_in_module_tbl(), storage_blk_resolution(), and use_stmt_semantics().

#define SB_HIDDEN ( IDX ) stor_blk_tbl[IDX].fld.hidden

Definition at line 4084 of file sytb.m.

Referenced by dump_sb_ntry(), host_associated_attr_semantics(), parse_attrs(), parse_common_dirs(), parse_common_stmt(), read_in_module_tbl(), srch_stor_blk_tbl(), and storage_blk_resolution().

#define SB_HOST_ASSOCIATED ( IDX ) stor_blk_tbl[IDX].fld.host_associated

Definition at line 4085 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_sb_ntry(), final_attr_semantics(), host_associated_attr_semantics(), parse_attrs(), parse_common_dirs(), parse_common_stmt(), parse_slash_common_dirs(), and storage_blk_resolution().

#define SB_HOSTED_STACK ( IDX ) stor_blk_tbl[IDX].fld.hosted_stack

Definition at line 4086 of file sytb.m.

Referenced by dump_sb_ntry(), equivalence_semantics(), final_attr_semantics(), final_equivalence_semantics(), host_associated_attr_semantics(), send_procedure(), send_stor_blk(), and storage_blk_resolution().

#define SB_HOSTED_STATIC ( IDX ) stor_blk_tbl[IDX].fld.hosted_static

Definition at line 4087 of file sytb.m.

Referenced by dump_sb_ntry(), equivalence_semantics(), host_associated_attr_semantics(), init_whole_array(), send_attr_ntry(), send_stor_blk(), start_new_subpgm(), and transform_cri_ch_ptr().

#define SB_IS_COMMON ( IDX ) stor_blk_tbl[IDX].fld.is_common

#define SB_LAST_ATTR_LIST ( IDX ) stor_blk_tbl[IDX].fld.last_attr_list

Definition at line 4089 of file sytb.m.

Referenced by dump_sb_ntry(), final_attr_semantics(), final_decl_semantics(), and read_in_module_tbl().

#define SB_LEN_FLD ( IDX ) stor_blk_tbl[IDX].fld.len_fld

#define SB_LEN_IDX ( IDX ) stor_blk_tbl[IDX].fld.len_idx

#define SB_MERGED_BLK_IDX ( IDX ) stor_blk_tbl[IDX].fld.merged_blk_idx

Definition at line 4092 of file sytb.m.

Referenced by dump_sb_ntry(), final_attr_semantics(), host_associated_attr_semantics(), parse_attrs(), parse_common_dirs(), parse_common_stmt(), read_in_module_tbl(), and storage_blk_resolution().

#define SB_MODULE ( IDX ) stor_blk_tbl[IDX].fld.module

Definition at line 4094 of file sytb.m.

Referenced by cif_send_attr(), create_equiv_stor_blk(), dump_sb_ntry(), equivalence_semantics(), host_associated_attr_semantics(), init_whole_array(), parse_module_stmt(), send_stor_blk(), storage_blk_resolution(), and transform_cri_ch_ptr().

#define SB_MODULE_IDX ( IDX ) stor_blk_tbl[IDX].fld.module_idx

Definition at line 4093 of file sytb.m.

Referenced by cif_send_sytb(), compress_tbls(), dump_sb_ntry(), host_associated_attr_semantics(), ntr_common_in_global_attr_tbl(), read_in_module_tbl(), send_stor_blk(), and set_mod_link_tbl_for_attr().

#define SB_NAME ( IDX ) name_pool[SB_NAME_IDX(IDX)].name_char

Definition at line 4098 of file sytb.m.

#define SB_NAME_IDX ( IDX ) stor_blk_tbl[IDX].fld.name_idx

Definition at line 4095 of file sytb.m.

Referenced by compress_tbls(), dump_sb_ntry(), ntr_stor_blk_tbl(), read_in_module_tbl(), set_mod_link_tbl_for_attr(), srch_stor_blk_tbl(), start_new_prog_unit(), start_new_subpgm(), and storage_blk_resolution().

#define SB_NAME_IN_STONE ( IDX ) stor_blk_tbl[IDX].fld.name_in_stone

Definition at line 4099 of file sytb.m.

Referenced by send_stor_blk(), and set_up_pe_offset_attr().

#define SB_NAME_LEN ( IDX ) stor_blk_tbl[IDX].fld.name_len

Definition at line 4100 of file sytb.m.

Referenced by check_and_allocate_common_storage(), copy_sbtree(), dump_sb_ntry(), host_associated_attr_semantics(), ntr_global_name_tbl(), ntr_stor_blk_tbl(), read_in_module_tbl(), send_stor_blk(), set_mod_link_tbl_for_attr(), srch_stor_blk_tbl(), start_new_prog_unit(), start_new_subpgm(), and storage_blk_resolution().

#define SB_NAME_LONG ( IDX ) &(name_pool[SB_NAME_IDX(IDX)].name_long)

Definition at line 4097 of file sytb.m.

Referenced by ntr_global_name_tbl().

#define SB_ORIG_SCP_IDX ( IDX ) stor_blk_tbl[IDX].fld.orig_scp_idx

Definition at line 4101 of file sytb.m.

Referenced by cif_send_sytb(), dump_sb_ntry(), find_attrs_used_in_bound(), host_associated_attr_semantics(), interface_semantics_pass_driver(), ntr_stor_blk_tbl(), read_in_module_tbl(), and storage_blk_resolution().

#define SB_PAD_AMOUNT ( IDX ) stor_blk_tbl[IDX].fld.pad_amount

Definition at line 4102 of file sytb.m.

Referenced by calculate_pad(), dump_sb_ntry(), init_name_and_stor_tbls(), parse_module_stmt(), and storage_blk_resolution().

#define SB_PAD_AMOUNT_SET ( IDX ) stor_blk_tbl[IDX].fld.pad_amount_set

Definition at line 4103 of file sytb.m.

Referenced by calculate_pad(), dump_sb_ntry(), init_name_and_stor_tbls(), parse_module_stmt(), and storage_blk_resolution().

#define SB_PAD_BLK ( IDX ) stor_blk_tbl[IDX].fld.pad_blk

Definition at line 4104 of file sytb.m.

Referenced by assign_offset(), check_and_allocate_common_storage(), dump_sb_ntry(), equivalence_semantics(), init_name_and_stor_tbls(), parse_module_stmt(), and storage_blk_resolution().

#define SB_RUNTIME_INIT ( IDX ) stor_blk_tbl[IDX].fld.runtime_init

Definition at line 4105 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_sb_ntry(), gen_default_init_code(), gen_temp_init(), ntr_stor_blk_tbl(), parse_common_dirs(), parse_common_stmt(), parse_module_stmt(), parse_slash_common_dirs(), start_new_subpgm(), and storage_blk_resolution().

#define SB_SAVED ( IDX ) stor_blk_tbl[IDX].fld.saved

Definition at line 4106 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_sb_ntry(), parse_attrs(), parse_id_directive(), and send_stor_blk().

#define SB_SCP_IDX ( IDX ) stor_blk_tbl[IDX].fld.scp_idx

Definition at line 4107 of file sytb.m.

Referenced by cif_send_sytb(), copy_sbtree(), dump_sb_ntry(), final_attr_semantics(), get_basic_type(), get_type_desc(), host_associated_attr_semantics(), interface_semantics_pass_driver(), ntr_stor_blk_tbl(), read_in_module_tbl(), send_attr_ntry(), send_stor_blk(), srch_stor_blk_tbl(), start_new_scp(), and storage_blk_resolution().

#define SB_SECTION_GP ( IDX ) stor_blk_tbl[IDX].fld.section_gp

Definition at line 4108 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_sb_ntry(), ntr_common_in_global_attr_tbl(), parse_var_common_list(), and storage_blk_resolution().

#define SB_SECTION_NON_GP ( IDX ) stor_blk_tbl[IDX].fld.section_non_gp

Definition at line 4109 of file sytb.m.

Referenced by check_and_allocate_common_storage(), dump_sb_ntry(), ntr_common_in_global_attr_tbl(), parse_var_common_list(), and storage_blk_resolution().

#define SB_SYMMETRIC ( IDX ) stor_blk_tbl[IDX].fld.symmetric

Definition at line 4110 of file sytb.m.

Referenced by assign_storage_blk(), dump_sb_ntry(), and send_stor_blk().

#define SB_USE_ASSOCIATED ( IDX ) stor_blk_tbl[IDX].fld.use_associated

Definition at line 4111 of file sytb.m.

Referenced by check_and_allocate_common_storage(), cif_send_sytb(), dump_sb_ntry(), final_attr_semantics(), host_associated_attr_semantics(), ntr_common_in_global_attr_tbl(), parse_attrs(), parse_common_dirs(), parse_common_stmt(), parse_slash_common_dirs(), read_in_module_tbl(), and storage_blk_resolution().

#define SB_VOLATILE ( IDX ) stor_blk_tbl[IDX].fld.x_volatile

Definition at line 4112 of file sytb.m.

Referenced by dump_sb_ntry(), final_attr_semantics(), parse_attrs(), and send_stor_blk().

#define SCP_ALT_ENTRY_CNT ( IDX ) scp_tbl[IDX].wd[22].fld1.field3

Definition at line 3760 of file sytb.m.

Referenced by array_dim_resolution(), attr_semantics(), char_len_resolution(), check_multiple_entry_func(), cif_scope_info_rec(), cvrt_proc_to_pdg(), decl_semantics(), decl_semantics_driver(), dump_scp_ntry(), end_function_semantics(), gen_darg_branch_test(), parse_entry_stmt(), pe_array_dim_resolution(), return_stmt_semantics(), send_procedure(), and set_up_which_entry_tmp().

#define SCP_ASSIGN_LBL_CHAIN ( IDX ) scp_tbl[IDX].wd[6].fld1.field2

Definition at line 3710 of file sytb.m.

Referenced by assign_stmt_semantics(), cvrt_exp_to_pdg(), dump_scp_ntry(), and final_decl_semantics().

#define SCP_ATTR_IDX ( IDX ) scp_tbl[IDX].wd[0].fld1.field2

Definition at line 3704 of file sytb.m.

Referenced by allocate_stmt_semantics(), array_dim_resolution(), assign_storage_blk(), assignment_stmt_semantics(), attr_link_resolution(), attr_semantics(), call_list_semantics(), char_len_resolution(), check_for_legal_define(), check_global_pgm_unit(), check_multiple_entry_func(), cif_begin_scope_rec(), cif_send_attr(), cif_send_sytb(), cif_unit_rec(), collapse_interface_blk(), compress_tbls(), create_mod_info_file(), create_mod_info_tbl(), create_namelist_descriptor(), cvrt_exp_to_pdg(), cvrt_proc_to_pdg(), cvrt_sytb_to_pdg(), cvrt_to_pdg(), deallocate_stmt_semantics(), decl_semantics(), decl_semantics_driver(), directive_stmt_semantics(), dump_scp_ntry(), dump_trace_info(), end_blockdata(), end_function(), end_function_semantics(), end_internal_proc(), end_module(), end_module_proc(), end_program_unit(), end_subroutine(), equivalence_semantics(), fill_in_global_attr_ntry(), final_attr_semantics(), find_prog_unit_tbl(), flatten_function_call(), flush_msg_file(), fnd_semantic_err(), free_tables(), gen_assumed_shape_copy(), gen_call_type_descriptor(), gen_darg_branch_test(), gen_entry_dope_code(), gen_tmp_eq_zero_ir(), goto_stmt_semantics(), init_parse_prog_unit(), insert_sh_after_entries(), interface_semantics_pass_driver(), io_ctl_list_semantics(), iss_blk_stk_err(), main(), make_in_parent_string(), merge_external(), merge_type(), namelist_resolution(), not_visible_semantics(), nullify_stmt_semantics(), object_semantics(), output_mod_info_file(), output_msg(), parse_access_stmt(), parse_attr_spec(), parse_backspace_stmt(), parse_close_stmt(), parse_derived_type_stmt(), parse_dir_directives(), parse_dollar_directives(), parse_dummy_args(), parse_endfile_stmt(), parse_entry_stmt(), parse_inquire_stmt(), parse_mic_directives(), parse_open_mp_directives(), parse_open_stmt(), parse_openad_directives(), parse_par_directives(), parse_prefix_spec(), parse_print_stmt(), parse_prog_unit(), parse_return_stmt(), parse_rewind_stmt(), parse_save_stmt(), parse_stop_pause_stmt(), parse_typed_function_stmt(), parse_var_common_list(), pe_array_dim_resolution(), pgm_unit_semantics(), pop_and_err_blk_stk(), print_expanded_stmt_for_scp(), print_sytb(), read_in_module_tbl(), reshape_array_semantics(), resolve_ext_opr(), return_stmt_semantics(), send_attr_ntry(), send_mod_file_name(), send_procedure(), send_stor_blk(), set_up_which_entry_tmp(), srch_for_calls(), start_new_prog_unit(), start_new_subpgm(), stmt_level_semantics(), subscript_opr_handler(), type_init_semantics(), use_stmt_semantics(), and verify_interface().

#define SCP_ATTR_LIST ( IDX ) scp_tbl[IDX].wd[21].fld1.field3

Definition at line 3759 of file sytb.m.

Referenced by add_attr_to_local_list(), assign_new_idxs_after_input(), cif_send_sytb(), cvrt_sytb_to_pdg(), decl_semantics(), dump_scp_ntry(), end_interface_body(), final_decl_semantics(), parse_implicit_stmt(), print_sytb(), and read_in_module_tbl().

#define SCP_ATTR_LIST_END ( IDX ) scp_tbl[IDX].wd[18].fld1.field3

Definition at line 3756 of file sytb.m.

Referenced by add_attr_to_local_list(), dump_scp_ntry(), and read_in_module_tbl().

#define SCP_CIF_ERR_LIST ( IDX ) scp_tbl[IDX].wd[23].fld2.field5

Definition at line 3722 of file sytb.m.

Referenced by cif_send_sytb(), dump_scp_ntry(), and parse_type_spec().

#define SCP_CIF_ID ( IDX ) scp_tbl[IDX].wd[7].fld1.field2

Definition at line 3711 of file sytb.m.

Referenced by cif_begin_scope_rec(), cif_call_site_rec(), cif_end_scope_rec(), cif_label_rec(), cif_loop_def_rec(), cif_named_constant_rec(), cif_prog_unit_init(), cif_rename_rec(), cif_scope_info_rec(), cif_send_attr(), cif_send_sytb(), dump_scp_ntry(), and output_minimal_object_rec().

#define SCP_COPY_ASSUMED_LIST ( IDX ) scp_tbl[IDX].wd[12].fld1.field2

Definition at line 3716 of file sytb.m.

Referenced by decl_semantics(), dump_scp_ntry(), parse_copy_assumed_shape_dir(), and parse_dir_directives().

#define SCP_COPY_ASSUMED_SHAPE ( IDX ) scp_tbl[IDX].wd[1].fld1.flag3

Definition at line 3729 of file sytb.m.

Referenced by decl_semantics(), dump_scp_ntry(), fnd_semantic_err(), and parse_dir_directives().

#define SCP_DARG_LIST ( IDX ) scp_tbl[IDX].wd[6].fld1.field3

Definition at line 3744 of file sytb.m.

Referenced by decl_semantics(), dump_scp_ntry(), and parse_dummy_args().

#define SCP_DBG_PRINT_STMT ( IDX ) scp_tbl[IDX].wd[25].fld1.flag2

Definition at line 3736 of file sytb.m.

Referenced by dump_scp_ntry(), and parse_dir_directives().

#define SCP_DBG_PRINT_SYTB ( IDX ) scp_tbl[IDX].wd[25].fld1.flag1

Definition at line 3735 of file sytb.m.

Referenced by dump_scp_ntry(), and parse_dir_directives().

#define SCP_DEFAULT_STORAGE ( IDX ) scp_tbl[IDX].wd[24].fld2.field4

Definition at line 3720 of file sytb.m.

Referenced by assign_storage_blk(), and decl_semantics().

#define SCP_DOES_IO ( IDX ) scp_tbl[IDX].wd[2].fld1.flag3

Definition at line 3732 of file sytb.m.

Referenced by backspace_stmt_semantics(), buffer_stmt_semantics(), cif_scope_info_rec(), close_stmt_semantics(), dump_scp_ntry(), encode_decode_stmt_semantics(), endfile_stmt_semantics(), inquire_stmt_semantics(), open_stmt_semantics(), print_stmt_semantics(), read_stmt_semantics(), rewind_stmt_semantics(), send_procedure(), and write_stmt_semantics().

#define SCP_EXIT_IR_SH_IDX ( IDX ) scp_tbl[IDX].wd[5].fld1.field2

Definition at line 3709 of file sytb.m.

Referenced by deallocate_local_allocatables(), dump_scp_ntry(), end_function_semantics(), end_stmt_semantics(), end_subroutine_semantics(), gen_assumed_shape_copy(), gen_single_automatic_allocate(), and return_stmt_semantics().

#define SCP_FILE_PATH_IDX ( IDX ) scp_tbl[IDX].wd[25].fld1.field3

Definition at line 3763 of file sytb.m.

Referenced by create_mod_info_file(), dump_scp_ntry(), output_mod_info_file(), and send_mod_file_name().

#define SCP_FIRST_CHILD_IDX ( IDX ) scp_tbl[IDX].wd[4].fld1.field3

Definition at line 3742 of file sytb.m.

Referenced by cvrt_proc_to_pdg(), cvrt_to_pdg(), decl_semantics_driver(), dump_scp_ntry(), end_contains(), end_interface_body(), init_parse_prog_unit(), inline_processing(), pgm_unit_semantics(), print_all_text(), print_expanded_stmt_for_scp(), print_sytb(), and start_new_scp().

#define SCP_FIRST_EQUIV_GRP ( IDX ) scp_tbl[IDX].wd[9].fld1.field3

Definition at line 3747 of file sytb.m.

Referenced by assign_offsets_for_equiv_groups(), check_and_allocate_common_storage(), decl_semantics(), dump_scp_ntry(), equivalence_semantics(), final_attr_semantics(), final_equivalence_semantics(), host_associated_attr_semantics(), init_whole_array(), merge_equivalence_groups1(), merge_equivalence_groups2(), parse_equivalence_stmt(), print_eq_tbl(), storage_blk_resolution(), and transform_cri_ch_ptr().

#define SCP_HAS_CALLS ( IDX ) scp_tbl[IDX].wd[2].fld1.flag2

Definition at line 3731 of file sytb.m.

Referenced by call_list_semantics(), cif_scope_info_rec(), dump_scp_ntry(), resolve_ext_opr(), and send_procedure().

#define SCP_HN_FW_IDX ( IDX ) scp_tbl[IDX].wd[8].fld1.field2

Definition at line 3712 of file sytb.m.

Referenced by compress_tbls(), create_hidden_name_tbl(), dump_scp_ntry(), ntr_hidden_name_tbl(), print_hn_tbl(), remove_hidden_name_tbl(), and srch_hidden_name_tbl().

#define SCP_HN_LW_IDX ( IDX ) scp_tbl[IDX].wd[9].fld1.field2

Definition at line 3713 of file sytb.m.

Referenced by compress_tbls(), create_hidden_name_tbl(), dump_scp_ntry(), ntr_hidden_name_tbl(), print_hn_tbl(), remove_hidden_name_ntry(), remove_hidden_name_tbl(), and srch_hidden_name_tbl().

#define SCP_IGNORE_TKR ( IDX ) scp_tbl[IDX].wd[2].fld1.flag1

Definition at line 3730 of file sytb.m.

Referenced by decl_semantics(), dump_scp_ntry(), and parse_dir_directives().

#define SCP_IMPL_NONE ( IDX ) scp_tbl[IDX].wd[1].fld1.flag1

Definition at line 3727 of file sytb.m.

Referenced by attr_semantics(), cif_scope_info_rec(), dump_scp_ntry(), init_parse_prog_unit(), merge_type(), parse_deref(), parse_dir_directives(), parse_implicit_stmt(), parse_lhs(), and start_new_scp().

#define SCP_IN_ERR ( IDX ) scp_tbl[IDX].wd[0].fld1.flag2

#define SCP_INLINE_SGI ( IDX ) scp_tbl[IDX].wd[3].fld1.flag2

Definition at line 3733 of file sytb.m.

Referenced by directive_stmt_semantics(), parse_sgi_dir_inline(), and set_inline_state().

#define SCP_IS_INTERFACE ( IDX ) scp_tbl[IDX].wd[0].fld1.flag1

Definition at line 3724 of file sytb.m.

Referenced by array_dim_resolution(), attr_semantics(), bound_resolution(), char_len_resolution(), check_global_pgm_unit(), collapse_interface_blk(), dump_scp_ntry(), fill_in_global_attr_ntry(), issue_undefined_type_msg(), ntr_bnds_sh_tmp_list(), pe_array_dim_resolution(), srch_host_stor_blk_tbl(), srch_host_sym_tbl(), start_new_scp(), and use_stmt_semantics().

#define SCP_IS_USED_PROC ( IDX ) scp_tbl[IDX].wd[0].fld1.flag3

Definition at line 3726 of file sytb.m.

Referenced by dump_scp_ntry().

#define SCP_LAST_CHILD_IDX ( IDX ) scp_tbl[IDX].wd[1].fld1.field3

Definition at line 3739 of file sytb.m.

Referenced by dump_scp_ntry(), end_interface_body(), parse_typed_function_stmt(), start_new_scp(), and start_new_subpgm().

#define SCP_LAST_SH_IDX ( IDX ) scp_tbl[IDX].wd[4].fld1.field2

Definition at line 3708 of file sytb.m.

Referenced by check_multiple_entry_func(), dump_scp_ntry(), end_blockdata(), end_function(), end_interface_body(), end_internal_proc(), end_module(), end_module_proc(), end_program_unit(), end_subroutine(), insert_init_stmt_for_tmp(), main(), set_up_which_entry_tmp(), and start_new_scp().

#define SCP_LEVEL ( IDX ) scp_tbl[IDX].wd[23].fld2.field4

Definition at line 3721 of file sytb.m.

Referenced by cif_begin_scope_rec(), cif_send_attr(), dump_scp_ntry(), start_new_scp(), and start_new_subpgm().

#define SCP_LN_FW_IDX ( IDX ) scp_tbl[IDX].wd[1].fld1.field2

#define SCP_LN_LW_IDX ( IDX ) scp_tbl[IDX].wd[2].fld1.field2

#define SCP_NOINLINE_SGI ( IDX ) scp_tbl[IDX].wd[3].fld1.flag3

Definition at line 3734 of file sytb.m.

Referenced by directive_stmt_semantics(), parse_sgi_dir_inline(), and set_inline_state().

#define SCP_NUM_CHILDREN ( IDX ) scp_tbl[IDX].wd[5].fld1.field3

Definition at line 3743 of file sytb.m.

Referenced by dump_scp_ntry(), end_interface_body(), init_parse_prog_unit(), and start_new_scp().

#define SCP_OPTIONAL_CHAR_TMP ( IDX ) scp_tbl[IDX].wd[10].fld1.field2

Definition at line 3714 of file sytb.m.

Referenced by dump_scp_ntry().

#define SCP_PARENT_IDX ( IDX ) scp_tbl[IDX].wd[3].fld1.field3

#define SCP_PARENT_NONE ( IDX ) scp_tbl[IDX].wd[1].fld1.flag2

Definition at line 3728 of file sytb.m.

Referenced by attr_semantics(), dump_scp_ntry(), init_parse_prog_unit(), and start_new_scp().

#define SCP_RESHAPE_ARRAY_LIST ( IDX ) scp_tbl[IDX].wd[14].fld1.field2

Definition at line 3718 of file sytb.m.

Referenced by decl_semantics(), dim_reshape_pass_driver(), dump_scp_ntry(), and srch_for_calls().

#define SCP_RETURN_LABEL ( IDX ) scp_tbl[IDX].wd[11].fld1.field2

Definition at line 3715 of file sytb.m.

Referenced by check_multiple_entry_func(), dump_scp_ntry(), end_function_semantics(), and return_stmt_semantics().

#define SCP_SB_BASED_IDX ( IDX ) scp_tbl[IDX].wd[14].fld1.field3

Definition at line 3752 of file sytb.m.

Referenced by assign_storage_blk(), create_runtime_array_constructor(), create_tmp_asg(), dump_scp_ntry(), flatten_function_call(), gen_forall_tmp(), host_associated_attr_semantics(), init_name_and_stor_tbls(), optimize_reshape(), subscript_opr_handler(), transform_cri_ch_ptr(), and translate_distant_ref1().

#define SCP_SB_DARG_IDX ( IDX ) scp_tbl[IDX].wd[15].fld1.field3

Definition at line 3753 of file sytb.m.

Referenced by attr_link_resolution(), attr_semantics(), call_list_semantics(), init_name_and_stor_tbls(), parse_dummy_args(), send_dummy_procedure(), and start_new_scp().

#define SCP_SB_HOSTED_DATA_IDX ( IDX ) scp_tbl[IDX].wd[24].fld1.field3

Definition at line 3762 of file sytb.m.

Referenced by dump_scp_ntry(), host_associated_attr_semantics(), and start_new_subpgm().

#define SCP_SB_HOSTED_STACK_IDX ( IDX ) scp_tbl[IDX].wd[12].fld1.field3

Definition at line 3750 of file sytb.m.

Referenced by cvrt_sytb_to_pdg(), dump_scp_ntry(), final_attr_semantics(), final_decl_semantics(), host_associated_attr_semantics(), and storage_blk_resolution().

#define SCP_SB_HOSTED_STATIC_IDX ( IDX ) scp_tbl[IDX].wd[19].fld1.field3

Definition at line 3757 of file sytb.m.

Referenced by dump_scp_ntry(), host_associated_attr_semantics(), and start_new_subpgm().

#define SCP_SB_STACK_IDX ( IDX ) scp_tbl[IDX].wd[13].fld1.field3

Definition at line 3751 of file sytb.m.

Referenced by adjust_char_value_len(), array_construct_semantics(), array_element_to_scalar(), assign_stmt_semantics(), assign_storage_blk(), attr_semantics(), backspace_stmt_semantics(), build_loop_tbl(), call_list_semantics(), change_section_to_do(), character_to_character(), check_stat_variable(), close_stmt_semantics(), create_alloc_descriptor(), create_argchck_descriptor(), create_format_tmp(), create_imp_do_loops(), create_io_call_descriptor(), create_namelist_descriptor(), create_runtime_array_constructor(), create_runtime_struct_constructor(), create_scalar_type_tbl(), create_strct_tbl(), cvrt_sytb_to_pdg(), determine_lb_ub(), do_single_asg(), dump_scp_ntry(), endfile_stmt_semantics(), final_arg_work(), final_attr_semantics(), flatten_function_call(), forall_semantics(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_dv_def_loops(), gen_forall_tmp(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), get_stmt_tmp(), get_type_desc(), init_name_and_stor_tbls(), inquire_stmt_semantics(), io_ctl_list_semantics(), io_list_semantics(), null_intrinsic(), open_stmt_semantics(), optimize_reshape(), random_seed_intrinsic(), ranget_intrinsic(), read_stmt_semantics(), rewind_stmt_semantics(), scalar_dope_to_scalar(), set_up_which_entry_tmp(), shape_intrinsic(), srch_for_calls(), start_new_scp(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_dv_component(), vv_subscript_semantics(), and write_stmt_semantics().

#define SCP_SB_STATIC_IDX ( IDX ) scp_tbl[IDX].wd[16].fld1.field3

Definition at line 3754 of file sytb.m.

Referenced by assign_storage_blk(), create_equiv_stor_blk(), dump_scp_ntry(), host_associated_attr_semantics(), init_name_and_stor_tbls(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), parse_module_stmt(), parse_var_common_list(), start_new_prog_unit(), and start_new_subpgm().

#define SCP_SB_STATIC_INIT_IDX ( IDX ) scp_tbl[IDX].wd[20].fld1.field3

#define SCP_SB_STATIC_UNINIT_IDX ( IDX ) scp_tbl[IDX].wd[23].fld1.field3

Definition at line 3761 of file sytb.m.

Referenced by assign_storage_blk(), dump_scp_ntry(), init_name_and_stor_tbls(), parse_module_stmt(), start_new_prog_unit(), and start_new_subpgm().

#define SCP_SB_SYMMETRIC_IDX ( IDX ) scp_tbl[IDX].wd[17].fld1.field3

Definition at line 3755 of file sytb.m.

Referenced by assign_storage_blk(), and dump_scp_ntry().

#define SCP_SIBLING_IDX ( IDX ) scp_tbl[IDX].wd[0].fld1.field3

Definition at line 3738 of file sytb.m.

Referenced by cvrt_proc_to_pdg(), decl_semantics_driver(), dump_scp_ntry(), end_interface_body(), inline_processing(), pgm_unit_semantics(), print_all_text(), print_expanded_stmt_for_scp(), print_sytb(), and start_new_scp().

#define SCP_TMP_FW_IDX ( IDX ) scp_tbl[IDX].wd[11].fld1.field3

Definition at line 3749 of file sytb.m.

Referenced by dump_scp_ntry(), end_interface_body(), ntr_bnds_tmp_list(), and parse_kind_selector().

#define SCP_TMP_FW_IDX2 ( IDX ) scp_tbl[IDX].wd[2].fld1.field3

Definition at line 3740 of file sytb.m.

Referenced by dump_scp_ntry(), end_interface_body(), and ntr_bnds_sh_tmp_list().

#define SCP_TMP_LIST ( IDX ) scp_tbl[IDX].wd[10].fld1.field3

Definition at line 3748 of file sytb.m.

Referenced by bound_semantics(), call_list_semantics(), dump_scp_ntry(), and end_interface_body().

#define SCP_USED_MODULE_LIST ( IDX ) scp_tbl[IDX].wd[8].fld1.field3

Definition at line 3746 of file sytb.m.

Referenced by assign_new_idxs_after_input(), dump_scp_ntry(), implicit_use_semantics(), parse_prog_unit(), parse_use_stmt(), resolve_used_modules(), and use_stmt_semantics().

#define SCP_WHICH_ENTRY_TMP ( IDX ) scp_tbl[IDX].wd[13].fld1.field2

Definition at line 3717 of file sytb.m.

Referenced by check_multiple_entry_func(), gen_darg_branch_test(), and set_up_which_entry_tmp().

#define SET_IMPL_TYPE ( AT_IDX )

Value:

{int    _i_idx;                                                        \
         _i_idx                 = IMPL_IDX(AT_OBJ_NAME(AT_IDX));               \
         ATD_TYPE_IDX(AT_IDX)   = IM_TYPE_IDX(curr_scp_idx, _i_idx);           \
        }

Definition at line 4561 of file sytb.m.

Referenced by attr_semantics(), generic_spec_semantics(), merge_allocatable(), merge_automatic(), merge_dimension(), merge_intent(), merge_intrinsic(), merge_optional(), merge_pointer(), merge_save(), merge_target(), merge_volatile(), parse_assignment_stmt(), parse_attrs(), parse_auxiliary_dir(), parse_common_stmt(), parse_copy_assumed_shape_dir(), parse_cpnt_dcl_stmt(), parse_data_imp_do(), parse_data_stmt(), parse_deref(), parse_distribution_dir(), parse_dummy_args(), parse_equivalence_stmt(), parse_fill_align_symbol(), parse_goto_stmt(), parse_ignore_tkr(), parse_namelist_stmt(), parse_parameter_stmt(), parse_pointer_stmt(), parse_redistribute_dir(), parse_stmt_func_stmt(), parse_symmetric_dir(), parse_type_dcl_stmt(), parse_var_common_list(), parse_vfunction_dir(), rename_only_semantics(), retype_attr(), and set_function_rslt().

#define SET_IMPL_TYPE_IN_SCP	(	AT_IDX,
		SCP_IDX
	)

Value:

{int    _i_idx;                                                        \
         _i_idx                 = IMPL_IDX(AT_OBJ_NAME(AT_IDX));               \
         ATD_TYPE_IDX(AT_IDX)   = IM_TYPE_IDX(SCP_IDX, _i_idx);                \
        }

Definition at line 4568 of file sytb.m.

Referenced by call_list_semantics().

#define SET_POINTER_SIZE (cmd_line_flags.s_pointer8)

Definition at line 155 of file sytb.m.

#define SH_ACTION_STMT ( IDX ) sh_tbl[IDX].action_stmt

Definition at line 3875 of file sytb.m.

Referenced by chk_for_unlabeled_stmt(), and parse_if_stmt().

#define SH_CIF_SKIP_ME ( IDX ) sh_tbl[IDX].cif_skip_me

Definition at line 3869 of file sytb.m.

#define SH_COL_NUM ( IDX ) sh_tbl[IDX].col_num

Definition at line 3870 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), bound_semantics(), case_value_range_semantics(), char_len_resolution(), check_loop_bottom_nesting(), check_mp_dir_nesting(), check_multiple_entry_func(), chk_for_unlabeled_stmt(), cif_loop_def_rec(), continue_stmt_semantics(), create_namelist_descriptor(), create_tmp_asg(), deallocate_local_allocatables(), decl_semantics_driver(), determine_stmt_type(), do_cmic_blk_checks(), do_stmt_semantics(), dump_stmt_ntry(), else_stmt_semantics(), end_do_parallel_blk(), end_forall_blk(), end_forall_semantics(), end_interface_body(), end_parallel_blk(), end_pdo_blk(), end_SGI_parallel_blk(), end_where_semantics(), find_opnd_line_and_column(), gen_assumed_shape_copy(), gen_branch_around_ir(), gen_debug_lbl_stmt(), gen_directive_ir(), gen_end_prologue_debug_label(), gen_entry_dope_code(), gen_forall_if_mask(), gen_loop_end_ir(), gen_present_ir(), gen_sh(), gen_single_automatic_allocate(), gen_temp_init(), gen_tmp_eq_zero_ir(), gen_tmp_equal_max_zero(), insert_argchck_calls(), insert_sh_after_entries(), loop_top_is_perfectly_nested(), main(), make_copy_of_routine(), parse_case_stmt(), parse_else_stmt(), parse_forall(), parse_io_control_list(), parse_prog_unit(), parse_type_dcl_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), pop_and_err_blk_stk(), print_all_text(), put_string_in_tmp(), runtime_ptr_chk_driver(), set_up_which_entry_tmp(), short_circuit_high_level_if(), stmt_expansion_control_start(), translate_distant_dv_ref(), translate_dv_component(), and where_stmt_semantics().

#define SH_COMPILER_GEN ( IDX ) sh_tbl[IDX].compiler_gen

Definition at line 3871 of file sytb.m.

Referenced by array_dim_resolution(), assignment_stmt_semantics(), bound_semantics(), char_len_resolution(), check_loop_bottom_nesting(), chk_for_unlabeled_stmt(), cif_loop_def_rec(), continue_stmt_semantics(), copy_from_gl_subtree(), create_namelist_descriptor(), create_tmp_asg(), cvrt_ir_to_pdg(), deallocate_local_allocatables(), directive_stmt_semantics(), do_loop_expr_semantics(), do_stmt_semantics(), dump_stmt_ntry(), dump_trace_info(), gen_sh(), gen_single_automatic_allocate(), gen_temp_init(), gen_tmp_eq_zero_ir(), gen_tmp_equal_max_zero(), goto_stmt_semantics(), if_stmt_semantics(), loop_end_processing(), loop_top_is_perfectly_nested(), lower_ptr_asg(), parse_data_stmt(), parse_entry_stmt(), parse_open_mp_directives(), parse_par_directives(), parse_type_dcl_stmt(), pe_array_dim_resolution(), and process_interchange_dir().

#define SH_DOALL_LOOP_END ( IDX ) sh_tbl[IDX].doall_loop_end

Definition at line 3872 of file sytb.m.

Referenced by do_stmt_semantics(), dump_stmt_ntry(), inline_processing(), and pgm_unit_semantics().

#define SH_ERR_FLG ( IDX ) sh_tbl[IDX].stmt_parse_err

Definition at line 3873 of file sytb.m.

Referenced by blk_match_err(), build_loop_tbl(), calculate_iteration_count(), case_stmt_semantics(), case_value_range_semantics(), check_label_ref(), check_loop_bottom_nesting(), check_mp_dir_nesting(), data_imp_do_semantics(), data_stmt_semantics(), do_stmt_semantics(), dump_trace_info(), end_blk_mp_semantics(), end_do_blk(), end_forall_semantics(), end_if_blk(), end_labeled_do(), end_select_semantics(), gen_if_ir(), gen_loop_end_ir(), gen_sh(), if_stmt_semantics(), init_whole_array(), interpret_data_imp_do(), loop_end_processing(), loop_top_is_perfectly_nested(), mp_directive_semantics(), object_semantics(), open_mp_directive_semantics(), optimize_whole_array_init(), outmoded_if_stmt_semantics(), parse_assign_stmt(), parse_backspace_stmt(), parse_call_stmt(), parse_close_stmt(), parse_data_imp_do(), parse_deref(), parse_do_stmt(), parse_else_stmt(), parse_end_stmt(), parse_endfile_stmt(), parse_forall(), parse_goto_stmt(), parse_if_stmt(), parse_inquire_stmt(), parse_lhs(), parse_open_stmt(), parse_prog_unit(), parse_rewind_stmt(), parse_select_stmt(), parse_star_dir_directives(), parse_stop_pause_stmt(), parse_type_dcl_stmt(), parse_type_spec(), parse_where_stmt(), pgm_unit_semantics(), pop_and_err_blk_stk(), PRINTMSG(), process_blockable_dir(), process_data_imp_do_target(), process_interchange_dir(), select_stmt_semantics(), start_new_subpgm(), stmt_expansion_control_start(), and where_stmt_semantics().

#define SH_GLB_LINE ( IDX ) sh_tbl[IDX].glb_line_num

Definition at line 3874 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), attr_semantics(), bound_semantics(), case_value_range_semantics(), char_len_resolution(), check_loop_bottom_nesting(), check_mp_dir_nesting(), check_multiple_entry_func(), chk_for_unlabeled_stmt(), Cif_Error(), cif_loop_def_rec(), continue_stmt_semantics(), create_namelist_descriptor(), create_tmp_asg(), cvrt_exp_to_pdg(), cvrt_ir_to_pdg(), cvrt_proc_to_pdg(), cvrt_to_pdg(), deallocate_local_allocatables(), decl_semantics(), decl_semantics_driver(), determine_stmt_type(), do_cmic_blk_checks(), do_stmt_semantics(), dump_trace_info(), else_stmt_semantics(), end_do_parallel_blk(), end_forall_blk(), end_forall_semantics(), end_interface_body(), end_parallel_blk(), end_pdo_blk(), end_SGI_parallel_blk(), end_where_semantics(), find_opnd_line_and_column(), gen_assumed_shape_copy(), gen_branch_around_ir(), gen_debug_lbl_stmt(), gen_directive_ir(), gen_end_prologue_debug_label(), gen_entry_dope_code(), gen_forall_if_mask(), gen_loop_end_ir(), gen_present_ir(), gen_sh(), gen_single_automatic_allocate(), gen_temp_init(), gen_tmp_eq_zero_ir(), gen_tmp_equal_max_zero(), gen_user_code_start_opr(), illegal_stmt_type(), insert_argchck_calls(), insert_sh_after_entries(), label_ref_semantics(), loop_top_is_perfectly_nested(), main(), make_copy_of_routine(), no_semantics_routine(), parse_case_stmt(), parse_else_stmt(), parse_forall(), parse_io_control_list(), parse_prog_unit(), parse_type_dcl_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), pop_and_err_blk_stk(), print_all_text(), PRINTMSG(), process_interchange_dir(), put_string_in_tmp(), runtime_ptr_chk_driver(), semantics_pass_driver(), set_up_which_entry_tmp(), short_circuit_high_level_if(), stmt_expansion_control_start(), translate_distant_dv_ref(), translate_dv_component(), and where_stmt_semantics().

#define SH_INLINING_ATTEMPTED ( IDX ) sh_tbl[IDX].inlining_attempted

Definition at line 3876 of file sytb.m.

Referenced by srch_for_calls().

#define SH_IR_IDX ( IDX ) sh_tbl[IDX].ir_idx

Definition at line 3877 of file sytb.m.

#define SH_LABELED ( IDX ) sh_tbl[IDX].labeled

Definition at line 3878 of file sytb.m.

Referenced by check_loop_bottom_nesting(), dump_stmt_ntry(), end_select_blk(), gen_attr_and_IR_for_lbl(), gen_debug_lbl_stmt(), gen_sh(), loop_end_processing(), lower_ptr_asg(), parse_case_stmt(), ptr_assign_from_ptr(), and start_new_scp().

#define SH_LOOP_END ( IDX ) sh_tbl[IDX].loop_end

Definition at line 3879 of file sytb.m.

Referenced by check_loop_bottom_nesting(), create_loop_stmts(), dump_stmt_ntry(), loop_end_processing(), lower_ptr_asg(), and pgm_unit_semantics().

#define SH_NEXT_IDX ( IDX ) sh_tbl[IDX].next_sh_idx

Definition at line 3880 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_semantics(), backspace_stmt_semantics(), bound_semantics(), chk_for_unlabeled_stmt(), close_stmt_semantics(), compress_tbls(), continue_stmt_semantics(), copy_entry_exit_sh_list(), create_loop_stmts(), create_namelist_descriptor(), create_tmp_asg(), cvrt_ir_to_pdg(), deallocate_local_allocatables(), decl_semantics(), default_init_semantics(), dim_reshape_pass_driver(), directive_stmt_semantics(), do_loop_expr_semantics(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dump_stmt_ntry(), end_do_parallel_blk(), end_function_semantics(), end_open_mp_do_blk(), end_open_mp_parallel_do_blk(), end_pdo_blk(), end_select_blk(), end_stmt_semantics(), end_subroutine_semantics(), end_where_semantics(), endfile_stmt_semantics(), expand_imp_do(), expand_io_list(), final_arg_work(), flatten_function_call(), forall_mask_needs_tmp(), forall_semantics(), gen_assumed_shape_copy(), gen_bounds_check_call(), gen_conform_check_call(), gen_directive_ir(), gen_ptr_chk_call(), gen_rbounds_check_call(), gen_sbounds_check_call(), gen_sh(), gen_single_automatic_allocate(), gen_tmp_eq_zero_ir(), if_stmt_semantics(), inline_processing(), inquire_stmt_semantics(), insert_global_sh(), insert_sh_after_entries(), insert_sh_chain(), insert_sh_chain_after_entries(), insert_sh_chain_before(), make_copy_of_routine(), mp_directive_semantics(), ntr_bnds_sh_tmp_list(), ntr_sh_tbl(), open_mp_directive_semantics(), open_stmt_semantics(), parse_open_mp_directives(), parse_par_directives(), parse_prog_unit(), pgm_unit_semantics(), pop_and_err_blk_stk(), print_all_text(), print_expanded_stmt_for_scp(), process_cpnt_inits(), process_deferred_functions(), process_deferred_io_list(), process_procs_for_inlining(), read_stmt_semantics(), remove_sh(), return_stmt_semantics(), rewind_stmt_semantics(), runtime_ptr_chk_driver(), select_stmt_semantics(), set_mod_link_tbl_for_attr(), srch_for_calls(), start_new_scp(), stmt_expansion_control_end(), type_init_semantics(), where_stmt_semantics(), and write_stmt_semantics().

#define SH_P2_SKIP_ME ( IDX ) sh_tbl[IDX].skip_pass_2

Definition at line 3881 of file sytb.m.

Referenced by array_dim_resolution(), array_element_to_scalar(), asg_opnd_to_tmp(), assignment_stmt_semantics(), attr_semantics(), backspace_stmt_semantics(), bound_semantics(), call_list_semantics(), char_len_resolution(), character_to_character(), check_multiple_entry_func(), check_stat_variable(), close_stmt_semantics(), copy_and_replace_tmps(), create_alloc_descriptor(), create_argchck_descriptor(), create_constructor_constant(), create_format_tmp(), create_interp_stmts(), create_io_call_descriptor(), create_loop_stmts(), create_namelist_descriptor(), create_runtime_array_constructor(), create_strct_tbl(), create_struct_argchck_tbl(), create_struct_constructor_asg(), create_tmp_asg(), create_tmp_DV_asg(), create_tmp_from_stmt_func(), deallocate_local_allocatables(), determine_lb_ub(), do_loop_expr_semantics(), do_single_asg(), do_stmt_semantics(), dope_vector_setup(), dump_trace_info(), else_stmt_semantics(), end_do_blk(), end_if_blk(), end_program_unit(), endfile_stmt_semantics(), expand_imp_do(), expand_io_list(), final_arg_work(), find_attrs_used_in_bound(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), forall_semantics(), gen_arg_type_descriptor(), gen_array_element_init(), gen_assumed_shape_copy(), gen_bd_entry(), gen_bounds_check_call(), gen_branch_around_ir(), gen_call_type_descriptor(), gen_common_dv_init(), gen_conform_check_call(), gen_copyin_bounds_stmt(), gen_dbg_write_stmt(), gen_debug_lbl_stmt(), gen_Dv_Set_stmt(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_end_prologue_debug_label(), gen_forall_branch_around(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_if_ir(), gen_if_stmt(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_loop_end_ir(), gen_present_ir(), gen_ptr_chk_call(), gen_rbounds_check_call(), gen_sbounds_check_call(), gen_sf_dv_whole_def(), gen_sh(), gen_single_automatic_allocate(), gen_split_alloc(), gen_static_dv_whole_def(), gen_temp_init(), gen_tmp_eq_zero_ir(), gen_tmp_equal_max_zero(), gen_user_code_start_opr(), increment_subscript(), inquire_stmt_semantics(), insert_argchck_calls(), insert_init_stmt_for_tmp(), io_ctl_list_semantics(), lbound_intrinsic(), nullify_stmt_semantics(), open_stmt_semantics(), optimize_reshape(), parse_cycle_stmt(), parse_end_stmt(), parse_exit_stmt(), parse_id_directive(), parse_stop_pause_stmt(), parse_use_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), print_stmt_semantics(), process_all_initialized_cpnts(), process_cpnt_inits(), process_deferred_io_list(), put_string_in_tmp(), read_stmt_semantics(), rewind_stmt_semantics(), save_array_syntax_subscripts(), scalar_dope_to_scalar(), set_up_which_entry_tmp(), shape_intrinsic(), short_circuit_branch(), short_circuit_high_level_if(), srch_for_calls(), stmt_func_call_opr_handler(), stmt_level_semantics(), test_size_stmts(), transfer_intrinsic(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_dv_component(), ubound_intrinsic(), use_stmt_semantics(), validate_char_len(), and write_stmt_semantics().

#define SH_PREV_IDX ( IDX ) sh_tbl[IDX].prev_sh_idx

Definition at line 3883 of file sytb.m.

Referenced by array_element_to_scalar(), asg_opnd_to_tmp(), assign_new_idxs_after_input(), assignment_stmt_semantics(), attr_semantics(), backspace_stmt_semantics(), bound_resolution(), bound_semantics(), call_list_semantics(), char_len_resolution(), character_to_character(), check_loop_bottom_nesting(), check_stat_variable(), cif_stmt_type_rec(), ck_lbl_construct_name(), close_stmt_semantics(), compress_tbls(), continue_stmt_semantics(), copy_and_replace_tmps(), copy_entry_exit_sh_list(), create_alloc_descriptor(), create_argchck_descriptor(), create_array_constructor_asg(), create_constructor_constant(), create_format_tmp(), create_interp_stmts(), create_io_call_descriptor(), create_loop_stmts(), create_namelist_descriptor(), create_runtime_array_constructor(), create_struct_argchck_tbl(), create_struct_constructor_asg(), create_tmp_asg(), create_tmp_DV_asg(), create_tmp_from_stmt_func(), deallocate_local_allocatables(), decl_semantics(), default_init_semantics(), determine_lb_ub(), do_loop_expr_semantics(), do_single_asg(), do_stmt_semantics(), doall_cmic_semantics(), doparallel_cmic_semantics(), dope_vector_setup(), dump_stmt_ntry(), else_stmt_semantics(), end_blockdata(), end_do_parallel_blk(), end_function(), end_if_blk(), end_interface_body(), end_internal_proc(), end_module(), end_module_proc(), end_open_mp_do_blk(), end_open_mp_parallel_do_blk(), end_pdo_blk(), end_program_unit(), end_select_blk(), end_subroutine(), end_where_semantics(), endfile_stmt_semantics(), expand_imp_do(), expand_io_list(), expand_user_bound(), final_arg_work(), find_attrs_used_in_bound(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), forall_semantics(), gen_arg_type_descriptor(), gen_assumed_shape_copy(), gen_attr_and_IR_for_lbl(), gen_bd_entry(), gen_bounds_check_call(), gen_branch_around_ir(), gen_call_type_descriptor(), gen_common_dv_init(), gen_conform_check_call(), gen_copyin_bounds_stmt(), gen_dbg_write_stmt(), gen_debug_lbl_stmt(), gen_directive_ir(), gen_Dv_Set_stmt(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_forall_branch_around(), gen_forall_tmp(), gen_forall_tmp_bd_entry(), gen_if_stmt(), gen_init_stmt(), gen_initialized_tmp(), gen_internal_call_stmt(), gen_loop_end_ir(), gen_present_ir(), gen_ptr_chk_call(), gen_rbounds_check_call(), gen_sbounds_check_call(), gen_sf_dv_whole_def(), gen_sh(), gen_single_automatic_allocate(), gen_split_alloc(), gen_static_dv_whole_def(), gen_tmp_eq_zero_ir(), get_stmt_tmp(), if_stmt_semantics(), increment_subscript(), inquire_stmt_semantics(), insert_argchck_calls(), insert_global_sh(), insert_init_stmt_for_tmp(), insert_sh_after_entries(), insert_sh_chain(), insert_sh_chain_after_entries(), insert_sh_chain_before(), io_ctl_list_semantics(), lbound_intrinsic(), loop_end_processing(), loop_top_is_perfectly_nested(), lower_ptr_asg(), make_copy_of_routine(), mp_directive_semantics(), ntr_bnds_sh_tmp_list(), nullify_stmt_semantics(), open_mp_directive_semantics(), open_stmt_semantics(), optimize_reshape(), optimize_whole_array_init(), parse_case_stmt(), parse_else_stmt(), parse_id_directive(), parse_if_stmt(), parse_open_mp_directives(), parse_par_directives(), parse_prog_unit(), pgm_unit_semantics(), pop_and_err_blk_stk(), print_all_text(), print_stmt_semantics(), process_cpnt_inits(), process_deferred_functions(), process_deferred_io_list(), process_interchange_dir(), ptr_assign_from_ptr(), read_stmt_semantics(), remove_sh(), rewind_stmt_semantics(), save_array_syntax_subscripts(), scalar_dope_to_scalar(), select_stmt_semantics(), shape_intrinsic(), short_circuit_branch(), short_circuit_high_level_if(), srch_for_calls(), start_new_prog_unit(), start_new_scp(), stmt_expansion_control_end(), stmt_expansion_control_start(), stmt_func_call_opr_handler(), test_size_stmts(), then_stmt_semantics(), transfer_intrinsic(), transform_cri_ch_ptr(), translate_distant_dv_ref(), translate_distant_ref1(), translate_dv_component(), type_init_semantics(), ubound_intrinsic(), use_stmt_semantics(), validate_char_len(), where_stmt_semantics(), and write_stmt_semantics().

#define SH_STMT_TYPE ( IDX ) sh_tbl[IDX].stmt_type

Definition at line 3885 of file sytb.m.

Referenced by array_dim_resolution(), assign_new_idxs_after_input(), assignment_stmt_semantics(), bound_semantics(), char_len_resolution(), check_loop_bottom_nesting(), check_mp_dir_nesting(), chk_for_unlabeled_stmt(), cif_loop_def_rec(), compress_tbls(), create_namelist_descriptor(), create_tmp_asg(), cvrt_exp_to_pdg(), cvrt_ir_to_pdg(), deallocate_local_allocatables(), decl_semantics(), determine_stmt_type(), dump_stmt_ntry(), dump_trace_info(), else_stmt_semantics(), end_function(), end_where_blk(), end_where_semantics(), forall_mask_needs_tmp(), gen_assumed_shape_copy(), gen_directive_ir(), gen_loop_end_ir(), gen_sh(), gen_temp_init(), gen_tmp_eq_zero_ir(), gen_tmp_equal_max_zero(), gen_whole_subscript(), get_operator_dot(), if_stmt_semantics(), init_parse_prog_unit(), inline_processing(), label_ref_semantics(), loop_top_is_perfectly_nested(), lower_ptr_asg(), parse_allocate_stmt(), parse_deallocate_stmt(), parse_derived_type_stmt(), parse_dir_directives(), parse_do_stmt(), parse_else_stmt(), parse_end_stmt(), parse_entry_stmt(), parse_forall(), parse_if_stmt(), parse_implicit_stmt(), parse_mic_directives(), parse_module_stmt(), parse_open_mp_directives(), parse_par_directives(), parse_prefix_spec(), parse_prog_unit(), parse_star_dir_directives(), parse_star_directives(), parse_type_dcl_stmt(), parse_typed_function_stmt(), parse_where_stmt(), pe_array_dim_resolution(), pgm_unit_semantics(), pop_and_err_blk_stk(), process_blockable_dir(), process_interchange_dir(), resolve_fwd_lbl_refs(), select_stmt_semantics(), start_new_subpgm(), stmt_expansion_control_end(), stmt_expansion_control_start(), and where_stmt_semantics().

#define SN_ATTR_IDX ( IDX ) sec_name_tbl[IDX].attr_idx

Definition at line 4054 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), call_list_semantics(), chain_thru_sn_ntries(), cif_send_attr(), collapse_interface_blk(), compare_darg_to_actual_arg(), compare_derived_types(), compare_dummy_arguments(), compare_duplicate_interface_bodies(), compare_global_derived_type(), complete_intrinsic_definition(), compress_tbls(), create_namelist_descriptor(), create_strct_tbl(), create_struct_constructor_asg(), darg_in_entry_list(), deallocate_local_allocatables(), determine_struct_tbl_size(), directive_stmt_semantics(), discombobulate_structure_ref(), do_read_namelist_semantics(), do_write_namelist_semantics(), dump_sn_ntry(), end_interface_blk(), end_type_blk(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_arg_work(), final_attr_semantics(), final_equivalence_semantics(), gen_arg_type_descriptor(), gen_bias_ref(), gen_forall_derived_type(), gen_forall_tmp(), global_name_semantics(), host_associated_attr_semantics(), interpret_struct_construct_opr(), loop_thru_sn_ntries(), merge_access(), merge_interfaces(), merge_type(), namelist_resolution(), not_visible_semantics(), ntr_global_type_tbl(), num_images_intrinsic(), parse_cpnt_dcl_stmt(), parse_deref(), parse_dummy_args(), parse_namelist_stmt(), parse_stmt_func_stmt(), print_attr_f(), process_all_initialized_cpnts(), process_cpnt_inits(), process_variable_size_func(), resolve_all_components(), resolve_attr(), resolve_ext_opr(), send_attr_ntry(), send_darg_list(), send_derived_type(), send_interface_list(), send_namelist_group(), set_mod_link_tbl_for_attr(), set_shape_for_deferred_funcs(), set_up_pe_offset_attr(), srch_for_calls(), srch_kwd_name(), srch_linked_sn(), stmt_func_call_opr_handler(), stmt_func_semantics(), struct_construct_opr_handler(), transform_char_sequence_ref(), update_intrinsic(), and verify_interface().

#define SN_COLUMN_NUM ( IDX ) sec_name_tbl[IDX].column_num

Definition at line 4055 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), dump_sn_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), namelist_resolution(), parse_dummy_args(), parse_namelist_stmt(), parse_stmt_func_stmt(), and verify_interface().

#define SN_LEN ( IDX ) SN_NAME_LEN(IDX)

Definition at line 4158 of file sytb.m.

Referenced by srch_kwd_name().

#define SN_LINE_NUM ( IDX ) sec_name_tbl[IDX].line_num

Definition at line 4056 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), dump_sn_ntry(), fill_in_global_attr_ntry(), global_name_semantics(), namelist_resolution(), parse_dummy_args(), parse_namelist_stmt(), parse_stmt_func_stmt(), and verify_interface().

#define SN_MATCHED_DARG ( IDX ) sec_name_tbl[IDX].matched

Definition at line 4057 of file sytb.m.

Referenced by dump_sn_ntry(), and verify_interface().

#define SN_NAME_IDX ( IDX ) sec_name_tbl[IDX].name_idx

Definition at line 4058 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_link_resolution(), attr_semantics(), call_list_semantics(), complete_intrinsic_definition(), compress_tbls(), dump_sn_ntry(), gen_forall_derived_type(), parse_cpnt_dcl_stmt(), parse_dummy_args(), parse_namelist_stmt(), parse_stmt_func_stmt(), set_up_pe_offset_attr(), srch_linked_sn(), and verify_interface().

#define SN_NAME_LEN ( IDX ) sec_name_tbl[IDX].length

Definition at line 4059 of file sytb.m.

Referenced by attr_link_resolution(), attr_semantics(), call_list_semantics(), complete_intrinsic_definition(), compress_tbls(), dump_sn_ntry(), gen_forall_derived_type(), parse_cpnt_dcl_stmt(), parse_dummy_args(), parse_namelist_stmt(), parse_stmt_func_stmt(), set_up_pe_offset_attr(), and srch_linked_sn().

#define SN_NP_IDX ( IDX ) SN_NAME_IDX(IDX)

Definition at line 4152 of file sytb.m.

Referenced by srch_kwd_name().

#define SN_SIBLING_LINK ( IDX ) sec_name_tbl[IDX].sibling_link

Definition at line 4060 of file sytb.m.

Referenced by assign_new_idxs_after_input(), attr_semantics(), call_list_semantics(), chain_thru_sn_ntries(), cif_send_attr(), collapse_interface_blk(), compare_derived_types(), compare_global_derived_type(), compress_tbls(), create_namelist_descriptor(), create_strct_tbl(), create_struct_constructor_asg(), deallocate_local_allocatables(), determine_struct_tbl_size(), directive_stmt_semantics(), discombobulate_structure_ref(), do_read_namelist_semantics(), do_write_namelist_semantics(), dump_sn_ntry(), end_interface_blk(), end_type_blk(), fill_in_struct_argchck_const(), gen_bias_ref(), host_associated_attr_semantics(), interpret_struct_construct_opr(), merge_access(), merge_interfaces(), merge_intrinsic(), namelist_resolution(), not_visible_semantics(), ntr_global_type_tbl(), num_images_intrinsic(), parse_cpnt_dcl_stmt(), parse_namelist_stmt(), print_attr_f(), process_all_initialized_cpnts(), process_cpnt_inits(), resolve_all_components(), resolve_attr(), resolve_ext_opr(), send_attr_ntry(), send_derived_type(), send_interface_list(), send_namelist_group(), set_mod_link_tbl_for_attr(), set_up_pe_offset_attr(), srch_linked_sn(), struct_construct_opr_handler(), update_intrinsic(), use_stmt_semantics(), and verify_interface().

#define STORAGE_WORD_SIZE ( BIT_SIZE ) (TARGET_BITS_TO_WORDS((BIT_SIZE)))

Definition at line 329 of file sytb.m.

Referenced by create_constructor_constant(), create_runtime_array_constructor(), fold_aggragate_expression(), interpret_constructor(), ntr_boolean_const_tbl(), ntr_boz_const_tbl(), ntr_const_tbl(), ntr_unshared_const_tbl(), set_mod_link_tbl_for_cn(), and set_stride_for_first_dim().

#define STRIDE_CALC ( SEG_LEN ) (((SEG_LEN) + _MAXVL - 1) / _MAXVL)

Definition at line 4170 of file sytb.m.

Referenced by srch_name_tbl().

#define THIS_IS_TRUE	(	THE_CONSTANT,
		TYPE_IDX
	)	((THE_CONSTANT)[0] == TRUE_VALUE)

Definition at line 4590 of file sytb.m.

Referenced by array_construct_semantics(), assign_storage_blk(), case_stmt_semantics(), check_and_allocate_common_storage(), check_array_bounds(), cif_named_constant_rec(), compare_array_entries(), compare_cn_and_value(), compare_target_consts(), compare_value_to_cn(), convert_to_string(), copy_sbtree(), end_function_semantics(), equivalence_semantics(), final_arg_work(), final_attr_semantics(), final_equivalence_semantics(), fold_relationals(), folder_driver(), interpret_cvmgt_opr(), interpret_implied_do(), interpret_max_min_opr(), interpret_size_intrinsic(), interpret_ubound_intrinsic(), io_list_semantics(), max_intrinsic(), mergee_intrinsic(), print_const_f(), print_expanded_const(), print_so(), return_stmt_semantics(), size_offset_min_max_calc(), stor_bit_size_of(), storage_blk_resolution(), and wait_send_semantics().

#define TYP_BIT_LEN ( IDX ) type_tbl[IDX].fld.bit_len

Definition at line 4117 of file sytb.m.

Referenced by assign_new_idxs_after_input(), broadcast_scalar(), cast_typeless_constant(), convert_binary_literal(), convert_hex_literal(), convert_octal_literal(), create_constructor_constant(), create_format_tmp(), create_runtime_array_constructor(), create_struct_argchck_tbl(), cvrt_exp_to_pdg(), dump_typ_ntry(), final_attr_semantics(), fold_aggragate_expression(), folder_driver(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_static_dv_whole_def(), get_basic_type(), increment_count(), init_whole_array(), interpret_constructor(), interpret_ref(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), lbound_intrinsic(), make_io_type_code(), namelist_static_dv_whole_def(), ntr_boolean_const_tbl(), ntr_boz_const_tbl(), ntr_const_tbl(), ntr_type_tbl(), ntr_unshared_const_tbl(), pre_parse_format(), print_attr_name(), print_const_entry(), print_const_f(), print_expanded_const(), print_global_type_f(), print_so(), print_type_f(), process_data_imp_do_target(), put_c_str_in_cn(), put_char_const_in_tbl(), reshape_intrinsic(), send_attr_ntry(), set_mod_link_tbl_for_cn(), set_sb_first_attr_idx(), set_stride_for_first_dim(), shape_intrinsic(), shift_intrinsic(), sm_unit_in_bits(), stor_bit_size_of(), transfer_intrinsic(), ubound_intrinsic(), and write_constant().

#define TYP_BIT_LEN_F ( IDX ) type_tbl[IDX].wd.length

Definition at line 4118 of file sytb.m.

#define TYP_CHAR_CLASS ( IDX ) type_tbl[IDX].fld.char_class

Definition at line 4119 of file sytb.m.

Referenced by adjust_char_value_len(), array_dim_resolution(), attr_link_resolution(), attr_semantics(), call_list_semantics(), char_bounds_resolution(), char_len_resolution(), character_to_character(), check_bd_typ_for_dargs(), cif_send_attr(), clock_intrinsic(), compare_entry_to_func_rslt(), concat_opr_handler(), copy_sbtree(), create_constructor_constant(), create_kwd_text(), create_runtime_array_constructor(), cvrt_exp_to_pdg(), default_init_semantics(), dump_typ_ntry(), final_arg_work(), finish_cdir_id(), flatten_function_call(), fnd_semantic_err(), fold_aggragate_expression(), folder_driver(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_whole_substring(), get_basic_type(), get_operand_quote(), get_type_desc(), global_name_semantics(), init_directive(), interpret_adjustl_intrinsic(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_index_opr(), interpret_unary_intrinsic_opr(), make_new_bd_entries(), merge_parameter(), merge_type(), ntr_global_type_tbl(), ntr_io_string_constant(), pack_intrinsic(), parse_cpnt_dcl_stmt(), parse_deref(), parse_dir_directives(), parse_implicit_stmt(), parse_length_selector(), parse_open_mp_directives(), parse_openad_directives(), parse_parameter_stmt(), parse_pointer_stmt(), parse_type_dcl_stmt(), parse_typed_function_stmt(), print_attr_name(), print_type_f(), process_variable_size_func(), push_data_value(), put_c_str_in_cn(), put_char_const_in_tbl(), put_format_in_tbl(), put_string_in_tmp(), scalar_dope_to_scalar(), set_shape_for_deferred_funcs(), srch_for_calls(), stop_pause_stmt_semantics(), substring_opr_handler(), transfer_intrinsic(), transform_char_sequence_ref(), type_init_semantics(), unpack_intrinsic(), validate_char_len(), and verify_interface().

#define TYP_DCL_VALUE ( IDX ) type_tbl[IDX].fld.dcl_value

Definition at line 4120 of file sytb.m.

Referenced by convert_const(), dump_typ_ntry(), kind_to_linear_type(), make_io_type_code(), merge_parameter(), ntr_global_type_tbl(), parse_cpnt_dcl_stmt(), parse_kind_selector(), parse_operand(), parse_pointer_stmt(), parse_type_dcl_stmt(), parse_type_spec(), and print_type_f().

#define TYP_DECLARED_DBL ( IDX ) type_tbl[IDX].fld.declared_dbl

Definition at line 4121 of file sytb.m.

Referenced by make_io_type_code().

#define TYP_DESC ( IDX ) type_tbl[IDX].fld.desc

Definition at line 4122 of file sytb.m.

Referenced by cif_send_attr(), compare_entry_to_func_rslt(), convert_const(), digits_intrinsic(), dump_cn_tree(), dump_typ_ntry(), equivalence_semantics(), finish_cdir_id(), gen_arg_type_descriptor(), huge_intrinsic(), kind_intrinsic(), kind_to_linear_type(), make_io_type_code(), max_intrinsic(), merge_parameter(), minus_opr_handler(), minval_intrinsic(), mult_opr_handler(), ntr_global_type_tbl(), ntr_io_string_constant(), ntr_type_tbl(), parse_cpnt_dcl_stmt(), parse_open_mp_directives(), parse_openad_directives(), parse_operand(), parse_pointer_stmt(), parse_type_dcl_stmt(), parse_type_spec(), plus_opr_handler(), power_opr_handler(), print_type_f(), put_c_str_in_cn(), put_char_const_in_tbl(), put_format_in_tbl(), range_intrinsic(), send_non_standard_aligned_type(), stop_pause_stmt_semantics(), transform_char_sequence_ref(), and uplus_opr_handler().

#define TYP_DP_HIT_ME ( IDX ) type_tbl[IDX].fld.dp_hit_me

Definition at line 4123 of file sytb.m.

Referenced by dump_typ_ntry(), and kind_intrinsic().

#define TYP_FLD ( IDX ) type_tbl[IDX].fld.type_fld

Definition at line 4124 of file sytb.m.

Referenced by adjust_char_value_len(), array_dim_resolution(), assign_new_idxs_after_input(), assignment_stmt_semantics(), attr_semantics(), cast_to_type_idx(), char_bounds_resolution(), char_len_resolution(), check_substring_bounds(), cif_send_attr(), clock_intrinsic(), compare_darg_to_actual_arg(), compress_type_tbl(), concat_opr_handler(), create_constructor_constant(), create_kwd_text(), create_namelist_descriptor(), create_runtime_array_constructor(), create_scalar_type_tbl(), create_strct_tbl(), create_tmp_asg(), decl_semantics(), determine_tmp_size(), dump_typ_ntry(), final_arg_work(), finish_cdir_id(), fold_aggragate_expression(), fold_clen_opr(), folder_driver(), gen_arg_type_descriptor(), gen_auto_length(), gen_bd_entry(), gen_call_type_descriptor(), gen_common_dv_init(), gen_dv_whole_def_init(), gen_forall_tmp_bd_entry(), gen_runtime_substring(), gen_sf_dv_whole_def(), gen_static_dv_whole_def(), gen_whole_substring(), get_char_len(), get_operand_quote(), host_associated_attr_semantics(), init_directive(), init_parse_prog_unit(), interpret_adjustl_intrinsic(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_index_opr(), interpret_unary_intrinsic_opr(), make_new_bd_entries(), merge_parameter(), merge_type(), namelist_static_dv_whole_def(), ntr_io_string_constant(), ntr_ref_in_global_tbl(), parse_cpnt_dcl_stmt(), parse_dir_directives(), parse_id_directive(), parse_length_selector(), parse_open_mp_directives(), parse_openad_directives(), push_data_value(), put_c_str_in_cn(), put_char_const_in_tbl(), put_format_in_tbl(), put_string_in_tmp(), repeat_intrinsic(), reshape_intrinsic(), set_mod_link_tbl_for_typ(), set_shape_for_deferred_funcs(), set_stride_for_first_dim(), sm_unit_in_bits(), srch_for_calls(), stmt_func_call_opr_handler(), stop_pause_stmt_semantics(), stor_bit_size_of(), struct_construct_opr_handler(), substring_opr_handler(), transfer_intrinsic(), transform_char_sequence_ref(), translate_distant_ref2(), trim_intrinsic(), and validate_char_len().

#define TYP_IDX ( IDX ) type_tbl[IDX].fld.type_idx

Definition at line 4125 of file sytb.m.

Referenced by adjust_char_value_len(), allocate_stmt_semantics(), array_dim_resolution(), assign_new_idxs_after_input(), assign_offset(), assign_storage_blk(), assignment_stmt_semantics(), attr_semantics(), broadcast_scalar(), buffer_stmt_semantics(), call_list_semantics(), cast_to_type_idx(), cast_typeless_constant(), char_bounds_resolution(), char_len_resolution(), check_asg_semantics(), check_substring_bounds(), cif_call_site_rec(), cif_named_constant_rec(), cif_send_attr(), clock_intrinsic(), compare_darg_to_actual_arg(), compare_derived_types(), compare_entry_to_func_rslt(), compare_global_derived_type(), compare_global_type_rank(), compress_type_tbl(), concat_opr_handler(), const_init_semantics(), create_constructor_constant(), create_format_tmp(), create_kwd_text(), create_namelist_descriptor(), create_runtime_array_constructor(), create_scalar_type_tbl(), create_strct_tbl(), create_tmp_asg(), cri_ptr_type(), cvrt_exp_to_pdg(), decl_semantics(), default_init_semantics(), determine_struct_tbl_size(), determine_tmp_size(), discombobulate_structure_ref(), dope_vector_setup(), dump_typ_ntry(), equivalence_semantics(), expand_io_list(), fill_in_global_attr_ntry(), fill_in_struct_argchck_const(), final_arg_work(), final_attr_semantics(), final_equivalence_semantics(), finish_cdir_id(), flatten_function_call(), fold_aggragate_expression(), fold_clen_opr(), folder_driver(), gen_arg_type_descriptor(), gen_auto_length(), gen_bias_ref(), gen_call_type_descriptor(), gen_common_dv_init(), gen_default_init_code(), gen_dv_stride_mult(), gen_dv_whole_def(), gen_dv_whole_def_init(), gen_entry_dope_code(), gen_forall_derived_type(), gen_forall_tmp(), gen_init_stmt(), gen_internal_dope_vector(), gen_runtime_substring(), gen_sf_dv_whole_def(), gen_single_automatic_allocate(), gen_static_dv_whole_def(), gen_whole_substring(), get_basic_type(), get_basic_type_str(), get_char_len(), get_operand_quote(), get_type_desc(), global_name_semantics(), host_associated_attr_semantics(), increment_count(), init_directive(), init_parse_prog_unit(), init_whole_array(), interpret_adjustl_intrinsic(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_concat_opr(), interpret_constructor(), interpret_index_opr(), interpret_ref(), interpret_struct_construct_opr(), interpret_unary_intrinsic_opr(), io_ctl_list_semantics(), io_list_semantics(), make_io_type_code(), make_new_bd_entries(), merge_parameter(), merge_type(), namelist_resolution(), namelist_static_dv_whole_def(), ntr_const_tbl(), ntr_global_type_tbl(), ntr_io_string_constant(), ntr_ref_in_global_tbl(), ntr_unshared_const_tbl(), object_semantics(), optimize_reshape(), pack_intrinsic(), parse_cpnt_dcl_stmt(), parse_deref(), parse_dir_directives(), parse_id_directive(), parse_io_control_list(), parse_length_selector(), parse_lhs(), parse_name_dir(), parse_open_mp_directives(), parse_openad_directives(), parse_parameter_stmt(), parse_type_dcl_stmt(), parse_type_spec(), pre_parse_format(), print_attr_name(), print_const_entry(), print_type_f(), process_all_initialized_cpnts(), process_cpnt_inits(), process_data_imp_do_target(), push_data_value(), put_c_str_in_cn(), put_char_const_in_tbl(), put_format_in_tbl(), put_string_in_tmp(), repeat_intrinsic(), reshape_intrinsic(), resolve_all_components(), send_attr_ntry(), send_derived_type(), set_mod_link_tbl_for_cn(), set_mod_link_tbl_for_typ(), set_shape_for_deferred_funcs(), set_stride_for_first_dim(), set_up_pe_offset_attr(), sm_unit_in_bits(), srch_for_calls(), stmt_func_call_opr_handler(), stop_pause_stmt_semantics(), stor_bit_size_of(), struct_construct_opr_handler(), substring_opr_handler(), transfer_intrinsic(), transform_char_sequence_ref(), translate_distant_ref2(), trim_intrinsic(), type_init_semantics(), unpack_intrinsic(), update_components(), validate_char_len(), and verify_interface().

#define TYP_IS_BYTE ( IDX ) type_tbl[IDX].fld.type_is_byte

Definition at line 4126 of file sytb.m.

#define TYP_KIND_CONST ( IDX ) type_tbl[IDX].fld.kind_const

Definition at line 4132 of file sytb.m.

Referenced by dump_typ_ntry(), kind_to_linear_type(), and make_io_type_code().

#define TYP_KIND_DOUBLE ( IDX ) type_tbl[IDX].fld.kind_double

Definition at line 4133 of file sytb.m.

Referenced by dump_typ_ntry(), kind_to_linear_type(), and make_io_type_code().

#define TYP_LAST_USED_IDX Num_Linear_Types + 1 /* 2 extra entries */

Definition at line 306 of file sytb.m.

Referenced by init_parse_prog_unit().

#define TYP_LINEAR ( IDX ) type_tbl[IDX].fld.linear_type

Definition at line 4127 of file sytb.m.

#define TYP_ORIG_LEN_IDX ( IDX ) type_tbl[IDX].fld.bit_len

Definition at line 4128 of file sytb.m.

Referenced by assign_new_idxs_after_input(), char_len_resolution(), check_bd_typ_for_dargs(), compress_type_tbl(), create_runtime_array_constructor(), dump_typ_ntry(), make_new_bd_entries(), set_shape_for_deferred_funcs(), transfer_intrinsic(), and validate_char_len().

#define TYP_PTR_INCREMENT ( IDX ) type_tbl[IDX].fld.bit_len

Definition at line 4129 of file sytb.m.

Referenced by attr_semantics(), cri_ptr_type(), dump_typ_ntry(), get_basic_type(), loc_intrinsic(), ntr_type_tbl(), and send_attr_ntry().

#define TYP_RESOLVED ( IDX ) type_tbl[IDX].fld.resolved

Definition at line 4130 of file sytb.m.

Referenced by attr_semantics(), char_len_resolution(), dump_typ_ntry(), and srch_for_calls().

#define TYP_TYPE ( IDX ) type_tbl[IDX].fld.type

Definition at line 4131 of file sytb.m.

#define TYP_WORK_IDX 0 /* Enter type table work area */

Definition at line 76 of file sytb.m.

Referenced by adjust_char_value_len(), attr_semantics(), char_len_resolution(), clock_intrinsic(), concat_opr_handler(), convert_binary_literal(), convert_const(), convert_hex_literal(), convert_octal_literal(), create_constructor_constant(), create_format_tmp(), create_kwd_text(), create_runtime_array_constructor(), create_struct_argchck_tbl(), cri_ptr_type(), final_arg_work(), final_attr_semantics(), finish_cdir_id(), fold_aggragate_expression(), folder_driver(), gen_arg_type_descriptor(), gen_call_type_descriptor(), gen_forall_derived_type(), gen_static_dv_whole_def(), get_operand_quote(), init_directive(), interpret_adjustl_intrinsic(), interpret_binary_intrinsic_opr(), interpret_binary_opr(), interpret_index_opr(), interpret_reshape_intrinsic(), interpret_transfer_intrinsic(), interpret_unary_intrinsic_opr(), kind_to_linear_type(), lbound_intrinsic(), loc_intrinsic(), make_new_bd_entries(), merge_parameter(), namelist_static_dv_whole_def(), ntr_derived_type_tbl(), ntr_global_type_tbl(), ntr_io_string_constant(), ntr_ref_in_global_tbl(), ntr_type_tbl(), parse_cpnt_dcl_stmt(), parse_dir_directives(), parse_length_selector(), parse_open_mp_directives(), parse_openad_directives(), parse_operand(), parse_pointer_stmt(), parse_type_dcl_stmt(), parse_type_spec(), pre_parse_format(), push_data_value(), put_c_str_in_cn(), put_char_const_in_tbl(), put_format_in_tbl(), put_string_in_tmp(), reshape_intrinsic(), send_attr_ntry(), set_sb_first_attr_idx(), set_up_pe_offset_attr(), shape_intrinsic(), srch_for_calls(), stop_pause_stmt_semantics(), struct_construct_opr_handler(), substring_opr_handler(), transfer_intrinsic(), transform_char_sequence_ref(), ubound_intrinsic(), and validate_char_len().

#define WORD_LEN ( ID_LEN ) ((ID_LEN) + sizeof(long)) / sizeof(long)

Defines

Define Documentation