Home
last modified time | relevance | path

Searched refs:__REAL4 (Results 1 – 14 of 14) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/runtime/flang/
H A DfortDt.h66 __REAL4 = 27, /**< Fortran real*4, real */ enumerator
245 #define __REAL __REAL4
H A Dassign.c85 case __REAL4: in __fortio_assign()
155 case __REAL4: in __fortio_assign()
216 case __REAL4: in __fortio_assign()
H A Dred_norm2.c60 } else if (src_desc->kind == __REAL4) { in ENTFTN()
130 } else if (src_desc->kind == __REAL4) { in ENTFTN()
H A Dfmtwrite.c1847 case __REAL4: in fw_writenum()
1849 ty = __REAL4; in fw_writenum()
1976 case __REAL4: in fw_writenum()
2004 case __REAL4: in fw_writenum()
2064 case __REAL4: in fw_writenum()
2094 ty = __REAL4; in fw_writenum()
2137 ty = __REAL4; in fw_writenum()
2176 ty = __REAL4; in fw_writenum()
2208 ty = __REAL4; in fw_writenum()
2238 ty = __REAL4; in fw_writenum()
[all …]
H A Dfmtconv.c130 case __REAL4: in __fortio_default_convert()
133 1, __REAL4, plus_flag, TRUE, dc_flag, round); in __fortio_default_convert()
166 1, __REAL4, plus_flag, TRUE, dc_flag, round); in __fortio_default_convert()
173 REAL4_E, 1, __REAL4, plus_flag, TRUE, dc_flag, round); in __fortio_default_convert()
1079 if (type == __REAL4) in fp_canon()
H A Dfmtread.c1955 case __REAL4: in fr_readnum()
1956 ty = __REAL4; in fr_readnum()
2032 case __REAL4: in fr_readnum()
2093 case __REAL4: in fr_readnum()
2110 case __REAL4: in fr_readnum()
2233 type = ty = __REAL4; in fr_readnum()
2266 type = ty = __REAL4; in fr_readnum()
2358 case __REAL4: in fr_assign()
2440 case __REAL4: in fr_OZreadnum()
2442 sz = FIO_TYPE_SIZE(__REAL4); in fr_OZreadnum()
[all …]
H A Dftn.c37 __REAL4, /* real*4 */
H A Dmmul.c283 case __REAL4: in ENTFTN()
465 case __REAL4: in I8()
689 case __REAL4: in I8()
937 case __REAL4: in I8()
H A Ddbug.c73 case __REAL4: in __fort_print_scalar()
581 case __REAL4: in I8()
H A Dmiscsup_com.c3469 case __REAL4:
3507 case __REAL4:
3545 case __REAL4:
3583 case __REAL4:
3621 case __REAL4:
3763 case __REAL4:
3797 case __REAL4:
3831 case __REAL4:
3865 case __REAL4:
4980 case __REAL4:
H A Dutils.c538 unit_sz = FIO_TYPE_SIZE(__REAL4); in __fortio_swap_bytes()
H A Dred.c793 case __REAL4: in I8()
986 case __REAL4: in I8()
1177 case __REAL4: in I8()
H A Dtype.c1269 case __REAL4: in I8()
1576 {__POLY, __REAL4, 0, sizeof(__REAL4_T), 0, 0, 0, 0, 0, &I8(__f03_real4_td)},
/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/
H A Ddtypeutl.c3407 __REAL4 = 27, /* F real*4, real */ enumerator
3447 __REAL4, /* TY_REAL */