Home
last modified time | relevance | path

Searched refs:DTYG (Results 1 – 25 of 36) sorted by relevance

12

/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/
H A Dlowerexp.c70 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 Dsemfin.c433 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 Dastout.c570 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 Dsemutil.c226 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 Ddinit.c993 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 Dfunc.c2288 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 Dtransfrm.c2583 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 Dsemfunc.c5750 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 Ddpm_out.c299 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 Dmodule.c1536 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 Dsemantio.c1098 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 Dlowerilm.c1593 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 Dsemgnr.c1208 if (DTYG(dtype) == TY_DERIVED) { in is_intrinsic_opr()
1225 if (DTYG(dtype) == TY_DERIVED) { in is_intrinsic_opr()
H A Dsemsmp.c7033 } 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 Ddtypeutl.c313 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 Dll_ftn.cpp69 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 Dupper.cpp4636 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 Dexp_rte.cpp729 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 Dsemant.h726 (ilm_opcode[opc][(DTY(dt) == TY_ARRAY ? TRUE : FALSE)][DTYG(dt)])
H A Ddinit.cpp852 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 Ddtypeutl.cpp97 switch (DTYG(dtype)) { in is_container_dtype()
H A Dllassem.cpp5734 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 Dsymfun.h221 #undef DTYG
222 inline TY_KIND DTYG(DTYPE dtype) { in DTYG() function
/dports/math/libpgmath/flang-d07daf3/tools/flang2/utils/symtab/
H A Dsymtab.in.h48 #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 Dsymtab.in.h70 #define DTYG(dt) (DTY(dt) == TY_ARRAY ? DTY(DTY(dt+1)) : DTY(dt)) macro

12