/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | reshape.c | 105 if (resd == NULL || F90_TAG_G(resd) != __DESC) in ENTFTN() 107 if (srcd == NULL || F90_TAG_G(srcd) != __DESC) in ENTFTN() 109 if (shpd == NULL || F90_TAG_G(shpd) != __DESC) in ENTFTN() 111 if (padd == NULL || F90_TAG_G(padd) != __DESC && F90_TAG_G(padd) != __NONE) in ENTFTN() 113 if (ordd == NULL || F90_TAG_G(ordd) != __DESC && F90_TAG_G(ordd) != __NONE) in ENTFTN() 120 if (F90_TAG_G(padd) == __DESC && (F90_KIND_G(padd) != F90_KIND_G(srcd) || in ENTFTN() 142 if (F90_TAG_G(ordd) == __DESC) { in ENTFTN() 174 if (F90_TAG_G(padd) == __DESC && F90_GSIZE_G(padd) > 0) { in ENTFTN()
|
H A D | dist.c | 2481 if (F90_TAG_G(d) != __DESC) in ENTFTN() 2509 if (F90_TAG_G(d) != __DESC) in ENTFTN() 2550 if (F90_TAG_G(pd) != __DESC) in ENTFTN() 2560 if (F90_TAG_G(pd) != __DESC) in ENTFTN() 2572 if (F90_TAG_G(pd) != __DESC) in ENTFTN() 2582 if (F90_TAG_G(pd) != __DESC) in ENTFTN() 2595 if (F90_TAG_G(pd) != __DESC) in ENTFTN() 2606 if (F90_TAG_G(pd) != __DESC) in ENTFTN() 2617 if (F90_TAG_G(pd) != __DESC) in ENTFTN() 2628 if (F90_TAG_G(pd) != __DESC) in ENTFTN() [all …]
|
H A D | ptr.c | 64 else if (F90_TAG_G(pd) == __DESC) { in ENTFTN() 81 else if (F90_TAG_G(pd) == __DESC) { in ENTFTN() 105 else if (F90_TAG_G(pd) == __DESC) { in ENTFTN() 127 if (F90_TAG_G(td) == __DESC) { in I8() 242 if (F90_TAG_G(td) == __DESC) { in I8() 323 F90_TAG_P(pd, __DESC); in ENTFTN() 768 if (F90_TAG_G(td) == __DESC) { in I8() 839 F90_TAG_P(nd, __DESC); in ENTF90() 903 F90_TAG_P(pd, __DESC); in ENTFTN() 1621 if (F90_TAG_G(dd) == __DESC) { in ENTFTN() [all …]
|
H A D | pack.c | 62 if (result == NULL || F90_TAG_G(result) != __DESC) in ENTFTN() 65 if (vector == NULL || F90_TAG_G(vector) != __DESC) in ENTFTN() 86 } else if (F90_TAG_G(mask) == __DESC) { in ENTFTN() 210 if (result == NULL || F90_TAG_G(result) != __DESC) in ENTFTN() 229 } else if (F90_TAG_G(mask) == __DESC) { in ENTFTN() 334 if (result == NULL || F90_TAG_G(result) != __DESC) in ENTFTN() 345 if (mask == NULL || F90_TAG_G(mask) != __DESC) in ENTFTN() 355 } else if (F90_TAG_G(field) == __DESC) { in ENTFTN()
|
H A D | aligned.c | 39 if (s == t || F90_TAG_G(s) != __DESC || F90_TAG_G(t) != __DESC) in I8()
|
H A D | util.c | 68 if (F90_TAG_G(d) == __DESC) { in I8() 99 if (F90_TAG_G(d) == __DESC) { in I8() 134 if (F90_TAG_G(d) == __DESC) { in I8() 165 if (F90_TAG_G(d) == __DESC) { in I8()
|
H A D | type.c | 689 rank = (sd->tag == __DESC) ? F90_RANK_G(sd) : 0; in process_final_procedures() 957 if (fd->tag == __DESC && fd->rank > 0) { in sourced_alloc_and_assign() 970 if (fd->tag == __DESC && fd->rank > 0) { in sourced_alloc_and_assign() 1076 if (bd && bd->tag == __DESC && bd->rank > 0) { in get_source_and_dest_sizes() 1099 if (ad && ad->tag == __DESC && ad->rank > 0) { in get_source_and_dest_sizes() 1102 } else if (ad && ad->tag == __DESC && dest_td && in get_source_and_dest_sizes() 1164 (F90_TAG_G(ad) == __DESC || flag == 2)) { in ENTF90() 1293 case __DESC: in I8() 1830 if (sd && F90_TAG_G(sd) == __DESC) { in ENTF90() 1840 dd->tag = __DESC; in ENTF90() [all …]
|
H A D | query.c | 411 if (F90_TAG_G(alignee) == __DESC) { in ENTFTN() 515 if (F90_TAG_G(array_s) == __DESC) { in ENTFTN() 599 if (F90_TAG_G(array_s) == __DESC) { in ENTFTN() 736 if (F90_TAG_G(array_s) == __DESC) { in ENTFTN() 947 if (F90_TAG_G(array_s) != __DESC) in ENTFTN() 979 if (F90_TAG_G(array_s) != __DESC) in ENTFTN() 1018 if (F90_TAG_G(array_s) != __DESC) in ENTFTN() 1182 if (F90_TAG_G(array_s) != __DESC) in ENTFTN() 1301 if (F90_TAG_G(array_s) != __DESC) in ENTFTN() 1371 if (F90_TAG_G(array_s) != __DESC) in ENTFTN() [all …]
|
H A D | copy.c | 698 if (F90_TAG_G(dc) != __DESC) in I8() 700 if (F90_TAG_G(sc) != __DESC) in I8() 977 if (rs == NULL || F90_TAG_G(rs) != __DESC) in ENTFTN() 980 if (ss == NULL || F90_TAG_G(ss) != __DESC) in ENTFTN() 1006 if (rs == NULL || F90_TAG_G(rs) != __DESC) in ENTFTN() 1009 if (ss == NULL || F90_TAG_G(ss) != __DESC) in ENTFTN() 1031 if (rs == NULL || F90_TAG_G(rs) != __DESC) in ENTFTN() 1034 if (ss == NULL || F90_TAG_G(ss) != __DESC) in ENTFTN() 1056 if (rs == NULL || F90_TAG_G(rs) != __DESC) in ENTFTN() 1059 if (ss == NULL || F90_TAG_G(ss) != __DESC) in ENTFTN() [all …]
|
H A D | transfer.c | 61 result_scalar = F90_TAG_G(result) != __DESC; in ENTFTN() 62 source_scalar = F90_TAG_G(source) != __DESC; in ENTFTN()
|
H A D | dynam.c | 115 if (ad == NULL || F90_TAG_G(ad) != __DESC) in ENTFTN() 117 if (td == NULL || F90_TAG_G(td) != __DESC) in ENTFTN() 229 if (ud == NULL || F90_TAG_G(ud) != __DESC) in ENTFTN() 392 if (dd == NULL || F90_TAG_G(dd) != __DESC) in ENTFTN() 403 if (ud == NULL || F90_TAG_G(ud) != __DESC) in ENTFTN()
|
H A D | red_maxloc.c | 134 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in maxlocs_common() 186 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in maxloc_common() 239 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in kmaxlocs_common() 292 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in kmaxloc_common()
|
H A D | red_findloc.c | 138 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN() 173 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN() 210 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN() 246 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN()
|
H A D | red_minloc.c | 134 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in minlocs_common() 185 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in minloc_common() 241 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in kminlocs_common() 290 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in kminloc_common()
|
H A D | red_all.c | 87 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN() 112 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN()
|
H A D | red_any.c | 87 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN() 112 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN()
|
H A D | red_count.c | 125 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN() 152 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN()
|
H A D | red_maxval.c | 86 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN() 113 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN()
|
H A D | red_minval.c | 86 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN() 113 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN()
|
H A D | red.c | 186 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in I8() 249 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in I8() 474 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in I8() 697 if (as == NULL || F90_TAG_G(as) != __DESC) in I8() 707 if (F90_TAG_G(rs0) == __DESC) { in I8() 830 z->mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in I8() 889 if (as == NULL || F90_TAG_G(as) != __DESC) in I8() 899 if (F90_TAG_G(rs0) == __DESC) { in I8() 1080 if (as == NULL || F90_TAG_G(as) != __DESC) in I8() 1090 if (F90_TAG_G(rs0) == __DESC) { in I8() [all …]
|
H A D | rdst.c | 71 if (F90_TAG_G(dd) != __DESC) in I8() 378 } else if (F90_TAG_G(ad) == __DESC) { in ENTFTN() 468 if (F90_TAG_G(ad) != __DESC) { in ENTFTN() 505 else if (F90_TAG_G(ad) != __DESC) in ENTFTN() 555 if (F90_TAG_G(ad) != __DESC) { in ENTFTN() 817 if (dd == NULL || F90_TAG_G(dd) != __DESC) in I8() 1025 if (td == NULL || F90_TAG_G(td) != __DESC) in ENTFTN() 1032 if (tu == NULL || F90_TAG_G(tu) != __DESC) in ENTFTN() 1629 if (td == NULL || F90_TAG_G(td) != __DESC) in ENTFTN() 1675 if (d == NULL || F90_TAG_G(d) != __DESC) in ENTFTN() [all …]
|
H A D | dbug.c | 165 } else if (F90_TAG_G(d) != __DESC) { in I8() 377 if (F90_TAG_G(d) != __POLY && F90_TAG_G(d) != __DESC) { in ENTF90COMN() 389 if (F90_TAG_G(d) != __DESC) { in ENTF90COMN() 434 } else if (F90_TAG_G(d) != __DESC) { in I8()
|
H A D | red_sum.c | 153 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN() 177 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN()
|
H A D | scatter.c | 605 if (F90_TAG_G(md) == __DESC) { in I8() 660 if (F90_TAG_G(xd) != __DESC) in I8() 863 if (F90_TAG_G(md) == __DESC) in I8() 873 if (F90_TAG_G(md) == __DESC) in I8() 958 if (F90_TAG_G(md) == __DESC) in I8() 1003 if (F90_TAG_G(md) == __DESC) in I8()
|
H A D | mget.c | 91 if (F90_TAG_G(as) != __DESC) in ENTFTN()
|