/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | matmul.h | 41 void f90_mm_int1_str1_mxv_(__INT1_T *, __INT1_T *, __INT1_T *, __INT_T *, 43 void f90_mm_int1_str1_vxm_(__INT1_T *, __INT1_T *, __INT1_T *, __INT_T *, 45 void f90_mm_int1_str1_(__INT1_T *, __INT1_T *, __INT1_T *, __INT_T *,
|
H A D | red_iany.c | 31 ARITHFN(|, iany_int1, __INT1_T, __INT1_T) 40 ARITHFNLKN(|, iany_int1, __INT1_T, __INT1_T, 1) 49 ARITHFNLKN(|, iany_int1, __INT1_T, __INT1_T, 2) 58 ARITHFNLKN(|, iany_int1, __INT1_T, __INT1_T, 4) 67 ARITHFNLKN(|, iany_int1, __INT1_T, __INT1_T, 8)
|
H A D | util.c | 29 return (int)(*(__INT1_T *)b); in I8() 80 return (int)(*(__INT1_T *)b); in I8() 111 *(__INT1_T *)b = (__INT1_T)val; in I8() 208 val = (int)(*(__INT1_T *)tmp); in I8() 240 *(__INT1_T *)adr = (__INT1_T)val; in I8() 272 *vec = (int)(*(__INT1_T *)tmp); in I8() 304 *(__INT1_T *)adr = (__INT1_T)*vec; in I8()
|
H A D | mmulint1.c | 33 __INT1_T *s1_base; in ENTF90() 34 __INT1_T *s2_base; in ENTF90() 35 __INT1_T *dest_base; in ENTF90() 36 __INT1_T *d_elem_p; in ENTF90() 37 __INT1_T *s1_elem_p; in ENTF90() 38 __INT1_T *s2_elem_p; in ENTF90() 40 __INT1_T rslt_tmp; in ENTF90() 173 s1_base = (__INT1_T *)s1_addr + F90_LBASE_G(s1_desc) + in ENTF90() 175 s2_base = (__INT1_T *)s2_addr + F90_LBASE_G(s2_desc) + in ENTF90() 177 dest_base = (__INT1_T *)dest_addr + F90_LBASE_G(dest_desc) + in ENTF90()
|
H A D | const.c | 64 sizeof(__INT1_T), /* F integer*1 */ 153 static __INT1_T max_int1 = 0; /* initialized */ 212 static __INT1_T min_int1 = 0; /* initialized */ 271 static __INT1_T unit_int1 = 1; 326 static __INT1_T __fort_true_int1; 381 __INT1_T __fort_mask_int1; 506 __INT1_T 552 __set_fort_mask_int1(__INT1_T m) in __set_fort_mask_int1() 682 max_int1 = MAX_FOR_INT_TYPE(__INT1_T); in __fort_init_consts()
|
H A D | red_maxloc.c | 26 MLOCFNLKN(>, maxloc_int1, __INT1_T, 1) 35 MLOCFNLKN(>, maxloc_int1, __INT1_T, 2) 44 MLOCFNLKN(>, maxloc_int1, __INT1_T, 4) 53 MLOCFNLKN(>, maxloc_int1, __INT1_T, 8) 62 MLOCFNG(>, maxloc_int1, __INT1_T) 74 KMLOCFNLKN(>, kmaxloc_int1, __INT1_T, 1) 83 KMLOCFNLKN(>, kmaxloc_int1, __INT1_T, 2) 92 KMLOCFNLKN(>, kmaxloc_int1, __INT1_T, 4) 101 KMLOCFNLKN(>, kmaxloc_int1, __INT1_T, 8) 110 KMLOCFNG(>, kmaxloc_int1, __INT1_T)
|
H A D | red_findloc.c | 26 FLOCFNLKN(==, findloc_int1, __INT1_T, 1) 35 FLOCFNLKN(==, findloc_int1, __INT1_T, 2) 44 FLOCFNLKN(==, findloc_int1, __INT1_T, 4) 53 FLOCFNLKN(==, findloc_int1, __INT1_T, 8) 62 FLOCFNG(==, findloc_int1, __INT1_T) 74 KFLOCFNLKN(==, kfindloc_int1, __INT1_T, 1) 83 KFLOCFNLKN(==, kfindloc_int1, __INT1_T, 2) 92 KFLOCFNLKN(==, kfindloc_int1, __INT1_T, 4) 101 KFLOCFNLKN(==, kfindloc_int1, __INT1_T, 8) 110 KFLOCFNG(==, kfindloc_int1, __INT1_T)
|
H A D | red_minloc.c | 27 MLOCFNLKN(<, minloc_int1, __INT1_T, 1) 36 MLOCFNLKN(<, minloc_int1, __INT1_T, 2) 45 MLOCFNLKN(<, minloc_int1, __INT1_T, 4) 54 MLOCFNLKN(<, minloc_int1, __INT1_T, 8) 63 MLOCFNG(<, minloc_int1, __INT1_T) 75 KMLOCFNLKN(<, kminloc_int1, __INT1_T, 1) 84 KMLOCFNLKN(<, kminloc_int1, __INT1_T, 2) 93 KMLOCFNLKN(<, kminloc_int1, __INT1_T, 4) 102 KMLOCFNLKN(<, kminloc_int1, __INT1_T, 8) 111 KMLOCFNG(<, kminloc_int1, __INT1_T)
|
H A D | red_all.c | 32 LOGFN(&, all_int1, __INT1_T) 41 LOGFNLKN(&, all_int1, __INT1_T, 1) 50 LOGFNLKN(&, all_int1, __INT1_T, 2) 59 LOGFNLKN(&, all_int1, __INT1_T, 4) 68 LOGFNLKN(&, all_int1, __INT1_T, 8)
|
H A D | red_any.c | 32 LOGFN(|, any_int1, __INT1_T) 41 LOGFNLKN(|, any_int1, __INT1_T, 1) 50 LOGFNLKN(|, any_int1, __INT1_T, 2) 59 LOGFNLKN(|, any_int1, __INT1_T, 4) 68 LOGFNLKN(|, any_int1, __INT1_T, 8)
|
H A D | red_count.c | 63 COUNTFN(count_int1, __INT1_T) 72 COUNTFNLKN(count_int1, __INT1_T, 1) 81 COUNTFNLKN(count_int1, __INT1_T, 2) 90 COUNTFNLKN(count_int1, __INT1_T, 4) 99 COUNTFNLKN(count_int1, __INT1_T, 8)
|
H A D | red_maxval.c | 26 CONDFNLKN(>, maxval_int1, __INT1_T, 1) 35 CONDFNLKN(>, maxval_int1, __INT1_T, 2) 44 CONDFNLKN(>, maxval_int1, __INT1_T, 4) 53 CONDFNLKN(>, maxval_int1, __INT1_T, 8) 62 CONDFNG(>, maxval_int1, __INT1_T)
|
H A D | red_minval.c | 26 CONDFNLKN(<, minval_int1, __INT1_T, 1) 35 CONDFNLKN(<, minval_int1, __INT1_T, 2) 44 CONDFNLKN(<, minval_int1, __INT1_T, 4) 53 CONDFNLKN(<, minval_int1, __INT1_T, 8) 62 CONDFNG(<, minval_int1, __INT1_T)
|
H A D | red_sum.c | 83 ARITHFN(+, sum_int1, __INT1_T, long) 94 ARITHFNLKN(+, sum_int1, __INT1_T, long, 1) 105 ARITHFNLKN(+, sum_int1, __INT1_T, long, 2) 116 ARITHFNLKN(+, sum_int1, __INT1_T, long, 4) 127 ARITHFNLKN(+, sum_int1, __INT1_T, long, 8)
|
H A D | miscsup_com.c | 876 __INT1_T f1, t1, m1; in ENTF90() 894 *(__INT1_T *)to = *(__INT1_T *)from; in ENTF90() 974 __INT1_T 1134 __INT1_T 1845 __INT1_T 1971 __INT1_T 2991 __INT1_T 2993 (__INT1_T *tsource, __INT1_T *fsource, void *mask, __INT_T *size) 3487 __INT1_T 4966 *(__INT1_T *)b = (__INT1_T)v; [all …]
|
H A D | gathscat.c | 34 local_scatter_INT1(int n, __INT1_T *dst, int *sv, __INT1_T *src) in local_scatter_INT1() 193 local_gathscat_INT1(int n, __INT1_T *dst, int *sv, __INT1_T *src, int *gv) in local_gathscat_INT1()
|
H A D | gather.c | 24 local_gather_INT1(int n, __INT1_T *dst, __INT1_T *src, int *gv) in local_gather_INT1()
|
H A D | scalar_copy.c | 179 copy_int1(__INT1_T *rp, __INT1_T *sp, int size) in copy_int1()
|
H A D | getarg.c | 294 *(__INT1_T *)b = (__INT1_T)v; in store_int_kind()
|
H A D | pack.c | 114 mval = (*(__INT1_T *)tmp & GET_DIST_MASK_INT1) != 0; in ENTFTN() 257 mval = (*(__INT1_T *)tmp & GET_DIST_MASK_INT1) != 0; in ENTFTN() 382 mval = (*(__INT1_T *)tmp & GET_DIST_MASK_INT1) != 0; in ENTFTN()
|
H A D | scatter_maxval.c | 27 scatter_maxval_int1(int n, __INT1_T *r, int *sv, __INT1_T *a) in scatter_maxval_int1() 121 gathscat_maxval_int1(int n, __INT1_T *r, int *sv, __INT1_T *a, int *gv) in gathscat_maxval_int1()
|
H A D | scatter_minval.c | 27 scatter_minval_int1(int n, __INT1_T *r, int *sv, __INT1_T *a) in scatter_minval_int1() 121 gathscat_minval_int1(int n, __INT1_T *r, int *sv, __INT1_T *a, int *gv) in gathscat_minval_int1()
|
H A D | fortDt.h | 178 typedef signed char __INT1_T; /* 32 __INT1 integer*1 */ typedef
|
H A D | scatter.c | 1236 *((__INT1_T *)idx_array + i) = *((__INT1_T *)src + i) + adj; in I8() 1290 idx_len = sizeof(__INT1_T); in I8() 1317 *((__INT1_T *)idx_array + i) = *((__INT1_T *)ib); in I8()
|
H A D | red.c | 779 ((__INT1_T *)rb)[i] = *(__INT1_T *)zb; in I8() 972 ((__INT1_T *)rb)[i] = *(__INT1_T *)zb; in I8() 1163 ((__INT1_T *)rb)[i] = *(__INT1_T *)zb; in I8()
|