/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
H A D | lowerexp.c | 70 switch (DTYG(dtype)) { in conv_bint_ilm() 167 switch (DTYG(dtype)) { in conv_sint_ilm() 266 switch (DTYG(dtype)) { in conv_int_ilm() 359 switch (DTYG(dtype)) { in conv_int8_ilm() 457 switch (DTYG(dtype)) { in conv_word_ilm() 522 switch (DTYG(dtype)) { in conv_dword_ilm() 590 switch (DTYG(dtype)) { in conv_blog_ilm() 652 switch (DTYG(dtype)) { in conv_slog_ilm() 715 switch (DTYG(dtype)) { in conv_log_ilm() 1180 if (DTYG(fromdtype) == DTYG(todtype)) in lower_conv_ilm() [all …]
|
H A D | semfin.c | 433 if (DTYG(ent_dtype) != DTYG(dtype)) { in semfin() 879 dty = DTYG(dtype); in expand_common_pointers() 972 dty = DTYG(dtype); in reorder_common_pointers() 1801 if ((DTYG(DTYPEG(sptr)) == TY_CHAR && DTYG(DTYPEG(sptr2)) != TY_CHAR) || in equivalence() 1802 (DTYG(DTYPEG(sptr2)) == TY_CHAR && DTYG(DTYPEG(sptr)) != TY_CHAR) || in equivalence() 1803 (DTYG(DTYPEG(sptr)) == TY_NCHAR || DTYG(DTYPEG(sptr2)) == TY_NCHAR)) in equivalence() 1808 if (DTYG(DTYPEG(sptr)) == TY_CHAR && DTYG(DTYPEG(sptr2)) != TY_CHAR) in equivalence() 1810 else if (DTYG(DTYPEG(sptr2)) == TY_CHAR && DTYG(DTYPEG(sptr)) != TY_CHAR) in equivalence() 1812 else if (DTYG(DTYPEG(sptr)) == TY_NCHAR || DTYG(DTYPEG(sptr2)) == TY_NCHAR) in equivalence() 1815 if (DTYG(DTYPEG(sptr)) == TY_NCHAR && DTYG(DTYPEG(sptr2)) != TY_NCHAR) in equivalence() [all …]
|
H A D | astout.c | 570 if (DTYG(dtype) == TY_DERIVED) in print_ast() 1132 if (DTYG(DTYPEG(sym)) != TY_CHAR) in print_ast() 1190 if (DTYG(DTYPEG(sym)) != TY_CHAR) in print_ast() 1244 if (DTYG(DTYPEG(sym)) != TY_CHAR) in print_ast() 1773 (NO_DERIVEDPTR && DTYG(DTYPEG(sym)) == TY_DERIVED)) { in print_ast() 1787 i = DTYG(DTYPEG(sym)); in print_ast() 3223 (NO_CHARPTR && DTYG(DTYPEG(sym)) == TY_CHAR) || in print_refsym() 3224 (NO_DERIVEDPTR && DTYG(DTYPEG(sym)) == TY_DERIVED)) { in print_refsym() 3392 if (DTYG(dtype) == TY_DERIVED) { in pr_arr_name() 3603 t = DTYG(t); in gen_allocate() [all …]
|
H A D | semutil.c | 226 if (warnflg && (DTYG(oldtyp) != DTYG(dtype)) && DTY(dtype) != TY_NUMERIC && in chktyp() 227 (!(TY_ISINT(DTYG(oldtyp)) || TY_ISLOG(DTYG(oldtyp))) || in chktyp() 228 !(TY_ISINT(DTYG(dtype)) || TY_ISLOG(DTYG(dtype))))) in chktyp() 340 from = DTYG(from); in casttyp() 425 to = DTYG(newtyp); in cngtyp2() 430 from = DTYG(oldtyp); in cngtyp2() 838 to = DTYG(newtyp); in cngshape() 2063 if (DTYG(dtype) == TY_CHAR || DTYG(dtype) == TY_NCHAR) { in mkvarref() 3322 } else if (DTYG(dtype) == TY_STRUCT || DTYG(dtype) == TY_DERIVED) { in assign() 3330 } else if (DTYG(dtype) != DTYG(SST_DTYPEG(stktop))) { in assign() [all …]
|
H A D | dinit.c | 993 if (DTYG(dtypev) == TY_HOLL) { in dinit_val() 1014 } else if (DTYG(dtypev) == TY_CHAR || DTYG(dtypev) == TY_NCHAR || in dinit_val() 1015 DTYG(dtypev) != DTY(dtype)) { in dinit_val() 1037 if (DTYG(dtypev) != DTY(dtype)) { in dinit_val() 1064 if (DTYG(dtypev) != DTY(dtype)) in dinit_val()
|
H A D | func.c | 2288 if (DTYG(dtype) == TY_CHAR) { in rewrite_func_ast() 2319 if (DTYG(dtype) == TY_CHAR) { in rewrite_func_ast() 4612 if (DTYG(dtype) == TY_CHAR) in transform_associated() 4649 if (DTYG(dtype) == TY_CHAR) in transform_associated() 4654 if (DTYG(dtype) == TY_CHAR) in transform_associated() 5604 if (TY_ISLOG(DTYG(A_DTYPEG(ast)))) { in inline_small_matmul() 5770 if (DTYG(dtype) == TY_CHAR || DTYG(dtype) == TY_NCHAR) in inline_reduction_f90() 6668 switch (DTYG(A_DTYPEG(func_ast))) { in matmul() 7220 if (DTYG(dtype) == TY_CHAR) { in reshape() 7234 if (DTYG(dtype) == TY_CHAR) in reshape() [all …]
|
H A D | transfrm.c | 2583 if ((DTYG(dtype) != TY_NCHAR) && (DTYG(dtype) != TY_STRUCT) && in is_bad_dtype() 2584 (DTYG(dtype) != TY_UNION)) in is_bad_dtype() 3660 astitem = mk_subscr(astdest, indx, ndim, DTYG(A_DTYPEG(astdestmem))); in build_allocation_item() 4080 if (A_TYPEG(astdest) == A_SUBSCR && DTYG(A_DTYPEG(astdest)) != TY_DERIVED) { in rewrite_allocatable_assignment() 4372 DTYG(dtypedest) == TY_DERIVED && !POINTERG(sptrdest) && !XBIT(54, 0x4) && in rewrite_allocatable_assignment() 4528 if (DTYG(dtypedest) == TY_DERIVED && !XBIT(54, 0x4) && in rewrite_allocatable_assignment() 4542 if (DTYG(dtypedest) == TY_DERIVED) { in rewrite_allocatable_assignment() 4571 if (DTYG(dtypedest) == TY_DERIVED) { in rewrite_allocatable_assignment() 4633 if (DTYG(DTYPEG(sptrmem)) == TY_DERIVED && !XBIT(54, 0x4) && in rewrite_allocatable_assignment() 4658 } else if (DTYG(DTYPEG(sptrmem)) == TY_DERIVED && !XBIT(54, 0x4) && in rewrite_allocatable_assignment() [all …]
|
H A D | semfunc.c | 5750 if (DTYG(dtyper) == DTYG(dtype2)) { in ref_pd() 5941 (DTYG(dtype1) == TY_CHAR || DTYG(dtype1) == TY_NCHAR))) { in ref_pd() 5949 DTYG(dtype1) != in ref_pd() 6066 (DTYG(dtype1) == TY_CHAR || DTYG(dtype1) == TY_NCHAR))) { in ref_pd() 6128 (DTYG(dtype1) == TY_CHAR || DTYG(dtype1) == TY_NCHAR))) { in ref_pd() 6141 (DTYG(dtype1) == TY_CHAR || DTYG(dtype1) == TY_NCHAR))) || in ref_pd() 7585 if (DTYG(dtyper) == TY_CHAR || DTYG(dtyper) == TY_NCHAR) { in ref_pd() 7586 if (DTYG(dtyper) != DTYG(dtype1)) { in ref_pd() 7935 if (DTYG(DTYPEG(i)) == TY_CHAR || DTYG(DTYPEG(i)) == TY_NCHAR) in ref_pd() 8273 if (DTYG(dtype1) != TY_CHAR && DTYG(dtype1) != TY_NCHAR) { in ref_pd() [all …]
|
H A D | dpm_out.c | 299 if (DTYG(DTYPEG(array)) != TY_CHAR) { in extent() 1542 dty = DTYG(DTYPEG(sptr)); in transform_wrapup() 1831 (NO_CHARPTR && DTYG(DTYPEG(sptr)) == TY_CHAR) || in emit_alnd_secd() 1832 (NO_DERIVEDPTR && DTYG(DTYPEG(sptr)) == TY_DERIVED)) in emit_alnd_secd() 1864 (NO_CHARPTR && DTYG(DTYPEG(sptr)) == TY_CHAR) || in emit_alnd_secd() 1865 (NO_DERIVEDPTR && DTYG(DTYPEG(sptr)) == TY_DERIVED)) in emit_alnd_secd() 2973 if (NO_PTR || (NO_CHARPTR && DTYG(DTYPEG(arg)) == TY_CHAR) || in needs_redim() 2974 (NO_DERIVEDPTR && DTYG(DTYPEG(arg)) == TY_DERIVED)) in needs_redim() 3148 (NO_DERIVEDPTR && DTYG(DTYPEG(arg)) == TY_DERIVED)) { in emit_kopy_in() 3220 dty = DTYG(DTYPEG(arg)); in emit_kopy_in() [all …]
|
H A D | module.c | 1536 dty = DTYG(DTYPEG(sptr)); in check_sc() 1574 dty = DTYG(DTYPEG(sptr)); in check_sc() 1832 dty = DTYG(dtype); in fix_module_common() 1850 dty = DTYG(dtype); in fix_module_common() 2172 dty = DTYG(dtype); in make_rte_descriptor()
|
H A D | semantio.c | 1098 if (DTYG(udt) == TY_DERIVED) { in semantio() 1247 if (!((SST_IDG(stkptr) == S_EXPR && DTYG(dtype) == TY_DERIVED))) in semantio() 2419 ast1 = mk_cval((INT)ty_to_lib[DTYG(A_DTYPEG(ast))], DT_INT); in semantio() 2787 ast1 = mk_cval((INT)ty_to_lib[DTYG(A_DTYPEG(ast))], DT_INT); in semantio() 2907 if (DTYG(SST_DTYPEG(RHS(1))) == TY_DERIVED && in semantio() 3167 if (sptr1 && DTYG(dtype) == TY_DERIVED) { in semantio() 4568 else if (DTYG(dtype) == TY_CHAR && in chk_unitid() 4667 if (DTYG(dtype) == TY_CHAR) { /* standard case */ in chk_fmtid() 5426 if (DTYG(dtype) != TY_DERIVED) { in add_iolptrs()
|
H A D | lowerilm.c | 1593 if (DTYG(dtype) == DT_INT8) in set_mp_loop_var() 3743 if (DTYG(dtype) == TY_STRUCT || DTYG(dtype) == TY_DERIVED) { in lower_stmt() 3766 switch (DTYG(dtype)) { in lower_stmt() 4011 switch (DTYG(DTYPEG(sym))) { in lower_stmt() 4216 switch (DTYG(DTYPEG(sym))) { in lower_stmt() 4300 switch (DTYG(DTYPEG(sym))) { in lower_stmt() 4584 switch (DTYG(DTYPEG(fval))) { in lower_stmt() 5778 switch (DTYG(A_NDTYPEG(ast))) { in lower_base_address()
|
H A D | semgnr.c | 1208 if (DTYG(dtype) == TY_DERIVED) { in is_intrinsic_opr() 1225 if (DTYG(dtype) == TY_DERIVED) { in is_intrinsic_opr()
|
H A D | semsmp.c | 7033 } else if (DTYG(dtype) == TY_STRUCT || DTYG(dtype) == TY_DERIVED || in do_openmp_atomics() 9704 TY_KIND dty = DTYG(dtype); in needCharLen() 9710 if (DTYG(DTYG(dtype)) == TY_CHAR) { in needCharLen() 9712 } else if (DTYG(DTYG(dtype)) == TY_NCHAR) { in needCharLen()
|
H A D | dtypeutl.c | 313 switch (DTYG(dtype)) { in is_container_dtype() 474 if (DTYG(DTYPEG(mem_sptr)) == TY_DERIVED) { in no_data_components_recursive() 1819 DTYG(DTYPEG(sptr)) == in is_layout_desc()
|
/dports/math/libpgmath/flang-d07daf3/tools/flang2/flang2exe/ |
H A D | ll_ftn.cpp | 69 TY_KIND dty = DTYG(dtype); in need_charlen() 356 nchar = (DTYG(param_dtype) == TY_NCHAR || in ll_process_routine_parameters() 358 if (DTYG(param_dtype) == TY_CHAR || in ll_process_routine_parameters() 430 (DTYG(param_dtype) == TY_CHAR || DTYG(param_dtype) == TY_NCHAR)) { in ll_process_routine_parameters() 1190 if (DTYG(param_dtype) == TY_CHAR || DTYG(param_dtype) == TY_NCHAR || in print_entry_subroutine() 1241 if (DTYG(DTYPEG(sym)) == TY_CHAR || DTYG(DTYPEG(sym)) == TY_NCHAR) { in print_entry_subroutine()
|
H A D | upper.cpp | 4636 if (DTYG(dtypev) == TY_HOLL) { in read_init() 4639 } else if (DTYG(dtypev) == TY_CHAR || DTYG(dtypev) == TY_NCHAR || in read_init() 4640 (totype > 0 && DTYG(dtypev) != DTY(totype))) { in read_init() 4715 if (DTYG(dtypev) == TY_HOLL) { in read_init() 4718 } else if (DTYG(dtypev) == TY_CHAR || DTYG(dtypev) == TY_NCHAR || in read_init() 4719 (totype > 0 && DTYG(dtypev) != DTY(totype))) { in read_init() 4764 if (DTYG(dt) != TY_STRUCT) { in read_init() 4815 if (DTYG(dtypev) == TY_CHAR || DTYG(dtypev) == TY_NCHAR || in read_init() 4816 (totype > 0 && DTYG(dtypev) != DTY(totype))) { in read_init()
|
H A D | exp_rte.cpp | 729 if ((DTYG(DTYPEG(osym)) == TY_CHAR || DTYG(DTYPEG(osym)) == TY_NCHAR) && in pp_entries() 1338 if (DTYG(argdtype) == TY_CHAR || DTYG(argdtype) == TY_NCHAR) in func_has_char_args() 1431 (DTYG(argdtype) == TY_CHAR || DTYG(argdtype) == TY_NCHAR) in process_end_of_list() 1824 if ((DTYG(argdtype) == TY_CHAR || DTYG(argdtype) == TY_NCHAR) && in pp_params_mixedstrlen()
|
H A D | semant.h | 726 (ilm_opcode[opc][(DTY(dt) == TY_ARRAY ? TRUE : FALSE)][DTYG(dt)])
|
H A D | dinit.cpp | 852 if (DTYG(dtypev) == TY_HOLL) { in dinit_val() 855 } else if ((DTYG(dtypev) == TY_CHAR || DTYG(dtypev) == TY_NCHAR || in dinit_val() 856 DTYG(dtypev) != DTY(dtype)) && in dinit_val() 2763 switch (DTYG(dtype)) { in _huge() 2907 switch (DTYG(dtype)) { in mk_smallest_val()
|
H A D | dtypeutl.cpp | 97 switch (DTYG(dtype)) { in is_container_dtype()
|
H A D | llassem.cpp | 5734 if (DTYG(dtype) == TY_CHAR || DTYG(dtype) == TY_NCHAR || in _fixup_llvm_uplevel_symbol() 5735 (DTYG(dtype) == TY_PTR && (ThisIsAnAccessBug(dtype) == TY_CHAR)) || in _fixup_llvm_uplevel_symbol() 5736 (DTYG(dtype) == TY_PTR && (ThisIsAnAccessBug(dtype) == TY_NCHAR))) { in _fixup_llvm_uplevel_symbol()
|
/dports/math/libpgmath/flang-d07daf3/tools/shared/ |
H A D | symfun.h | 221 #undef DTYG 222 inline TY_KIND DTYG(DTYPE dtype) { in DTYG() function
|
/dports/math/libpgmath/flang-d07daf3/tools/flang2/utils/symtab/ |
H A D | symtab.in.h | 48 #define DTYG(dt) (DTY(dt) == TY_ARRAY ? DTY(DTY(dt+1)) : DTY(dt)) macro
|
/dports/math/libpgmath/flang-d07daf3/tools/flang1/utils/symtab/ |
H A D | symtab.in.h | 70 #define DTYG(dt) (DTY(dt) == TY_ARRAY ? DTY(DTY(dt+1)) : DTY(dt)) macro
|