Home
last modified time | relevance | path

Searched refs:__DESC (Results 1 – 25 of 39) sorted by relevance

12

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A Dreshape.c105 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 Ddist.c2481 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 Dptr.c64 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 Dpack.c62 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 Daligned.c39 if (s == t || F90_TAG_G(s) != __DESC || F90_TAG_G(t) != __DESC) in I8()
H A Dutil.c68 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 Dtype.c689 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 Dquery.c411 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 Dcopy.c698 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 Dtransfer.c61 result_scalar = F90_TAG_G(result) != __DESC; in ENTFTN()
62 source_scalar = F90_TAG_G(source) != __DESC; in ENTFTN()
H A Ddynam.c115 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 Dred_maxloc.c134 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 Dred_findloc.c138 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 Dred_minloc.c134 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 Dred_all.c87 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 Dred_any.c87 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 Dred_count.c125 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 Dred_maxval.c86 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 Dred_minval.c86 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 Dred.c186 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 Drdst.c71 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 Ddbug.c165 } 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 Dred_sum.c153 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 Dscatter.c605 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 Dmget.c91 if (F90_TAG_G(as) != __DESC) in ENTFTN()

12