FLOAT
#define __TG_FN1(fn, a) __TG_GFN1(fn, a, FLOAT, LDOUBLE)
#define __TG_FN1x(fn, a, b) __TG_GFN1x(fn, a, b, FLOAT, LDOUBLE)
#define __TG_FN2(fn, a, b) __TG_GFN2(fn, a, b, FLOAT, LDOUBLE)
#define __TG_FN2x(fn, a, b, c) __TG_GFN2x(fn, a, b, c, FLOAT, LDOUBLE)
#define __TG_FN3(fn, a, b, c) __TG_GFN3(fn, a, b, c, FLOAT, LDOUBLE)
typeinfo("float", FLOAT, FLOAT, FLOAT_SIZE, 1, 'f'),
if (t == FLOAT ||
if (t == FLOAT)
if (t == FLOAT && !allow_c90)
else if (t2 == FLOAT)
if (dcs->d_complex_mod == FLOAT)
} else if (t == FLOAT || t == DOUBLE) {
|| (t == FLOAT && dcs->d_rank_mod == LONG))
if (l == LONG && t == FLOAT) {
if (t == COMPLEX && c == FLOAT)
kwdef_type( "float", FLOAT, 78),
t = imaginary ? FCOMPLEX : FLOAT;
else if (t == FLOAT) {
LDOUBLE, DOUBLE, FLOAT,
if (lt == FLOAT || rt == FLOAT)
return FLOAT;
t = FLOAT;
if (t == FLOAT)
if (t == FLOAT && (val > FLT_MAX || val < -FLT_MAX))
if (t == FLOAT)
if (farg && t == FLOAT)
case FLOAT:
if (nt == FLOAT || nt == FCOMPLEX)
if (nt == FLOAT) {
if (ot == FLOAT || ot == DOUBLE || ot == LDOUBLE)
if (t == FLOAT) {
if (t == FLOAT)
if (t1 == FLOAT) {
sz = FLOAT;
sz = FLOAT;
return s == 's' ? FLOAT : (s == 'l' ? LDOUBLE : DOUBLE);
t = FLOAT;