| /dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
| H A D | miscsup_com.c | 963 if (!ISPRESENT(lb)) in ENTF90()
2572 if (!ISPRESENT(lwb) || !ISPRESENT(upb) || !ISPRESENT(stride)) in ENTF90()
2591 if (!ISPRESENT(lwb) || !ISPRESENT(upb) || !ISPRESENT(stride)) in ENTF90()
2627 if (!ISPRESENT(lwb) || !ISPRESENT(upb) || !ISPRESENT(stride)) in ENTF90()
2646 if (!ISPRESENT(lwb) || !ISPRESENT(upb) || !ISPRESENT(stride)) in ENTF90()
2684 if (!ISPRESENT(lwb) || !ISPRESENT(upb) || !ISPRESENT(stride)) in ENTF90()
2709 if (!ISPRESENT(lwb) || !ISPRESENT(upb) || !ISPRESENT(stride)) in ENTF90()
2734 if (!ISPRESENT(lwb) || !ISPRESENT(upb) || !ISPRESENT(stride)) in ENTF90()
2759 if (!ISPRESENT(lwb) || !ISPRESENT(upb) || !ISPRESENT(stride)) in ENTF90()
2784 if (!ISPRESENT(lwb) || !ISPRESENT(upb) || !ISPRESENT(stride)) in ENTF90()
[all …]
|
| H A D | query.c | 198 if (ISPRESENT(lb)) { in ENTFTN()
206 if (ISPRESENT(ub)) { in ENTFTN()
333 if (ISPRESENT(plb)) { in ENTFTN()
340 if (ISPRESENT(pub)) { in ENTFTN()
428 if (ISPRESENT(lb)) { in ENTFTN()
435 if (ISPRESENT(ub)) { in ENTFTN()
524 if (ISPRESENT(lb)) { in ENTFTN()
532 if (ISPRESENT(ub)) { in ENTFTN()
757 if (ISPRESENT(lb)) { in ENTFTN()
764 if (ISPRESENT(ub)) { in ENTFTN()
[all …]
|
| H A D | allo.c | 180 if (ISPRESENT(offset)) { in I8()
210 if (ISPRESENT(pointer)) in I8()
290 if (!ISPRESENT(stat)) in I8()
294 if (!ISPRESENT(offset)) in I8()
390 if (!ISPRESENT(stat)) in I8()
394 if (!ISPRESENT(offset)) in I8()
396 if (!ISPRESENT(errmsg)) in I8()
540 if (!ISPRESENT(stat)) in I8()
1510 if (!ISPRESENT(stat)) in I8()
1512 if (!ISPRESENT(area)) in I8()
[all …]
|
| H A D | inquire.c | 717 if (ISPRESENT(exist)) { in ENTF90IO()
732 if (ISPRESENT(named)) { in ENTF90IO()
762 if (ISPRESENT(recl)) { in ENTF90IO()
1121 if (ISPRESENT(recl)) { in ENTF90IO()
1284 if (ISPRESENT(number)) in ENTCRF90IO()
1286 if (ISPRESENT(recl)) in ENTCRF90IO()
1856 if (ISPRESENT(id)) { in ENTF90IO()
1996 if (ISPRESENT(id)) { in ENTF90IO()
2002 if (ISPRESENT(pos)) { in ENTF90IO()
2503 if (ISPRESENT(id)) { in ENTF90IO()
[all …]
|
| H A D | getarg.c | 124 if (ISPRESENT(length)) in ENTF90()
126 if (ISPRESENT(status)) { in ENTF90()
197 if (ISPRESENT(length)) in ENTF90()
199 if (ISPRESENT(status)) { in ENTF90()
232 if (ISPRESENT(trim_name)) { in ENTF90()
266 if (ISPRESENT(length)) in ENTF90()
268 if (ISPRESENT(status)) { in ENTF90()
|
| H A D | copy.c | 971 if (!ISPRESENT(rb)) in ENTFTN()
974 if (!ISPRESENT(sb)) in ENTFTN()
1000 if (!ISPRESENT(rb)) in ENTFTN()
1003 if (!ISPRESENT(sb)) in ENTFTN()
1025 if (!ISPRESENT(rb)) in ENTFTN()
1028 if (!ISPRESENT(sb)) in ENTFTN()
1050 if (!ISPRESENT(rb)) in ENTFTN()
1053 if (!ISPRESENT(sb)) in ENTFTN()
1082 if (!ISPRESENT(temp)) in ENTFTN()
|
| H A D | ftnexit.c | 32 __fort_exit(ISPRESENT(exit_status) ? *exit_status : 0); in ENTF90()
37 __fort_exit(ISPRESENT(exit_status) ? *exit_status : 0); in ENTCRF90()
|
| H A D | ptr.c | 178 } else if (!ISPRESENT(tb) || F90_TAG_G(td) == __NONE) { in ENTFTN()
302 } else if (!ISPRESENT(tb) || F90_TAG_G(td) == __NONE) { in ENTFTN()
420 } else if (!ISPRESENT(tb) || F90_TAG_G(td) == __NONE) { in ENTFTN()
495 } else if (!ISPRESENT(tb) || F90_TAG_G(td) == __NONE) { in ENTFTN()
633 if (!ISPRESENT(ab)) { in I8()
883 } else if (!ISPRESENT(tb) || F90_TAG_G(td) == __NONE) { in ENTFTN()
1045 } else if (!ISPRESENT(tb) || F90_TAG_G(td) == __NONE) { in ENTFTN()
1178 } else if (!ISPRESENT(tb) || F90_TAG_G(td) == __NONE) { in ENTFTN()
1615 if (!ISPRESENT(ab)) in ENTFTN()
1618 if (!ISPRESENT(db)) in ENTFTN()
[all …]
|
| H A D | olap.c | 788 if (!ISPRESENT(ab)) in ENTFTN()
814 if (!ISPRESENT(ab)) in ENTFTN()
841 if (!ISPRESENT(ab)) in ENTFTN()
858 if (!ISPRESENT(boundary)) in ENTFTN()
870 if (!ISPRESENT(ab)) in ENTFTN()
|
| H A D | red.c | 193 } else if (!ISPRESENT(mb) || I8(__fort_fetch_log)(mb, ms)) in I8()
256 } else if (!ISPRESENT(mb) || I8(__fort_fetch_log)(mb, ms)) in I8()
481 } else if (!ISPRESENT(mb) || I8(__fort_fetch_log)(mb, ms)) in I8()
837 } else if (!ISPRESENT(mb) || I8(__fort_fetch_log)(mb, ms)) in I8()
1029 } else if (!ISPRESENT(mb) || I8(__fort_fetch_log)(mb, ms)) in I8()
1220 } else if (!ISPRESENT(mb) || I8(__fort_fetch_log)(mb, ms)) in I8()
|
| H A D | fmtread.c | 299 if (ISPRESENT(fmt)) { in fr_init()
364 if (ISPRESENT(size)) { in fr_init()
435 if (ISPRESENT(size)) { in ENTF90IO()
621 if (ISPRESENT(size)) { in ENTCRF90IO()
738 if (ISPRESENT(size)) { in ENTF90IO()
854 if (ISPRESENT(size)) { in ENTCRF90IO()
963 if (ISPRESENT(fmt)) { in fr_intern_init()
|
| H A D | rdst.c | 365 if (!ISPRESENT(ab)) { in ENTFTN()
549 pointer_present = ISPRESENT(dptr); in ENTFTN()
550 offset_present = ISPRESENT(doff); in ENTFTN()
803 if (!ISPRESENT(ab)) in I8()
815 if (!ISPRESENT(db)) in I8()
|
| H A D | utils.c | 173 if (recptr == 0 || !ISPRESENT(recptr)) { in __fortio_rwinit()
|
| H A D | dist.c | 2552 if (!ISPRESENT(dim) || *dim < 1 || *dim > F90_RANK_G(pd)) in ENTFTN()
2562 if (!ISPRESENT(dim) || *dim < 1 || *dim > F90_RANK_G(pd)) in ENTFTN()
2574 if (!ISPRESENT(dim) || *dim < 1 || *dim > F90_RANK_G(pd)) in ENTFTN()
2584 if (!ISPRESENT(dim) || *dim < 1 || *dim > F90_RANK_G(pd)) in ENTFTN()
2868 if (!ISPRESENT(dim)) in ENTFTN()
2890 if (!ISPRESENT(dim)) in ENTFTN()
|
| H A D | dynam.c | 47 if (!ISPRESENT(db)) in I8()
|
| H A D | fmtwrite.c | 235 if (ISPRESENT(fmt)) { in fw_init()
645 assert(ISPRESENT(fmt)); in fw_intern_init()
646 if (ISPRESENT(fmt)) { in fw_intern_init()
|
| H A D | dbug.c | 56 if (!ISPRESENT(adr) || (char *)adr == ABSENTC) { in __fort_print_scalar()
|
| H A D | fioMacros.h | 67 #define ISPRESENT(p) \ macro
71 #define ISPRESENT(p) \ macro
|
| H A D | open.c | 756 if (!ISPRESENT(reclen)) { in ENTF90IO()
|
| H A D | rnum.c | 6346 if (ISPRESENT(getb)) { in ENTFTN()
6386 if (ISPRESENT(putb)) { in ENTFTN()
6454 if (ISPRESENT(size)) { in ENTFTN()
|