/netbsd-current/external/gpl3/gcc.old/dist/gcc/fortran/ |
H A D | arith.c | 423 result = gfc_get_constant_expr (BT_LOGICAL, op1->ts.kind, &op1->where); 436 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2), 450 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2), 464 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2), 478 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2), 593 result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where); 625 result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where); 659 result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where); 693 result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where); 730 result = gfc_get_constant_expr (op [all...] |
H A D | simplify.c | 424 return gfc_get_constant_expr (type, kind, where); 439 gfc_get_constant_expr (type, kind, where), 714 result = gfc_get_constant_expr (BT_INTEGER, e->ts.kind, &e->where); 719 result = gfc_get_constant_expr (BT_REAL, e->ts.kind, &e->where); 725 result = gfc_get_constant_expr (BT_REAL, e->ts.kind, &e->where); 817 result = gfc_get_constant_expr (x->ts.type, x->ts.kind, &x->where); 822 result = gfc_get_constant_expr (x->ts.type, x->ts.kind, &x->where); 851 result = gfc_get_constant_expr (x->ts.type, x->ts.kind, &x->where); 856 result = gfc_get_constant_expr (x->ts.type, x->ts.kind, &x->where); 934 result = gfc_get_constant_expr (BT_REA [all...] |
H A D | target-memory.c | 384 gfc_expr *e = gfc_get_constant_expr (result->ts.type, result->ts.kind, 514 e = gfc_get_constant_expr (cmp->ts.type, cmp->ts.kind, &result->where); 528 gfc_expr *e = gfc_get_constant_expr (cmp->ts.type, cmp->ts.kind,
|
H A D | frontend-passes.c | 651 res = gfc_get_constant_expr (BT_INTEGER, gfc_charlen_int_kind, 810 p = gfc_get_constant_expr (BT_INTEGER, gfc_default_integer_kind, 815 q = gfc_get_constant_expr (BT_INTEGER, gfc_index_integer_kind, 2303 a->expr = gfc_get_constant_expr (BT_INTEGER, gfc_default_integer_kind, 2498 n = gfc_get_constant_expr (BT_INTEGER, ex->ts.kind, &ex->where); 3062 inline_limit = gfc_get_constant_expr (BT_REAL, gfc_default_real_kind, 3533 res = gfc_get_constant_expr (BT_INTEGER, 3960 zero_e = gfc_get_constant_expr (BT_REAL, expr1->ts.kind, 3968 zero_e = gfc_get_constant_expr (BT_COMPLEX, expr1->ts.kind, 4705 next->expr = gfc_get_constant_expr (typ [all...] |
H A D | primary.c | 200 e = gfc_get_constant_expr (BT_INTEGER, kind, where); 219 e = gfc_get_constant_expr (BT_REAL, kind, where); 234 e = gfc_get_constant_expr (BT_COMPLEX, kind, &real->where); 336 e = gfc_get_constant_expr (BT_HOLLERITH, gfc_default_character_kind, 1237 res = gfc_get_constant_expr (BT_CHARACTER, e->ts.kind, &e->where);
|
H A D | expr.c | 144 gfc_get_constant_expr (bt type, int kind, locus *where) function 149 gfc_internal_error ("gfc_get_constant_expr(): locus %<where%> cannot be " 202 e = gfc_get_constant_expr (BT_CHARACTER, kind, 217 p = gfc_get_constant_expr (BT_INTEGER, kind, 233 p = gfc_get_constant_expr (BT_LOGICAL, kind, 1860 *newp = gfc_get_constant_expr (BT_REAL, tmp->ts.kind, &tmp->where); 1872 *newp = gfc_get_constant_expr (BT_REAL, tmp->ts.kind, &tmp->where); 4664 init_expr = gfc_get_constant_expr (ts->type, ts->kind, where);
|
H A D | data.c | 496 expr = gfc_get_constant_expr (BT_COMPLEX, lvalue->ts.kind,
|
H A D | openmp.c | 1032 = gfc_get_constant_expr (BT_INTEGER, 1415 step = gfc_get_constant_expr (BT_INTEGER, 1955 = gfc_get_constant_expr (BT_INTEGER, 6177 el->expr = gfc_get_constant_expr (BT_INTEGER,
|
H A D | gfortran.h | 3318 gfc_expr *gfc_get_constant_expr (bt, int, locus *);
|
H A D | decl.c | 2086 e = gfc_get_constant_expr (BT_INTEGER, k, &sym->declared_at); 10737 result = gfc_get_constant_expr (BT_INTEGER, gfc_c_int_kind, &where);
|
H A D | resolve.c | 5015 gfc_get_constant_expr (BT_INTEGER, gfc_index_integer_kind, 5229 gfc_expr *len = gfc_get_constant_expr (BT_INTEGER, gfc_charlen_int_kind,
|
H A D | trans-expr.c | 1004 e->ts.u.cl->length = gfc_get_constant_expr (BT_INTEGER,
|
/netbsd-current/external/gpl3/gcc/dist/gcc/fortran/ |
H A D | arith.cc | 422 result = gfc_get_constant_expr (BT_LOGICAL, op1->ts.kind, &op1->where); 435 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2), 449 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2), 463 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2), 477 result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2), 592 result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where); 624 result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where); 658 result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where); 692 result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where); 729 result = gfc_get_constant_expr (op [all...] |
H A D | simplify.cc | 456 return gfc_get_constant_expr (type, kind, where); 471 gfc_get_constant_expr (type, kind, where), 746 result = gfc_get_constant_expr (BT_INTEGER, e->ts.kind, &e->where); 751 result = gfc_get_constant_expr (BT_REAL, e->ts.kind, &e->where); 757 result = gfc_get_constant_expr (BT_REAL, e->ts.kind, &e->where); 849 result = gfc_get_constant_expr (x->ts.type, x->ts.kind, &x->where); 854 result = gfc_get_constant_expr (x->ts.type, x->ts.kind, &x->where); 883 result = gfc_get_constant_expr (x->ts.type, x->ts.kind, &x->where); 888 result = gfc_get_constant_expr (x->ts.type, x->ts.kind, &x->where); 966 result = gfc_get_constant_expr (BT_REA [all...] |
H A D | target-memory.cc | 384 gfc_expr *e = gfc_get_constant_expr (result->ts.type, result->ts.kind, 514 e = gfc_get_constant_expr (cmp->ts.type, cmp->ts.kind, &result->where); 528 gfc_expr *e = gfc_get_constant_expr (cmp->ts.type, cmp->ts.kind,
|
H A D | frontend-passes.cc | 651 res = gfc_get_constant_expr (BT_INTEGER, gfc_charlen_int_kind, 810 p = gfc_get_constant_expr (BT_INTEGER, gfc_default_integer_kind, 815 q = gfc_get_constant_expr (BT_INTEGER, gfc_index_integer_kind, 2304 a->expr = gfc_get_constant_expr (BT_INTEGER, gfc_default_integer_kind, 2739 n = gfc_get_constant_expr (BT_INTEGER, ex->ts.kind, &ex->where); 3330 inline_limit = gfc_get_constant_expr (BT_REAL, gfc_default_real_kind, 3811 res = gfc_get_constant_expr (BT_INTEGER, 4238 zero_e = gfc_get_constant_expr (BT_REAL, expr1->ts.kind, 4246 zero_e = gfc_get_constant_expr (BT_COMPLEX, expr1->ts.kind, 4985 next->expr = gfc_get_constant_expr (typ [all...] |
H A D | primary.cc | 200 e = gfc_get_constant_expr (BT_INTEGER, kind, where); 219 e = gfc_get_constant_expr (BT_REAL, kind, where); 234 e = gfc_get_constant_expr (BT_COMPLEX, kind, &real->where); 336 e = gfc_get_constant_expr (BT_HOLLERITH, gfc_default_character_kind, 1216 res = gfc_get_constant_expr (BT_CHARACTER, e->ts.kind, &e->where);
|
H A D | expr.cc | 144 gfc_get_constant_expr (bt type, int kind, locus *where) function 149 gfc_internal_error ("gfc_get_constant_expr(): locus %<where%> cannot be " 202 e = gfc_get_constant_expr (BT_CHARACTER, kind, 217 p = gfc_get_constant_expr (BT_INTEGER, kind, 233 p = gfc_get_constant_expr (BT_LOGICAL, kind, 1883 *newp = gfc_get_constant_expr (BT_REAL, tmp->ts.kind, &tmp->where); 1895 *newp = gfc_get_constant_expr (BT_REAL, tmp->ts.kind, &tmp->where); 4695 init_expr = gfc_get_constant_expr (ts->type, ts->kind, where);
|
H A D | data.cc | 516 expr = gfc_get_constant_expr (BT_COMPLEX, lvalue->ts.kind,
|
H A D | gfortran.h | 3609 gfc_expr *gfc_get_constant_expr (bt, int, locus *);
|
H A D | openmp.cc | 1612 = gfc_get_constant_expr (BT_INTEGER, 2310 step = gfc_get_constant_expr (BT_INTEGER, 2964 = gfc_get_constant_expr (BT_INTEGER, 8976 el->expr = gfc_get_constant_expr (BT_INTEGER,
|
H A D | decl.cc | 2168 e = gfc_get_constant_expr (BT_INTEGER, k, &sym->declared_at); 10827 result = gfc_get_constant_expr (BT_INTEGER, gfc_c_int_kind, &where);
|
H A D | resolve.cc | 5101 gfc_get_constant_expr (BT_INTEGER, gfc_index_integer_kind, 5312 gfc_expr *len = gfc_get_constant_expr (BT_INTEGER, gfc_charlen_int_kind,
|
H A D | trans-expr.cc | 1098 e->ts.u.cl->length = gfc_get_constant_expr (BT_INTEGER,
|